From 7fee4562e434f1e43045a4e10ad066b2e1fc9e70 Mon Sep 17 00:00:00 2001 From: Jason Stephenson Date: Mon, 12 Nov 2018 09:17:11 -0500 Subject: [PATCH] LP 1779467: Fix Error When Marking Item on Hold as Discard/Weed Fix the following error when marking an on-hold item as Discard/Weed: Can't use an undefined value as an ARRAY reference at /usr/local/share/perl/5.18.2/OpenILS/Application/Circ.pm line 1393. Signed-off-by: Jason Stephenson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm index f3cec222d0..0dfebd3bf6 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm @@ -1376,21 +1376,21 @@ sub mark_item { return $evt if $evt; # Retrieving holds for later use. - my $holds = $e->search_action_hold_request( + my $holds = $e->search_action_hold_request([ { current_copy => $copy->id, fulfillment_time => undef, cancel_time => undef, }, {flesh=>1, flesh_fields=>{ahr=>['eligible_copies']}} - ); + ]); # Throw event if attempting to mark discard the only copy to fill a hold. if ($self->api_name =~ /discard/) { if (!$args->{handle_last_hold_copy}) { for my $hold (@$holds) { my $eligible = $hold->eligible_copies(); - if (scalar(@{$eligible}) < 2) { + if (!defined($eligible) || scalar(@{$eligible}) < 2) { $evt = OpenILS::Event->new('ITEM_TO_MARK_LAST_HOLD_COPY'); last; } -- 2.11.0