From 577cf7bafb8c61c01e09308366409cd96765106e Mon Sep 17 00:00:00 2001 From: Jesse Weaver Date: Wed, 4 Oct 2017 16:50:26 -0600 Subject: [PATCH] Bug 18887: (follow-up) Fix behavior for default branch/category Also, fix a couple small QA issues. --- Koha/CirculationRules.pm | 5 ++++- admin/smart-rules.pl | 14 +++++++++++++- .../intranet-tmpl/prog/en/modules/admin/smart-rules.tt | 5 +++++ 3 files changed, 22 insertions(+), 2 deletions(-) diff --git a/Koha/CirculationRules.pm b/Koha/CirculationRules.pm index 8004e95196..054eb00858 100644 --- a/Koha/CirculationRules.pm +++ b/Koha/CirculationRules.pm @@ -136,7 +136,6 @@ sub set_rule { sub set_rules { my ( $self, $params ) = @_; - warn Data::Dumper::Dumper( $params ); my $branchcode = $params->{branchcode}; my $categorycode = $params->{categorycode}; @@ -164,6 +163,10 @@ sub _type { return 'CirculationRule'; } +=head3 object_class + +=cut + sub object_class { return 'Koha::CirculationRule'; } diff --git a/admin/smart-rules.pl b/admin/smart-rules.pl index acf71c8562..9f739c8cd0 100755 --- a/admin/smart-rules.pl +++ b/admin/smart-rules.pl @@ -220,12 +220,15 @@ elsif ($op eq "set-branch-defaults") { my $holdallowed = $input->param('holdallowed'); my $hold_fulfillment_policy = $input->param('hold_fulfillment_policy'); my $returnbranch = $input->param('returnbranch'); + my $max_holds = $input->param('max_holds'); $maxissueqty =~ s/\s//g; $maxissueqty = undef if $maxissueqty !~ /^\d+/; $maxonsiteissueqty =~ s/\s//g; $maxonsiteissueqty = undef if $maxonsiteissueqty !~ /^\d+/; $holdallowed =~ s/\s//g; $holdallowed = undef if $holdallowed !~ /^\d+/; + $max_holds =~ s/\s//g; + $max_holds = undef if $max_holds !~ /^\d+/; if ($branch eq "*") { my $sth_search = $dbh->prepare("SELECT count(*) AS total @@ -261,6 +264,15 @@ elsif ($op eq "set-branch-defaults") { $sth_insert->execute($branch, $maxissueqty, $maxonsiteissueqty, $holdallowed, $hold_fulfillment_policy, $returnbranch); } } + Koha::CirculationRules->set_rule( + { + branchcode => $branch, + categorycode => '*', + itemtype => undef, + rule_name => 'max_holds', + rule_value => $max_holds, + } + ); } elsif ($op eq "add-branch-cat") { my $categorycode = $input->param('categorycode'); @@ -333,7 +345,7 @@ elsif ($op eq "add-branch-cat") { Koha::CirculationRules->set_rule( { - branchcode => undef, + branchcode => '*', categorycode => $categorycode, itemtype => undef, rule_name => 'max_holds', diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt index fe23c9bf69..0993c5eddf 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt @@ -368,6 +368,7 @@   Total current checkouts allowed Total current on-site checkouts allowed + Maximum total holds allowed (count) Hold policy Hold pickup library match Return policy @@ -378,6 +379,10 @@ + [% SET rule_value = CirculationRules.Get( current_branch, '*', undef, 'max_holds' ) %] + + +