From d2701b3fa584230f2c835293c5952a7e83826a4a Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 13 Sep 2010 19:03:32 +0000 Subject: [PATCH] a little defensive programming git-svn-id: svn://svn.open-ils.org/ILS/trunk@17638 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Serial.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Serial.pm b/Open-ILS/src/perlmods/OpenILS/Application/Serial.pm index bea039a1c..cab3d3477 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; -- 2.11.0