From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 13 Sep 2010 19:03:32 +0000 (+0000)
Subject: a little defensive programming
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d2701b3fa584230f2c835293c5952a7e83826a4a;p=evergreen%2Ftadl.git

a little defensive programming

git-svn-id: svn://svn.open-ils.org/ILS/trunk@17638 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Serial.pm b/Open-ILS/src/perlmods/OpenILS/Application/Serial.pm
index bea039a1cf..cab3d3477f 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Serial.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Serial.pm
@@ -441,7 +441,7 @@ sub scoped_bib_holdings_summary {
     my $self = shift;
     my $client = shift;
     my $bibid = shift;
-    my $args = shift;
+    my $args = shift || {};
 
     $args->{order} = 'asc';
 
@@ -449,10 +449,10 @@ sub scoped_bib_holdings_summary {
 
     # split into issuance type sets
     my %type_blob = (basic => [], supplement => [], index => []);
-    my %statement_blob = %type_blob;
     push @{ $type_blob{ $_->holding_type } }, $_ for (@$issuances);
 
     # generate a statement list for each type
+    my %statement_blob;
     for my $type ( keys %type_blob ) {
         my ($mfhd,$list) = _summarize_contents(new_editor(), $type_blob{$type});
         $statement_blob{$type} = $list;