Bug 5385 - Fixing an error that crept in with the POD cleanup

(cherry picked from commit 9c6db56a3f)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>
This commit is contained in:
Chris Cormack 2010-11-12 10:38:42 +13:00 committed by Chris Nighswonger
parent 57b3924b9a
commit fc78b73764
1 changed files with 5 additions and 0 deletions

View File

@ -73,6 +73,11 @@ C<$pageType> Page type to print (eg: a4, legal, etc).
=cut
# Globals used by the functions
my @positionsForX;
my @positionsForY;
my $firstLabel = 1;
sub setPositionsForX {
my ($marginLeft, $labelWidth, $columns, $pageType) = @_;
my $defaultDpi = 72/25.4; # By default we know 25.4 mm -> 1 inch -> 72 dots per inch