From: djfiander Date: Tue, 27 Jun 2006 01:32:53 +0000 (+0000) Subject: fix handling of hold_queue, add second item to DB to test X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=852c31a0766738cb5cbea9e76ed73d2f616d8497;p=SIPServer.git fix handling of hold_queue, add second item to DB to test renew_all --- diff --git a/ILS/Item.pm b/ILS/Item.pm index e496bda..f533679 100644 --- a/ILS/Item.pm +++ b/ILS/Item.pm @@ -15,12 +15,19 @@ use Sys::Syslog qw(syslog); use ILS::Transaction; our %item_db = ( - 1565921879 => { - title => "Perl 5 desktop reference", - id => 1565921879, - sip_media_type => '001', - magnetic_media => 0, - hold_queue => [], + '1565921879' => { + title => "Perl 5 desktop reference", + id => '1565921879', + sip_media_type => '001', + magnetic_media => 0, + hold_queue => [], + }, + '0440242746' => { + title => "The deep blue alibi", + id => '0440242746', + sip_media_type => '001', + magnetic_media => 0, + hold_queue => [], } ); @@ -138,7 +145,7 @@ sub owner { sub hold_queue { my $self = shift; - return @{$self->{hold_queue}}; + return $self->{hold_queue}; } sub hold_queue_position {