PrinterConfig.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:
parent
a52400b7bc
commit
8653b88ace
1 changed files with 7 additions and 6 deletions
|
@ -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 <matias_veleda@hotmail.com>
|
||||
|
||||
=cut
|
||||
=cut
|
||||
|
|
Loading…
Reference in a new issue