From 8653b88aceecf68bcd9ec7513c50a783248a1516 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:52:48 -0600 Subject: [PATCH] PrinterConfig.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Barcodes/PrinterConfig.pm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/C4/Barcodes/PrinterConfig.pm b/C4/Barcodes/PrinterConfig.pm index 44e08c3a81..d90cd9645f 100644 --- a/C4/Barcodes/PrinterConfig.pm +++ b/C4/Barcodes/PrinterConfig.pm @@ -16,14 +16,17 @@ package C4::Barcodes::PrinterConfig; # Suite 330, Boston, MA 02111-1307 USA use strict; -require Exporter; use vars qw($VERSION @EXPORT); use PDF::API2; use PDF::API2::Page; -# set the version for version checking -$VERSION = 0.01; +BEGIN { + # set the version for version checking + $VERSION = 0.02; + require Exporter; + @EXPORT = qw(&labelsPage &getLabelPosition setPositionsForX setPositionsForY); +} =head1 NAME @@ -45,8 +48,6 @@ environment of the pdf file. =cut -@EXPORT = qw(&labelsPage &getLabelPosition setPositionsForX setPositionsForY); - my @positionsForX; # Takes all the X positions of the pdf file. my @positionsForY; # Takes all the Y positions of the pdf file. my $firstLabel = 1; # Test if the label passed as a parameter is the first label to be printed into the pdf file. @@ -217,4 +218,4 @@ __END__ Koha Physics Library UNLP -=cut \ No newline at end of file +=cut -- 2.39.5