gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Acquisition.pm - BEGIN block VERSION and vars related to export. 

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Joe Atzberger 2008-01-07 13:52:47 -06:00 committed by Joshua Ferraro
parent 534956bc31
commit a52400b7bc
1 changed files with 14 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
C4/Acquisition.pm
View File

@ -19,7 +19,6 @@ package C4::Acquisition;
use strict;
require Exporter;
use C4::Context;
use C4::Dates qw(format_date);
use MARC::Record;
@ -28,8 +27,20 @@ use Time::localtime;
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
$VERSION = 3.01;
BEGIN {
# set the version for version checking
$VERSION = 3.01;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
&GetBasket &NewBasket &CloseBasket
&GetPendingOrders &GetOrder &GetOrders
&GetOrderNumber &GetLateOrders &NewOrder &DelOrder
&SearchOrder &GetHistory &GetRecentAcqui
&ModOrder &ModReceiveOrder &ModOrderBiblioNumber
&GetParcels &GetParcel
);
}
# used in receiveorder subroutine
# to provide library specific handling
@ -52,26 +63,10 @@ orders, basket and parcels.
=over 2
=cut
@ISA = qw(Exporter);
@EXPORT = qw(
&GetBasket &NewBasket &CloseBasket
&GetPendingOrders &GetOrder &GetOrders
&GetOrderNumber &GetLateOrders &NewOrder &DelOrder
&SearchOrder &GetHistory &GetRecentAcqui
&ModOrder &ModReceiveOrder &ModOrderBiblioNumber
&GetParcels &GetParcel
);
=head2 FUNCTIONS ABOUT BASKETS
=over 2
=cut
#------------------------------------------------------------#
=head3 GetBasket
=over 4
@ -1175,10 +1170,7 @@ sub GetRecentAcqui {
return \@results;
}
END { } # module clean-up code here (global destructor)
1;
__END__
=back