From e3421f0f9f24f55dd5d7a418837f581e87ea75dd Mon Sep 17 00:00:00 2001 From: Koha User Date: Wed, 10 Mar 2010 20:37:45 +0000 Subject: [PATCH] Fixes bug 4232: Undefined hash references in Label Creator Signed-off-by: Galen Charlton --- 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 9b248338b5..3a2f42112f 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 df7f6a59f1..9a5212aee3 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'); -- 2.39.5