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');