From a52400b7bc2e46ec46f9891d40e0dcb89bbc35e7 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:52:47 -0600 Subject: [PATCH] Acquisition.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Acquisition.pm | 36 ++++++++++++++---------------------- 1 file changed, 14 insertions(+), 22 deletions(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 8270627035..51a3dcb19a 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -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 -- 2.39.5