gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bugfix: Correcting hash dereferencing for barcode data 

This patch corrects hash dereferencing syntax.

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
Chris Nighswonger 2010-02-04 16:25:31 -05:00 committed by Galen Charlton
parent bad504cbe1
commit d8d9e7fdb8
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C4/Patroncards/Patroncard.pm
View File

@ -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'},
);
}

2
patroncards/create-pdf.pl
View File

@ -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(