[Koha-patches] [PATCH] Bugfix: Correcting hash dereferencing for barcode data
Chris Nighswonger
cnighswonger at foundations.edu
Thu Feb 4 22:25:31 CET 2010
This patch corrects hash dereferencing syntax.
---
C4/Patroncards/Patroncard.pm | 10 +++++-----
patroncards/create-pdf.pl | 2 +-
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/C4/Patroncards/Patroncard.pm b/C4/Patroncards/Patroncard.pm
index 7e3ed35..595dfd1 100644
--- a/C4/Patroncards/Patroncard.pm
+++ b/C4/Patroncards/Patroncard.pm
@@ -56,13 +56,13 @@ sub draw_barcode {
my $barcode_width = 0.8 * $self->{'width'}; # this scales the barcode width to 80% of the label width
my $barcode_y_scale_factor = 0.01 * $self->{'height'}; # this scales the barcode height to 1% of the label height
_draw_barcode( $self,
- llx => $self->{'llx'} + $self->{'layout'}->{'barcode'}->{'llx'},
- lly => $self->{'lly'} + $self->{'layout'}->{'barcode'}->{'lly'},
+ llx => $self->{'llx'} + $self->{'layout'}->{'barcode'}->[0]->{'llx'},
+ lly => $self->{'lly'} + $self->{'layout'}->{'barcode'}->[0]->{'lly'},
width => $barcode_width,
y_scale_factor => $barcode_y_scale_factor,
- barcode_type => $self->{'layout'}->{'barcode'}->{'type'},
- barcode_data => $self->{'layout'}->{'barcode'}->{'data'},
- text => $self->{'layout'}->{'barcode'}->{'text_print'},
+ barcode_type => $self->{'layout'}->{'barcode'}->[0]->{'type'},
+ barcode_data => $self->{'layout'}->{'barcode'}->[0]->{'data'},
+ text => $self->{'layout'}->{'barcode'}->[0]->{'text_print'},
);
}
diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl
index 04b1684..830334d 100755
--- a/patroncards/create-pdf.pl
+++ b/patroncards/create-pdf.pl
@@ -110,7 +110,7 @@ foreach my $item (@{$items}) {
my $card_number = GetMember(borrowernumber => $borrower_number)->{'cardnumber'};
# Set barcode data
- $layout_xml->{'barcode'}->{'data'} = $card_number if $layout_xml->{'barcode'};
+ $layout_xml->{'barcode'}->[0]->{'data'} = $card_number if $layout_xml->{'barcode'};
# Create a new patroncard object
my $patron_card = C4::Patroncards::Patroncard->new(
--
1.6.0.4
More information about the Koha-patches
mailing list