Bugzilla – Attachment 58741 Details for
Bug 11999
Add two checks in CanBookBeReserved and CanItemBeReserved
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 11999: Add two checks in CanBookBeReserved and CanItemBeReserved
Bug-11999-Add-two-checks-in-CanBookBeReserved-and-.patch (text/plain), 10.24 KB, created by
Julian Maurice
on 2017-01-10 12:21:58 UTC
(
hide
)
Description:
Bug 11999: Add two checks in CanBookBeReserved and CanItemBeReserved
Filename:
MIME Type:
Creator:
Julian Maurice
Created:
2017-01-10 12:21:58 UTC
Size:
10.24 KB
patch
obsolete
>From e3f76e8caaf16bb0439f4b1cdeb62a001aa39086 Mon Sep 17 00:00:00 2001 >From: Julian Maurice <julian.maurice@biblibre.com> >Date: Wed, 26 Mar 2014 10:51:59 +0100 >Subject: [PATCH] Bug 11999: Add two checks in CanBookBeReserved and > CanItemBeReserved > >- Check if borrower already has reserved the same biblio (or item). >- Check if borrower has reached the maximum number of holds allowed > (syspref maxreserves) > >The goal of this patch is to do these checks also when using ILS-DI >services HoldTitle and HoldItem > >Test plan: >---------- >Before patch: >1/ Set syspref maxreserves to 1 >2/ Place some holds through ILS-DI and note that you can place more than > 1 hold for a borrower >3/ Try to hold the same biblio/item with the same borrower through > ILS-DI and note that you can > >Apply the patch >4/ Place some holds through ILS-DI, you shouldn't be able to place more > than 1 hold for a borrower >5/ Try to hold the same biblio/item with the same borrower through > ILS-DI. You shouldn't be able to do that. >6/ Try to place holds on staff interface and OPAC. The behaviour must be > identical than before the patch. > >Maxreserves and alreadyreserved works on ILSDI >Maxreserves works also on staff and opac >Already reserves works also on staff and opac >tests on t/db_dependent/Reserves.t and t/db_dependent/Holds.t passe (using koha_ut db) > >Signed-off-by: Alex Sassmannshausen <alex.sassmannshausen@ptfs-europe.com> >Signed-off-by: Alex Arnaud <alex.arnaud@biblibre.com> >--- > C4/Reserves.pm | 34 ++++++++++++++- > .../prog/en/modules/reserve/request.tt | 4 +- > reserve/request.pl | 4 +- > t/db_dependent/Holds.t | 48 ++++++++++++++++------ > 4 files changed, 73 insertions(+), 17 deletions(-) > >diff --git a/C4/Reserves.pm b/C4/Reserves.pm >index 9ef33ad..f484c4c 100644 >--- a/C4/Reserves.pm >+++ b/C4/Reserves.pm >@@ -428,6 +428,20 @@ See CanItemBeReserved() for possible return values. > sub CanBookBeReserved{ > my ($borrowernumber, $biblionumber) = @_; > >+ # Check if borrower already has reserved the same biblio. >+ my @reserves = GetReservesFromBorrowernumber($borrowernumber); >+ foreach my $reserve (@reserves) { >+ if ($reserve->{biblionumber} == $biblionumber) { >+ return 'alreadyReserved'; >+ } >+ } >+ >+ # Check if borrower has reached the maximum number of holds allowed >+ my $maxreserves = C4::Context->preference('maxreserves'); >+ if ($maxreserves && scalar(@reserves) >= $maxreserves) { >+ return 'tooManyReserves'; >+ } >+ > my $items = GetItemnumbersForBiblio($biblionumber); > #get items linked via host records > my @hostitems = get_hostitemnumbers_of($biblionumber); >@@ -440,7 +454,8 @@ sub CanBookBeReserved{ > $canReserve = CanItemBeReserved( $borrowernumber, $item ); > return 'OK' if $canReserve eq 'OK'; > } >- return $canReserve; >+ >+ return 'none_available'; > } > > =head2 CanItemBeReserved >@@ -454,6 +469,7 @@ sub CanBookBeReserved{ > cannotReserveFromOtherBranches, if syspref 'canreservefromotherbranches' is OK. > tooManyReserves, if the borrower has exceeded his maximum reserve amount. > notReservable, if holds on this item are not allowed >+ alreadyReserved, if the borrower has already reserved this item. > > =cut > >@@ -485,6 +501,22 @@ sub CanItemBeReserved { > return 'itemAlreadyOnHold' > if Koha::Holds->search( { borrowernumber => $borrowernumber, itemnumber => $itemnumber } )->count(); > >+ # Check if borrower already has reserved the same item or biblio. >+ my @reserves = GetReservesFromBorrowernumber($borrowernumber); >+ foreach my $reserve (@reserves) { >+ if ( $reserve->{itemnumber} == $itemnumber >+ or $reserve->{biblionumber} == $item->{biblionumber} ) >+ { >+ return 'alreadyReserved'; >+ } >+ } >+ >+ # Check if borrower has reached the maximum number of holds allowed >+ my $maxreserves = C4::Context->preference('maxreserves'); >+ if ($maxreserves && scalar(@reserves) >= $maxreserves) { >+ return 'tooManyReserves'; >+ } >+ > my $controlbranch = C4::Context->preference('ReservesControlBranch'); > > my $querycount = q{ >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 12b4e1b..3d21197 100644 >--- a/koha-tmpl/intranet-tmpl/prog/en/modules/reserve/request.tt >+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/reserve/request.tt >@@ -265,7 +265,7 @@ function checkMultiHold() { > </form> > [% ELSIF NOT noitems %] > >-[% IF ( exceeded_maxreserves || exceeded_holds_per_record || alreadyreserved || none_available || alreadypossession || ageRestricted ) %] >+[% IF ( exceeded_maxreserves || exceeded_holds_per_record || alreadyReserved || none_available || alreadypossession || ageRestricted ) %] > <div class="dialog alert"> > > [% UNLESS ( multi_hold ) %] >@@ -277,7 +277,7 @@ function checkMultiHold() { > <li><strong>Too many holds for this record: </strong> <a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% borrowernumber %]">[% borrowerfirstname %] [% borrowersurname %] </a> can only place a maximum of [% max_holds_for_record %] hold(s) on this record.</li> > [% ELSIF ( alreadypossession ) %] > <li> <a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% borrowernumber %]">[% borrowerfirstname %] [% borrowersurname %]</a> <strong>is already in possession</strong> of one item.</li> >- [% ELSIF ( alreadyreserved ) %] >+ [% ELSIF ( alreadyReserved ) %] > <li><a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% borrowernumber %]">[% borrowerfirstname %] [% borrowersurname %]</a> <strong>already has a hold</strong> on this item.</li> > [% ELSIF ( ageRestricted ) %] > <li><strong>Age restricted</strong></li> >diff --git a/reserve/request.pl b/reserve/request.pl >index 3f4dba3..2905e31 100755 >--- a/reserve/request.pl >+++ b/reserve/request.pl >@@ -226,7 +226,9 @@ foreach my $biblionumber (@biblionumbers) { > $exceeded_holds_per_record = 1; > $biblioloopiter{$canReserve} = 1; > } >- elsif ( $canReserve eq 'ageRestricted' ) { >+ elsif ( grep { $canReserve eq $_ } >+ (qw(ageRestricted alreadyReserved none_available)) ) >+ { > $template->param( $canReserve => 1 ); > $biblioloopiter{$canReserve} = 1; > } >diff --git a/t/db_dependent/Holds.t b/t/db_dependent/Holds.t >index 61b9e6e..fe38f19 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 => 61; >+use Test::More tests => 64; > use MARC::Record; > use C4::Biblio; > use C4::Items; >@@ -334,10 +334,12 @@ ModReserve({ reserve_id => $reserveid2, rank => 'del' }); > $reserve3 = GetReserve( $reserveid3 ); > is( $reserve3->{priority}, 1, "After ModReserve, the 3rd reserve becomes the first on the waiting list" ); > >+ok( defined( ( CheckReserves($itemnumber) )[1] ), "Hold can be trapped for damaged item with AllowHoldsOnDamagedItems enabled" ); >+ > ModItem({ damaged => 1 }, $item_bibnum, $itemnumber); >+CancelReserve({reserve_id => $reserveid3}); > t::lib::Mocks::mock_preference( 'AllowHoldsOnDamagedItems', 1 ); > is( CanItemBeReserved( $borrowernumbers[0], $itemnumber), 'OK', "Patron can reserve damaged item with AllowHoldsOnDamagedItems enabled" ); >-ok( defined( ( CheckReserves($itemnumber) )[1] ), "Hold can be trapped for damaged item with AllowHoldsOnDamagedItems enabled" ); > > $hold = Koha::Hold->new( > { >@@ -365,23 +367,34 @@ AddReserve( > '', > 1, > ); >+my ($bibnum2, $title2, $bibitemnum2) = create_helper_biblio('CANNOT'); >+my ($item_bibnum2, $item_bibitemnum2, $itemnumber2) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => 'CANNOT' } , $bibnum2); > is( >- CanItemBeReserved( $borrowernumbers[0], $itemnumber), 'tooManyReserves', >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber2), 'tooManyReserves', > "cannot request item if policy that matches on item-level item type forbids it" > ); >-ModItem({ itype => 'CAN' }, $item_bibnum, $itemnumber); >+ModItem({ itype => 'CAN' }, $item_bibnum2, $itemnumber2); > ok( >- CanItemBeReserved( $borrowernumbers[0], $itemnumber) eq 'OK', >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber2) eq 'OK', > "can request item if policy that matches on item type allows it" > ); > > t::lib::Mocks::mock_preference('item-level_itypes', 0); >-ModItem({ itype => undef }, $item_bibnum, $itemnumber); >+ModItem({ itype => undef }, $item_bibnum2, $itemnumber2); > ok( >- CanItemBeReserved( $borrowernumbers[0], $itemnumber) eq 'tooManyReserves', >+ CanItemBeReserved( $borrowernumbers[0], $itemnumber2) eq 'tooManyReserves', > "cannot request item if policy that matches on bib-level item type forbids it (bug 9532)" > ); > >+is(CanBookBeReserved($borrowernumbers[0], $bibnum), 'alreadyReserved'); >+ >+C4::Context->set_preference('maxreserves', 1); >+ok(CanBookBeReserved($borrowernumbers[0], $biblionumber) eq 'tooManyReserves'); >+ >+C4::Context->set_preference('maxreserves', 0); >+t::lib::Mocks::mock_preference('IndependentBranches', 1); >+t::lib::Mocks::mock_preference('canreservefromotherbranches', 0); >+ok(CanBookBeReserved($borrowernumbers[0], $foreign_bibnum) eq 'none_available'); > > # Test branch item rules > >@@ -491,10 +504,19 @@ sub create_helper_biblio { > my $itemtype = shift; > my $bib = MARC::Record->new(); > my $title = 'Silence in the library'; >- $bib->append_fields( >- MARC::Field->new('100', ' ', ' ', a => 'Moffat, Steven'), >- MARC::Field->new('245', ' ', ' ', a => $title), >- MARC::Field->new('942', ' ', ' ', c => $itemtype), >- ); >- return ($bibnum, $title, $bibitemnum) = AddBiblio($bib, ''); >+ if (C4::Context->preference('marcflavour') eq 'UNIMARC') { >+ $bib->append_fields( >+ MARC::Field->new('700', ' ', '0', a => 'Moffat, Steven'), >+ MARC::Field->new('200', ' ', ' ', a => $title), >+ MARC::Field->new('099', ' ', ' ', t => $itemtype), >+ ); >+ } else { >+ $bib->append_fields( >+ MARC::Field->new('100', ' ', ' ', a => 'Moffat, Steven'), >+ MARC::Field->new('245', ' ', ' ', a => $title), >+ MARC::Field->new('942', ' ', ' ', c => $itemtype), >+ ); >+ } >+ >+ return AddBiblio($bib, ''); > } >-- >2.1.4
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 11999
:
26589
|
28986
|
31524
|
35697
|
36358
|
36404
|
36630
|
38397
|
41951
|
41952
|
44631
|
44632
|
46262
|
46263
|
50224
|
50225
|
58741
|
58742
|
58743
|
63593
|
63594
|
63595
|
66267
|
66268
|
66269
|
66270
|
88300
|
88301
|
88302
|
88303
|
90142
|
90143
|
90144
|
90146
|
90147
|
91046
|
91402
|
91403
|
91479
|
91481
|
91494
|
91580
|
91581
|
91582
|
91590
|
91591
|
91592
|
91593
|
99927
|
99928
|
106481
|
106494
|
111687
|
111688
|
111689
|
112871
|
112872
|
112873
|
112874
|
120776
|
120777
|
120778
|
120779
|
120780
|
121531
|
121612