Bugzilla – Attachment 96152 Details for
Bug 16787
'Too many holds' message appears inappropriately and is missing data
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 16787: 'Too many holds' message appears inappropriately and is missing data
Bug-16787-Too-many-holds-message-appears-inappropr.patch (text/plain), 18.92 KB, created by
Nick Clemens (kidclamp)
on 2019-12-10 12:42:02 UTC
(
hide
)
Description:
Bug 16787: 'Too many holds' message appears inappropriately and is missing data
Filename:
MIME Type:
Creator:
Nick Clemens (kidclamp)
Created:
2019-12-10 12:42:02 UTC
Size:
18.92 KB
patch
obsolete
>From 4a78f1c3def1ffd7dac865ce9dda114ebf71b2a7 Mon Sep 17 00:00:00 2001 >From: Nick Clemens <nick@bywatersolutions.com> >Date: Tue, 21 Jun 2016 09:52:47 -0400 >Subject: [PATCH] Bug 16787: 'Too many holds' message appears inappropriately > and is missing data > >This patch alters C4/Reserves.pm to pass back 'noReservesAllowed' when >allowedreserves=0. This allows passing to the user an appropriate >message about the availability of items for holds > >This patch also fixes a FIXME about using effective_itemtype to fetch item rules > >To test: >1 - Set one itemtype to allow no holds >2 - Set 'Holds per record' to 0 for another itemtype/patron combination >3 - Create or find 2 records, each with items only of the itemtypes above >3 - Attempt to place a hold for a patron on each record above >4 - The message will be 'Too many holds' >5 - Apply patch and repeat >6 - Message should be "No holds allowed: [Firstname Surname] cannot >place holds on any of these items" >7 - Try placing a multihold with either record above and a holdable record, > message should end "...cannot place holds on some of these titles' > items" >8 - prove -v t/db_dependent/Holds.t >--- > C4/Reserves.pm | 8 +- > .../prog/en/modules/reserve/request.tt | 12 +- > reserve/request.pl | 9 +- > t/db_dependent/Holds.t | 195 ++++++++++++++++++--- > 4 files changed, 190 insertions(+), 34 deletions(-) > >diff --git a/C4/Reserves.pm b/C4/Reserves.pm >index 7a3785724a..8cb40a191e 100644 >--- a/C4/Reserves.pm >+++ b/C4/Reserves.pm >@@ -394,6 +394,9 @@ sub CanItemBeReserved { > found => undef, # Found holds don't count against a patron's holds limit > } > ); >+ if ( $holds_per_record == 0 ) { >+ return { status => "noReservesAllowed" }; >+ } > if ( $holds->count() >= $holds_per_record ) { > return { status => "tooManyHoldsForThisRecord", limit => $holds_per_record }; > } >@@ -437,6 +440,9 @@ sub CanItemBeReserved { > } > > # we check if it's ok or not >+ if( $allowedreserves == 0 ){ >+ return { status => 'noReservesAllowed' }; >+ } > if ( $reservecount >= $allowedreserves ) { > return { status => 'tooManyReserves', limit => $allowedreserves }; > } >@@ -462,7 +468,7 @@ sub CanItemBeReserved { > my $reserves_control_branch = > GetReservesControlBranch( $item->unblessed(), $borrower ); > my $branchitemrule = >- C4::Circulation::GetBranchItemRule( $reserves_control_branch, $item->itype ); # FIXME Should not be item->effective_itemtype? >+ C4::Circulation::GetBranchItemRule( $reserves_control_branch, $item->effective_itemtype ); > > if ( $branchitemrule->{holdallowed} == 0 ) { > return { status => 'notReservable' }; >diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/reserve/request.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/reserve/request.tt >index 43c0f2aa84..c3ee8857fc 100644 >--- a/koha-tmpl/intranet-tmpl/prog/en/modules/reserve/request.tt >+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/reserve/request.tt >@@ -309,13 +309,15 @@ > </div> > [% END %] > >- [% IF ( exceeded_maxreserves || exceeded_holds_per_record || alreadyreserved || none_available || alreadypossession || ageRestricted ) %] >+ [% IF ( no_reserves_allowed || exceeded_maxreserves || exceeded_holds_per_record || alreadyreserved || none_available || alreadypossession || ageRestricted ) %] > <div class="dialog alert"> > > [% UNLESS ( multi_hold ) %] > <h3>Cannot place hold</h3> > <ul> >- [% IF ( exceeded_maxreserves ) %] >+ [% IF ( no_reserves_allowed ) %] >+ <li><strong>No holds allowed: </strong> <a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% patron.borrowernumber | uri %]">[% patron.firstname | html %] [% patron.surname | html %] </a> cannot place a hold on any of these items.</li> >+ [% ELSIF ( exceeded_maxreserves ) %] > <li><strong>Too many holds: </strong> <a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% patron.borrowernumber | uri %]">[% patron.firstname | html %] [% patron.surname | html %] </a> can only place a maximum of [% maxreserves | html %] total holds.</li> > [% ELSIF ( exceeded_holds_per_record ) %] > <li><strong>Too many holds for this record: </strong> <a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% patron.borrowernumber | uri %]">[% patron.firstname | html %] [% patron.surname | html %] </a> can only place a maximum of [% max_holds_for_record | html %] hold(s) on this record.</li> >@@ -333,7 +335,9 @@ > </ul> > [% ELSE # UNLESS multi_hold %] > <h3>Cannot place hold on some items</h3> >- [% IF ( exceeded_maxreserves ) %] >+ [% IF (no_reserves_allowed ) %] >+ <li><strong>No holds allowed: </strong> <a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% patron.borrowernumber | uri %]">[% patron.firstname | html %] [% patron.surname | html %] </a> cannot place holds on some of these title's items.</li> >+ [% ELSIF ( exceeded_maxreserves ) %] > <li><strong>Too many holds: </strong> <a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% patron.borrowernumber | uri %]">[% patron.firstname | html %] [% patron.surname | html %] </a> can place [% new_reserves_allowed | html %] of the requested [% new_reserves_count | html %] holds for a maximum of [% maxreserves | html %] total holds.</li> > [% ELSIF ( exceeded_holds_per_record ) %] > [% FOREACH biblioloo IN biblioloop %] >@@ -580,6 +584,8 @@ > Patron already has hold for this item > [% ELSIF itemloo.not_holdable == 'cannotBeTransferred' %] > Cannot be transferred to pickup library >+ [% ELSIF itemloo.not_holdable == 'noReservesAllowed' %] >+ No reserves are allowed on this item > [% ELSE %] > [% itemloo.not_holdable | html %] > [% END %] >diff --git a/reserve/request.pl b/reserve/request.pl >index c5014820f6..320af9af1b 100755 >--- a/reserve/request.pl >+++ b/reserve/request.pl >@@ -186,6 +186,8 @@ if ($borrowernumber_hold && !$action) { > my $new_reserves_count = scalar( @biblionumbers ); > > my $maxreserves = C4::Context->preference('maxreserves'); >+ $template->param( maxreserves => $maxreserves ); >+ > if ( $maxreserves > && ( $reserves_count + $new_reserves_count > $maxreserves ) ) > { >@@ -288,6 +290,7 @@ if ($patron) { > my $itemdata_enumchron = 0; > my $itemdata_ccode = 0; > my @biblioloop = (); >+my $no_reserves_allowed = 0; > foreach my $biblionumber (@biblionumbers) { > next unless $biblionumber =~ m|^\d+$|; > >@@ -303,7 +306,10 @@ foreach my $biblionumber (@biblionumbers) { > > #All is OK and we can continue > } >- elsif ( $canReserve->{status} eq 'tooManyReserves' ) { >+ elsif ( $canReserve eq 'noReservesAllowed') { >+ $no_reserves_allowed = 1; >+ } >+ elsif ( $canReserve eq 'tooManyReserves' ) { > $exceeded_maxreserves = 1; > $template->param( maxreserves => $canReserve->{limit} ); > } >@@ -719,6 +725,7 @@ foreach my $biblionumber (@biblionumbers) { > > $template->param( biblioloop => \@biblioloop ); > $template->param( biblionumbers => $biblionumbers ); >+$template->param( no_reserves_allowed => $no_reserves_allowed ); > $template->param( exceeded_maxreserves => $exceeded_maxreserves ); > $template->param( exceeded_holds_per_record => $exceeded_holds_per_record ); > $template->param( subscriptionsnumber => CountSubscriptionFromBiblionumber($biblionumber)); >diff --git a/t/db_dependent/Holds.t b/t/db_dependent/Holds.t >index f7919b3827..197d9b71b2 100755 >--- a/t/db_dependent/Holds.t >+++ b/t/db_dependent/Holds.t >@@ -7,7 +7,7 @@ use t::lib::TestBuilder; > > use C4::Context; > >-use Test::More tests => 59; >+use Test::More tests => 57; > use MARC::Record; > > use C4::Biblio; >@@ -243,7 +243,7 @@ is( $hold->priority, '6', "Test AlterPriority(), move to bottom" ); > my $foreign_biblio = $builder->build_sample_biblio({ itemtype => 'DUMMY' }); > my ($foreign_item_bibnum, $foreign_item_bibitemnum, $foreign_itemnumber) > = AddItem({ homebranch => $branch_2, holdingbranch => $branch_2 } , $foreign_biblio->biblionumber); >-$dbh->do('DELETE FROM issuingrules'); >+delete_all_rules(); > $dbh->do( > q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed, holds_per_record) > VALUES (?, ?, ?, ?, ?)}, >@@ -321,38 +321,169 @@ t::lib::Mocks::mock_preference( 'AllowHoldsOnDamagedItems', 0 ); > ok( CanItemBeReserved( $borrowernumbers[0], $itemnumber)->{status} eq 'damaged', "Patron cannot reserve damaged item with AllowHoldsOnDamagedItems disabled" ); > ok( !defined( ( CheckReserves($itemnumber) )[1] ), "Hold cannot be trapped for damaged item with AllowHoldsOnDamagedItems disabled" ); > >-# Regression test for bug 9532 >-$biblio = $builder->build_sample_biblio({ itemtype => 'CANNOT' }); >-($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => 'CANNOT' } , $biblio->biblionumber); >-AddReserve( >- $branch_1, >- $borrowernumbers[0], >- $biblio->biblionumber, >- '', >- 1, >-); >-is( >- CanItemBeReserved( $borrowernumbers[0], $itemnumber)->{status}, 'tooManyReserves', >- "cannot request item if policy that matches on item-level item type forbids it" >-); >-ModItem({ itype => 'CAN' }, $item_bibnum, $itemnumber); >-ok( >- CanItemBeReserved( $borrowernumbers[0], $itemnumber)->{status} eq 'OK', >- "can request item if policy that matches on item type allows it" >-); >+subtest 'CanItemBeReserved' => sub { >+ plan tests => 2; > >-t::lib::Mocks::mock_preference('item-level_itypes', 0); >-ModItem({ itype => undef }, $item_bibnum, $itemnumber); >-ok( >- CanItemBeReserved( $borrowernumbers[0], $itemnumber)->{status} eq 'tooManyReserves', >- "cannot request item if policy that matches on bib-level item type forbids it (bug 9532)" >-); >+ delete_all_rules(); >+ >+ my $itemtype_can = $builder->build({source => "Itemtype"})->{itemtype}; >+ my $itemtype_cant = $builder->build({source => "Itemtype"})->{itemtype}; >+ my $itemtype_cant_record = $builder->build({source => "Itemtype"})->{itemtype}; >+ >+ $dbh->do( >+ q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed, holds_per_record) VALUES (?, ?, ?, ?, ?)}, {}, >+ '*', '*', $itemtype_cant, 0, 99 >+ ); >+ $dbh->do( >+ q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed, holds_per_record) VALUES (?, ?, ?, ?, ?)}, {}, >+ '*', '*', $itemtype_can, 2, 2 >+ ); >+ $dbh->do( >+ q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed, holds_per_record) VALUES (?, ?, ?, ?, ?)}, {}, >+ '*', '*', $itemtype_cant_record, 0, 0 >+ ); >+ Koha::CirculationRules->set_rules( >+ { >+ branchcode => $branch_1, >+ itemtype => $itemtype_cant, >+ categorycode => undef, >+ rules => { >+ holdallowed => 0, >+ returnbranch => 'homebranch', >+ } >+ } >+ ); >+ Koha::CirculationRules->set_rules( >+ { >+ branchcode => $branch_1, >+ itemtype => $itemtype_can, >+ categorycode => undef, >+ rules => { >+ holdallowed => 1, >+ returnbranch => 'homebranch', >+ } >+ } >+ ); >+ >+ subtest 'noReservesAllowed' => sub { >+ plan tests => 5; >+ >+ my $biblionumber_cannot = $builder->build_sample_biblio({ itemtype => $itemtype_cant })->biblionumber; >+ my $biblionumber_can = $builder->build_sample_biblio({ itemtype => $itemtype_can })->biblionumber; >+ my $biblionumber_record_cannot = $builder->build_sample_biblio({ itemtype => $itemtype_cant_record })->biblionumber; >+ my ( undef, undef, $itemnumber_1_can ) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => $itemtype_can } , $biblionumber_cannot); >+ my ( undef, undef, $itemnumber_1_cannot ) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => $itemtype_cant } , $biblionumber_cannot); >+ >+ my ( undef, undef, $itemnumber_2_can ) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => $itemtype_can } , $biblionumber_can); >+ my ( undef, undef, $itemnumber_2_cannot ) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => $itemtype_cant } , $biblionumber_can); >+ >+ my ( undef, undef, $itemnumber_3_cannot ) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => $itemtype_cant_record } , $biblionumber_record_cannot); >+ >+ Koha::Holds->search({borrowernumber => $borrowernumbers[0]})->delete; >+ >+ t::lib::Mocks::mock_preference('item-level_itypes', 1); >+ is( >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber_2_cannot)->{status}, 'noReservesAllowed', >+ "With item level set, rule from item must be picked (CANNOT)" >+ ); >+ is( >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber_1_can)->{status}, 'OK', >+ "With item level set, rule from item must be picked (CAN)" >+ ); >+ t::lib::Mocks::mock_preference('item-level_itypes', 0); >+ is( >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber_1_can)->{status}, 'noReservesAllowed', >+ "With biblio level set, rule from biblio must be picked (CANNOT)" >+ ); >+ is( >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber_2_cannot)->{status}, 'OK', >+ "With biblio level set, rule from biblio must be picked (CAN)" >+ ); >+ is( >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber_3_cannot)->{status}, 'noReservesAllowed', >+ "When no holds allowed and no holds per record allowed should return noReservesAllowed" >+ ); >+ }; >+ >+ subtest 'tooManyHoldsForThisRecord + tooManyReserves + itemAlreadyOnHold' => sub { >+ plan tests => 7; >+ >+ my $biblionumber_1 = $builder->build_sample_biblio({ itemtype => $itemtype_can })->biblionumber; >+ my ( undef, undef, $itemnumber_11) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => $itemtype_can } , $biblionumber_1); >+ my ( undef, undef, $itemnumber_12) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => $itemtype_can } , $biblionumber_1); >+ my $biblionumber_2 = $builder->build_sample_biblio({ itemtype => $itemtype_can })->biblionumber; >+ my ( undef, undef, $itemnumber_21) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => $itemtype_can } , $biblionumber_2); >+ my ( undef, undef, $itemnumber_22) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => $itemtype_can } , $biblionumber_2); >+ >+ Koha::Holds->search({borrowernumber => $borrowernumbers[0]})->delete; >+ >+ # Biblio-level hold >+ AddReserve( >+ $branch_1, >+ $borrowernumbers[0], >+ $biblionumber_1, >+ '', >+ 1, >+ ); >+ for my $item_level ( 0..1 ) { >+ t::lib::Mocks::mock_preference('item-level_itypes', $item_level); >+ is( >+ # FIXME This is not really correct, but CanItemBeReserved does not check if biblio-level holds already exist >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber_11)->{status}, 'OK', >+ "A biblio-level hold already exists - another hold can be placed on a specific item item" >+ ); >+ } >+ >+ Koha::Holds->search({borrowernumber => $borrowernumbers[0]})->delete; >+ # Item-level hold >+ AddReserve( >+ $branch_1, >+ $borrowernumbers[0], >+ $biblionumber_1, >+ '', >+ 1, >+ undef, undef, undef, undef, $itemnumber_11 >+ ); >+ $dbh->do(q{UPDATE issuingrules set reservesallowed=5, holds_per_record=1}); >+ is( >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber_12)->{status}, 'tooManyHoldsForThisRecord', >+ "A item-level hold already exists and holds_per_record=1, another hold cannot be placed on this record" >+ ); >+ $dbh->do(q{UPDATE issuingrules set reservesallowed=1, holds_per_record=1}); >+ is( >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber_12)->{status}, 'tooManyHoldsForThisRecord', >+ "A item-level hold already exists and holds_per_record=1 - tooManyHoldsForThisRecord has priority over tooManyReserves" >+ ); >+ $dbh->do(q{UPDATE issuingrules set reservesallowed=5, holds_per_record=2}); >+ is( >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber_12)->{status}, 'OK', >+ "A item-level hold already exists but holds_per_record=2- another item-level hold can be placed on this record" >+ ); >+ >+ AddReserve( >+ $branch_1, >+ $borrowernumbers[0], >+ $biblionumber_2, >+ '', >+ 1, >+ undef, undef, undef, undef, $itemnumber_21 >+ ); >+ $dbh->do(q{UPDATE issuingrules set reservesallowed=2, holds_per_record=2}); >+ is( >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber_21)->{status}, 'itemAlreadyOnHold', >+ "A item-level holds already exists on this item, itemAlreadyOnHold should be raised" >+ ); >+ is( >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber_22)->{status}, 'tooManyReserves', >+ "This patron has already placed reservesallowed holds, tooManyReserves should be raised" >+ ); >+ }; >+}; > > > # Test branch item rules > >-$dbh->do('DELETE FROM issuingrules'); >-$dbh->do('DELETE FROM circulation_rules'); >+delete_all_rules(); > $dbh->do( > q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed) > VALUES (?, ?, ?, ?)}, >@@ -687,3 +818,9 @@ subtest 'CanItemBeReserved / holds_per_day tests' => sub { > > $schema->storage->txn_rollback; > }; >+ >+sub delete_all_rules { >+ my $dbh = C4::Context->dbh; >+ $dbh->do('DELETE FROM issuingrules'); >+ $dbh->do('DELETE FROM circulation_rules'); >+} >-- >2.11.0
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 16787
:
52652
|
68894
|
68895
|
72827
|
72828
|
72889
|
91146
|
91147
|
91148
|
91149
|
96152
|
97403
|
99949
|
99950
|
100951
|
101473
|
101474
|
101475
|
101895
|
107793
|
107794
|
107795
|
114675
|
114676
|
114677
|
119279
|
119280
|
119281
|
119335
|
119336
|
119337
|
119616
|
119617
|
119619
|
119620
|
119621
|
119622
|
119623
|
119738
|
119739
|
119740
|
119741
|
119942
|
120009