From b8f881659d26d6b013c552bd84c6ae8119a3d313 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:53:05 -0600 Subject: [PATCH] Print.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Print.pm | 18 +++++++----------- 1 file changed, 7 insertions(+), 11 deletions(-) diff --git a/C4/Print.pm b/C4/Print.pm index 21fd8c24e3..ab08c9033a 100644 --- a/C4/Print.pm +++ b/C4/Print.pm @@ -17,10 +17,7 @@ package C4::Print; # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, # Suite 330, Boston, MA 02111-1307 USA - use strict; -require Exporter; - use C4::Context; use C4::Circulation; use C4::Members; @@ -28,9 +25,13 @@ use C4::Dates qw(format_date); use vars qw($VERSION @ISA @EXPORT); -# set the version for version checking -# set the version for version checking -$VERSION = 3.00; +BEGIN { + # set the version for version checking + $VERSION = 3.01; + require Exporter; + @ISA = qw(Exporter); + @EXPORT = qw(&remoteprint &printreserve &printslip); +} =head1 NAME @@ -48,11 +49,6 @@ The functions in this module handle sending text to a printer. =over 2 -=cut - -@ISA = qw(Exporter); -@EXPORT = qw(&remoteprint &printreserve &printslip); - =item remoteprint &remoteprint($items, $borrower); -- 2.11.0