From d070d2ce0e76d3add678cb570268377c86647e0e Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 19 Nov 2021 13:27:44 +0100 Subject: [PATCH] Bug 29087: Prevent filter_by_for_hold to crash if default holdallowed is not_allowed Signed-off-by: David Nind --- Koha/Items.pm | 30 ++++++++++++++++++++++++++---- t/db_dependent/Koha/Holds.t | 7 +++++++ 2 files changed, 33 insertions(+), 4 deletions(-) diff --git a/Koha/Items.pm b/Koha/Items.pm index f3edb77685..9245dfb7d4 100644 --- a/Koha/Items.pm +++ b/Koha/Items.pm @@ -61,15 +61,37 @@ placing a hold on one of those items. sub filter_by_for_hold { my ($self) = @_; - my @hold_not_allowed_itypes = Koha::CirculationRules->search( + my $default_rule = Koha::CirculationRules->get_effective_rule( { rule_name => 'holdallowed', - branchcode => undef, - categorycode => undef, rule_value => 'not_allowed', } - )->get_column('itemtype'); + ); + my @hold_not_allowed_itypes; + if ( $default_rule ) { + @hold_not_allowed_itypes = Koha::ItemTypes->search->get_column('itemtype'); + my @hold_allowed_itypes = Koha::CirculationRules->search( + { + rule_name => 'holdallowed', + rule_value => { '!=' => 'not_allowed' }, + branchcode => undef, + categorycode => undef, + } + )->get_column('itemtype'); + @hold_not_allowed_itypes = array_minus( @hold_not_allowed_itypes, @hold_allowed_itypes ) + } else { + @hold_not_allowed_itypes = Koha::CirculationRules->search( + { + rule_name => 'holdallowed', + branchcode => undef, + categorycode => undef, + rule_value => 'not_allowed', + } + )->get_column('itemtype'); + } + push @hold_not_allowed_itypes, Koha::ItemTypes->search({ notforloan => 1 })->get_column('itemtype'); + @hold_not_allowed_itypes = uniq @hold_not_allowed_itypes; my $params = { itemlost => 0, diff --git a/t/db_dependent/Koha/Holds.t b/t/db_dependent/Koha/Holds.t index 4dad5db128..f1f32ad6a7 100755 --- a/t/db_dependent/Koha/Holds.t +++ b/t/db_dependent/Koha/Holds.t @@ -532,6 +532,13 @@ subtest 'Desks' => sub { subtest 'get_items_that_can_fill' => sub { plan tests => 6; + Koha::CirculationRules->search( + { + rule_name => 'holdallowed', + rule_value => 'not_allowed', + } + )->delete; + my $biblio = $builder->build_sample_biblio; my $itype_1 = $builder->build_object({ class => 'Koha::ItemTypes' }); # For 1, 2, 3, 4 my $itype_2 = $builder->build_object({ class => 'Koha::ItemTypes' }); -- 2.37.1 (Apple Git-137.1)