[Koha-patches] [PATCH] Fixes Bug 4232: Undefined hash references in Label Creator.
Ian Walls
ian.walls at bywatersolutions.com
Tue Feb 23 14:45:01 CET 2010
Resubmitting.
Splits declaration and assignment of hashes into two lines to work
more universally with different compilations of Perl.
---
C4/Creators/Lib.pm | 3 ++-
labels/label-item-search.pl | 3 ++-
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/C4/Creators/Lib.pm b/C4/Creators/Lib.pm
index 9b24833..3a2f421 100644
--- a/C4/Creators/Lib.pm
+++ b/C4/Creators/Lib.pm
@@ -318,7 +318,8 @@ sub get_label_summary {
return -1;
}
my $record = $sth->fetchrow_hashref;
- my $label_summary->{'_label_number'} = $label_number;
+ my $label_summary;
+ $label_summary->{'_label_number'} = $label_number;
$record->{'author'} =~ s/[^\.|\w]$// if $record->{'author'};
# strip off ugly trailing chars... but not periods or word chars
$record->{'title'} =~ s/\W*$//; # strip off ugly trailing chars
# FIXME contructing staff interface URLs should be done *much*
higher up the stack - for the most part, C4 module code
diff --git a/labels/label-item-search.pl b/labels/label-item-search.pl
index df7f6a5..f06f236 100755
--- a/labels/label-item-search.pl
+++ b/labels/label-item-search.pl
@@ -126,7 +126,8 @@ if ($show_results) {
foreach my $item ( keys %$item_results ) {
#DEBUG Notes: Build an array element 'item' of the
correct bib (results) hash which contains item-specific data...
if ($item_results->{$item}->{'biblionumber'} eq
$results_set[$i]->{'biblionumber'}) {
- my $item_data->{'_item_number'} =
$item_results->{$item}->{'itemnumber'};
+ my $item_data;
+ $item_data->{'_item_number'} =
$item_results->{$item}->{'itemnumber'};
$item_data->{'_item_call_number'} =
($item_results->{$item}->{'itemcallnumber'} ?
$item_results->{$item}->{'itemcallnumber'} : 'NA');
$item_data->{'_date_accessioned'} =
$item_results->{$item}->{'dateaccessioned'};
$item_data->{'_barcode'} = (
$item_results->{$item}->{'barcode'} ?
$item_results->{$item}->{'barcode'} : 'NA');
--
1.5.6.5
More information about the Koha-patches
mailing list