From: Koha User <koha@dev.(none)>
Date: Wed, 10 Mar 2010 20:37:45 +0000 (+0000)
Subject: Fixes bug 4232: Undefined hash references in Label Creator
X-Git-Tag: v3.02.00-alpha2~282
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=e3421f0f9f24f55dd5d7a418837f581e87ea75dd;p=koha.git

Fixes bug 4232: Undefined hash references in Label Creator

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---

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