3 # Copyright 2000-2002 Katipo Communications
4 # 2006 SAN Ouest Provence
5 # 2007 BibLibre Paul POULAIN
7 # This file is part of Koha.
9 # Koha is free software; you can redistribute it and/or modify it under the
10 # terms of the GNU General Public License as published by the Free Software
11 # Foundation; either version 2 of the License, or (at your option) any later
14 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
15 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
16 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License along
19 # with Koha; if not, write to the Free Software Foundation, Inc.,
20 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
24 #use warnings; FIXME - Bug 2505
33 # for _koha_notify_reserve
34 use C4::Members::Messaging;
37 use C4::Branch qw( GetBranchDetail );
38 use C4::Dates qw( format_date_in_iso );
39 use List::MoreUtils qw( firstidx );
41 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
45 C4::Reserves - Koha functions for dealing with reservation.
53 This modules provides somes functions to deal with reservations.
55 Reserves are stored in reserves table.
56 The following columns contains important values :
57 - priority >0 : then the reserve is at 1st stage, and not yet affected to any item.
58 =0 : then the reserve is being dealed
59 - found : NULL : means the patron requested the 1st available, and we haven't choosen the item
60 T(ransit) : the reserve is linked to an item but is in transit to the pickup branch
61 W(aiting) : the reserve is linked to an item, is at the pickup branch, and is waiting on the hold shelf
62 F(inished) : the reserve has been completed, and is done
63 - itemnumber : empty : the reserve is still unaffected to an item
64 filled: the reserve is attached to an item
65 The complete workflow is :
66 ==== 1st use case ====
67 patron request a document, 1st available : P >0, F=NULL, I=NULL
68 a library having it run "transfertodo", and clic on the list
69 if there is no transfer to do, the reserve waiting
70 patron can pick it up P =0, F=W, I=filled
71 if there is a transfer to do, write in branchtransfer P =0, F=T, I=filled
72 The pickup library recieve the book, it check in P =0, F=W, I=filled
73 The patron borrow the book P =0, F=F, I=filled
75 ==== 2nd use case ====
76 patron requests a document, a given item,
77 If pickup is holding branch P =0, F=W, I=filled
78 If transfer needed, write in branchtransfer P =0, F=T, I=filled
79 The pickup library receive the book, it checks it in P =0, F=W, I=filled
80 The patron borrow the book P =0, F=F, I=filled
87 # set the version for version checking
94 &GetReservesFromItemnumber
95 &GetReservesFromBiblionumber
96 &GetReservesFromBorrowernumber
111 &ModReserveMinusPriority
117 &CancelExpiredReserves
119 &IsAvailableForItemLevelRequest
122 &ToggleLowestPriority
128 AddReserve($branch,$borrowernumber,$biblionumber,$constraint,$bibitems,$priority,$resdate,$expdate,$notes,$title,$checkitem,$found)
134 $branch, $borrowernumber, $biblionumber,
135 $constraint, $bibitems, $priority, $resdate, $expdate, $notes,
136 $title, $checkitem, $found
139 GetReserveFee($borrowernumber, $biblionumber, $constraint,
141 my $dbh = C4::Context->dbh;
142 my $const = lc substr( $constraint, 0, 1 );
143 $resdate = format_date_in_iso( $resdate ) if ( $resdate );
144 $resdate = C4::Dates->today( 'iso' ) unless ( $resdate );
146 $expdate = format_date_in_iso( $expdate );
148 undef $expdate; # make reserves.expirationdate default to null rather than '0000-00-00'
150 if ( C4::Context->preference( 'AllowHoldDateInFuture' ) ) {
151 # Make room in reserves for this before those of a later reserve date
152 $priority = _ShiftPriorityByDateAndPriority( $biblionumber, $resdate, $priority );
156 # If the reserv had the waiting status, we had the value of the resdate
157 if ( $found eq 'W' ) {
158 $waitingdate = $resdate;
162 # updates take place here
164 my $nextacctno = &getnextacctno( $borrowernumber );
166 INSERT INTO accountlines
167 (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding)
169 (?,?,now(),?,?,'Res',?)
171 my $usth = $dbh->prepare($query);
172 $usth->execute( $borrowernumber, $nextacctno, $fee,
173 "Reserve Charge - $title", $fee );
179 (borrowernumber,biblionumber,reservedate,branchcode,constrainttype,
180 priority,reservenotes,itemnumber,found,waitingdate,expirationdate)
185 my $sth = $dbh->prepare($query);
187 $borrowernumber, $biblionumber, $resdate, $branch,
188 $const, $priority, $notes, $checkitem,
189 $found, $waitingdate, $expdate
192 # Send e-mail to librarian if syspref is active
193 if(C4::Context->preference("emailLibrarianWhenHoldIsPlaced")){
194 my $borrower = C4::Members::GetMember(borrowernumber => $borrowernumber);
195 my $biblio = GetBiblioData($biblionumber);
196 my $letter = C4::Letters::getletter( 'reserves', 'HOLDPLACED');
197 my $branchcode = $borrower->{branchcode};
198 my $branch_details = C4::Branch::GetBranchDetail($branchcode);
199 my $admin_email_address =$branch_details->{'branchemail'} || C4::Context->preference('KohaAdminEmailAddress');
201 my %keys = (%$borrower, %$biblio);
202 foreach my $key (keys %keys) {
203 my $replacefield = "<<$key>>";
204 $letter->{content} =~ s/$replacefield/$keys{$key}/g;
205 $letter->{title} =~ s/$replacefield/$keys{$key}/g;
208 C4::Letters::EnqueueLetter(
210 borrowernumber => $borrowernumber,
211 message_transport_type => 'email',
212 from_address => $admin_email_address,
213 to_address => $admin_email_address,
222 ($const eq "o" || $const eq "e") or return; # FIXME: why not have a useful return value?
224 INSERT INTO reserveconstraints
225 (borrowernumber,biblionumber,reservedate,biblioitemnumber)
229 $sth = $dbh->prepare($query); # keep prepare outside the loop!
230 foreach (@$bibitems) {
231 $sth->execute($borrowernumber, $biblionumber, $resdate, $_);
234 return; # FIXME: why not have a useful return value?
237 =head2 GetReservesFromBiblionumber
239 ($count, $title_reserves) = &GetReserves($biblionumber);
241 This function gets the list of reservations for one C<$biblionumber>, returning a count
242 of the reserves and an arrayref pointing to the reserves for C<$biblionumber>.
246 sub GetReservesFromBiblionumber {
247 my ($biblionumber) = shift or return (0, []);
248 my ($all_dates) = shift;
249 my $dbh = C4::Context->dbh;
251 # Find the desired items in the reserves
254 timestamp AS rtimestamp,
266 WHERE biblionumber = ? ";
267 unless ( $all_dates ) {
268 $query .= "AND reservedate <= CURRENT_DATE()";
270 $query .= "ORDER BY priority";
271 my $sth = $dbh->prepare($query);
272 $sth->execute($biblionumber);
275 while ( my $data = $sth->fetchrow_hashref ) {
277 # FIXME - What is this doing? How do constraints work?
278 if ($data->{constrainttype} eq 'o') {
280 SELECT biblioitemnumber
281 FROM reserveconstraints
282 WHERE biblionumber = ?
283 AND borrowernumber = ?
286 my $csth = $dbh->prepare($query);
287 $csth->execute($data->{biblionumber}, $data->{borrowernumber}, $data->{reservedate});
289 while ( my $bibitemnos = $csth->fetchrow_array ) {
290 push( @bibitemno, $bibitemnos ); # FIXME: inefficient: use fetchall_arrayref
292 my $count = scalar @bibitemno;
294 # if we have two or more different specific itemtypes
295 # reserved by same person on same day
298 $bdata = GetBiblioItemData( $bibitemno[$i] ); # FIXME: This doesn't make sense.
299 $i++; # $i can increase each pass, but the next @bibitemno might be smaller?
302 # Look up the book we just found.
303 $bdata = GetBiblioItemData( $bibitemno[0] );
305 # Add the results of this latest search to the current
307 # FIXME - An 'each' would probably be more efficient.
308 foreach my $key ( keys %$bdata ) {
309 $data->{$key} = $bdata->{$key};
312 push @results, $data;
314 return ( $#results + 1, \@results );
317 =head2 GetReservesFromItemnumber
319 ( $reservedate, $borrowernumber, $branchcode ) = GetReservesFromItemnumber($itemnumber);
321 TODO :: Description here
325 sub GetReservesFromItemnumber {
326 my ( $itemnumber, $all_dates ) = @_;
327 my $dbh = C4::Context->dbh;
329 SELECT reservedate,borrowernumber,branchcode
333 unless ( $all_dates ) {
334 $query .= " AND reservedate <= CURRENT_DATE()";
336 my $sth_res = $dbh->prepare($query);
337 $sth_res->execute($itemnumber);
338 my ( $reservedate, $borrowernumber,$branchcode ) = $sth_res->fetchrow_array;
339 return ( $reservedate, $borrowernumber, $branchcode );
342 =head2 GetReservesFromBorrowernumber
344 $borrowerreserv = GetReservesFromBorrowernumber($borrowernumber,$tatus);
350 sub GetReservesFromBorrowernumber {
351 my ( $borrowernumber, $status ) = @_;
352 my $dbh = C4::Context->dbh;
355 $sth = $dbh->prepare("
358 WHERE borrowernumber=?
362 $sth->execute($borrowernumber,$status);
364 $sth = $dbh->prepare("
367 WHERE borrowernumber=?
370 $sth->execute($borrowernumber);
372 my $data = $sth->fetchall_arrayref({});
375 #-------------------------------------------------------------------------------------
376 =head2 CanBookBeReserved
378 $error = &CanBookBeReserved($borrowernumber, $biblionumber)
382 sub CanBookBeReserved{
383 my ($borrowernumber, $biblionumber) = @_;
385 my @items = GetItemsInfo($biblionumber);
386 foreach my $item (@items){
387 return 1 if CanItemBeReserved($borrowernumber, $item->{itemnumber});
392 =head2 CanItemBeReserved
394 $error = &CanItemBeReserved($borrowernumber, $itemnumber)
396 This function return 1 if an item can be issued by this borrower.
400 sub CanItemBeReserved{
401 my ($borrowernumber, $itemnumber) = @_;
403 my $dbh = C4::Context->dbh;
404 my $allowedreserves = 0;
406 my $controlbranch = C4::Context->preference('ReservesControlBranch');
407 my $itype = C4::Context->preference('item-level_itypes') ? "itype" : "itemtype";
409 # we retrieve borrowers and items informations #
410 my $item = GetItem($itemnumber);
411 my $borrower = C4::Members::GetMember('borrowernumber'=>$borrowernumber);
413 # we retrieve user rights on this itemtype and branchcode
414 my $sth = $dbh->prepare("SELECT categorycode, itemtype, branchcode, reservesallowed
416 WHERE (categorycode in (?,'*') )
417 AND (itemtype IN (?,'*'))
418 AND (branchcode IN (?,'*'))
425 my $querycount ="SELECT
428 LEFT JOIN items USING (itemnumber)
429 LEFT JOIN biblioitems ON (reserves.biblionumber=biblioitems.biblionumber)
430 LEFT JOIN borrowers USING (borrowernumber)
431 WHERE borrowernumber = ?
435 my $itemtype = $item->{$itype};
436 my $categorycode = $borrower->{categorycode};
438 my $branchfield = "reserves.branchcode";
440 if( $controlbranch eq "ItemHomeLibrary" ){
441 $branchfield = "items.homebranch";
442 $branchcode = $item->{homebranch};
443 }elsif( $controlbranch eq "PatronLibrary" ){
444 $branchfield = "borrowers.branchcode";
445 $branchcode = $borrower->{branchcode};
449 $sth->execute($categorycode, $itemtype, $branchcode);
450 if(my $rights = $sth->fetchrow_hashref()){
451 $itemtype = $rights->{itemtype};
452 $allowedreserves = $rights->{reservesallowed};
459 $querycount .= "AND $branchfield = ?";
461 $querycount .= " AND $itype = ?" if ($itemtype ne "*");
462 my $sthcount = $dbh->prepare($querycount);
464 if($itemtype eq "*"){
465 $sthcount->execute($borrowernumber, $branchcode);
467 $sthcount->execute($borrowernumber, $branchcode, $itemtype);
470 my $reservecount = "0";
471 if(my $rowcount = $sthcount->fetchrow_hashref()){
472 $reservecount = $rowcount->{count};
475 # we check if it's ok or not
476 if( $reservecount < $allowedreserves ){
482 #--------------------------------------------------------------------------------
483 =head2 GetReserveCount
485 $number = &GetReserveCount($borrowernumber);
487 this function returns the number of reservation for a borrower given on input arg.
491 sub GetReserveCount {
492 my ($borrowernumber) = @_;
494 my $dbh = C4::Context->dbh;
497 SELECT COUNT(*) AS counter
499 WHERE borrowernumber = ?
501 my $sth = $dbh->prepare($query);
502 $sth->execute($borrowernumber);
503 my $row = $sth->fetchrow_hashref;
504 return $row->{counter};
507 =head2 GetOtherReserves
509 ($messages,$nextreservinfo)=$GetOtherReserves(itemnumber);
511 Check queued list of this document and check if this document must be transfered
515 sub GetOtherReserves {
516 my ($itemnumber) = @_;
519 my ( $restype, $checkreserves ) = CheckReserves($itemnumber);
520 if ($checkreserves) {
521 my $iteminfo = GetItem($itemnumber);
522 if ( $iteminfo->{'holdingbranch'} ne $checkreserves->{'branchcode'} ) {
523 $messages->{'transfert'} = $checkreserves->{'branchcode'};
524 #minus priorities of others reservs
525 ModReserveMinusPriority(
527 $checkreserves->{'borrowernumber'},
528 $iteminfo->{'biblionumber'}
531 #launch the subroutine dotransfer
532 C4::Items::ModItemTransfer(
534 $iteminfo->{'holdingbranch'},
535 $checkreserves->{'branchcode'}
540 #step 2b : case of a reservation on the same branch, set the waiting status
542 $messages->{'waiting'} = 1;
543 ModReserveMinusPriority(
545 $checkreserves->{'borrowernumber'},
546 $iteminfo->{'biblionumber'}
548 ModReserveStatus($itemnumber,'W');
551 $nextreservinfo = $checkreserves->{'borrowernumber'};
554 return ( $messages, $nextreservinfo );
559 $fee = GetReserveFee($borrowernumber,$biblionumber,$constraint,$biblionumber);
561 Calculate the fee for a reserve
566 my ($borrowernumber, $biblionumber, $constraint, $bibitems ) = @_;
569 my $dbh = C4::Context->dbh;
570 my $const = lc substr( $constraint, 0, 1 );
572 SELECT * FROM borrowers
573 LEFT JOIN categories ON borrowers.categorycode = categories.categorycode
574 WHERE borrowernumber = ?
576 my $sth = $dbh->prepare($query);
577 $sth->execute($borrowernumber);
578 my $data = $sth->fetchrow_hashref;
580 my $fee = $data->{'reservefee'};
581 my $cntitems = @- > $bibitems;
585 # check for items on issue
586 # first find biblioitem records
588 my $sth1 = $dbh->prepare(
589 "SELECT * FROM biblio LEFT JOIN biblioitems on biblio.biblionumber = biblioitems.biblionumber
590 WHERE (biblio.biblionumber = ?)"
592 $sth1->execute($biblionumber);
593 while ( my $data1 = $sth1->fetchrow_hashref ) {
594 if ( $const eq "a" ) {
595 push @biblioitems, $data1;
600 while ( $x < $cntitems ) {
601 if ( @$bibitems->{'biblioitemnumber'} ==
602 $data->{'biblioitemnumber'} )
608 if ( $const eq 'o' ) {
610 push @biblioitems, $data1;
615 push @biblioitems, $data1;
621 my $cntitemsfound = @biblioitems;
625 while ( $x < $cntitemsfound ) {
626 my $bitdata = $biblioitems[$x];
627 my $sth2 = $dbh->prepare(
629 WHERE biblioitemnumber = ?"
631 $sth2->execute( $bitdata->{'biblioitemnumber'} );
632 while ( my $itdata = $sth2->fetchrow_hashref ) {
633 my $sth3 = $dbh->prepare(
634 "SELECT * FROM issues
635 WHERE itemnumber = ?"
637 $sth3->execute( $itdata->{'itemnumber'} );
638 if ( my $isdata = $sth3->fetchrow_hashref ) {
646 if ( $allissued == 0 ) {
648 $dbh->prepare("SELECT * FROM reserves WHERE biblionumber = ?");
649 $rsth->execute($biblionumber);
650 if ( my $rdata = $rsth->fetchrow_hashref ) {
660 =head2 GetReservesToBranch
662 @transreserv = GetReservesToBranch( $frombranch );
664 Get reserve list for a given branch
668 sub GetReservesToBranch {
669 my ( $frombranch ) = @_;
670 my $dbh = C4::Context->dbh;
671 my $sth = $dbh->prepare(
672 "SELECT borrowernumber,reservedate,itemnumber,timestamp
677 $sth->execute( $frombranch );
680 while ( my $data = $sth->fetchrow_hashref ) {
681 $transreserv[$i] = $data;
684 return (@transreserv);
687 =head2 GetReservesForBranch
689 @transreserv = GetReservesForBranch($frombranch);
693 sub GetReservesForBranch {
694 my ($frombranch) = @_;
695 my $dbh = C4::Context->dbh;
696 my $query = "SELECT borrowernumber,reservedate,itemnumber,waitingdate
701 $query .= " AND branchcode=? ";
703 $query .= "ORDER BY waitingdate" ;
704 my $sth = $dbh->prepare($query);
706 $sth->execute($frombranch);
713 while ( my $data = $sth->fetchrow_hashref ) {
714 $transreserv[$i] = $data;
717 return (@transreserv);
720 sub GetReserveStatus {
721 my ($itemnumber) = @_;
723 my $dbh = C4::Context->dbh;
725 my $itemstatus = $dbh->prepare("SELECT found FROM reserves WHERE itemnumber = ?");
727 $itemstatus->execute($itemnumber);
728 my ($found) = $itemstatus->fetchrow_array;
734 ($status, $reserve) = &CheckReserves($itemnumber);
735 ($status, $reserve) = &CheckReserves(undef, $barcode);
737 Find a book in the reserves.
739 C<$itemnumber> is the book's item number.
741 As I understand it, C<&CheckReserves> looks for the given item in the
742 reserves. If it is found, that's a match, and C<$status> is set to
745 Otherwise, it finds the most important item in the reserves with the
746 same biblio number as this book (I'm not clear on this) and returns it
747 with C<$status> set to C<Reserved>.
749 C<&CheckReserves> returns a two-element list:
751 C<$status> is either C<Waiting>, C<Reserved> (see above), or 0.
753 C<$reserve> is the reserve item that matched. It is a
754 reference-to-hash whose keys are mostly the fields of the reserves
755 table in the Koha database.
760 my ( $item, $barcode ) = @_;
761 my $dbh = C4::Context->dbh;
764 SELECT items.biblionumber,
765 items.biblioitemnumber,
766 itemtypes.notforloan,
767 items.notforloan AS itemnotforloan,
770 LEFT JOIN biblioitems ON items.biblioitemnumber = biblioitems.biblioitemnumber
771 LEFT JOIN itemtypes ON biblioitems.itemtype = itemtypes.itemtype
775 $sth = $dbh->prepare("$select WHERE itemnumber = ?");
776 $sth->execute($item);
779 $sth = $dbh->prepare("$select WHERE barcode = ?");
780 $sth->execute($barcode);
782 # note: we get the itemnumber because we might have started w/ just the barcode. Now we know for sure we have it.
783 my ( $biblio, $bibitem, $notforloan_per_itemtype, $notforloan_per_item, $itemnumber ) = $sth->fetchrow_array;
785 return ( 0, 0 ) unless $itemnumber; # bail if we got nothing.
787 # if item is not for loan it cannot be reserved either.....
788 # execpt where items.notforloan < 0 : This indicates the item is holdable.
789 return ( 0, 0 ) if ( $notforloan_per_item > 0 ) or $notforloan_per_itemtype;
791 # Find this item in the reserves
792 my @reserves = _Findgroupreserve( $bibitem, $biblio, $itemnumber );
794 # $priority and $highest are used to find the most important item
795 # in the list returned by &_Findgroupreserve. (The lower $priority,
796 # the more important the item.)
797 # $highest is the most important item we've seen so far.
799 if (scalar @reserves) {
800 my $priority = 10000000;
801 foreach my $res (@reserves) {
802 if ( $res->{'itemnumber'} == $itemnumber && $res->{'priority'} == 0) {
803 return ( "Waiting", $res ); # Found it
805 # See if this item is more important than what we've got so far
806 if ( $res->{'priority'} && $res->{'priority'} < $priority ) {
807 my $borrowerinfo=C4::Members::GetMemberDetails($res->{'borrowernumber'});
808 my $iteminfo=C4::Items::GetItem($itemnumber);
809 my $branch=C4::Circulation::_GetCircControlBranch($iteminfo,$borrowerinfo);
810 my $branchitemrule = C4::Circulation::GetBranchItemRule($branch,$iteminfo->{'itype'});
811 next if ($branchitemrule->{'holdallowed'} == 0);
812 next if (($branchitemrule->{'holdallowed'} == 1) && ($branch ne $borrowerinfo->{'branchcode'}));
813 $priority = $res->{'priority'};
820 # If we get this far, then no exact match was found.
821 # We return the most important (i.e. next) reservation.
823 $highest->{'itemnumber'} = $item;
824 return ( "Reserved", $highest );
831 =head2 CancelExpiredReserves
833 CancelExpiredReserves();
835 Cancels all reserves with an expiration date from before today.
839 sub CancelExpiredReserves {
841 my $dbh = C4::Context->dbh;
842 my $sth = $dbh->prepare( "
843 SELECT * FROM reserves WHERE DATE(expirationdate) < DATE( CURDATE() )
844 AND expirationdate IS NOT NULL
848 while ( my $res = $sth->fetchrow_hashref() ) {
849 CancelReserve( $res->{'biblionumber'}, '', $res->{'borrowernumber'} );
856 &CancelReserve($biblionumber, $itemnumber, $borrowernumber);
860 Use either C<$biblionumber> or C<$itemnumber> to specify the item to
861 cancel, but not both: if both are given, C<&CancelReserve> does
864 C<$borrowernumber> is the borrower number of the patron on whose
865 behalf the book was reserved.
867 If C<$biblionumber> was given, C<&CancelReserve> also adjusts the
868 priorities of the other people who are waiting on the book.
873 my ( $biblio, $item, $borr ) = @_;
874 my $dbh = C4::Context->dbh;
875 if ( $item and $borr ) {
876 # removing a waiting reserve record....
877 # update the database...
880 SET cancellationdate = now(),
884 AND borrowernumber = ?
886 my $sth = $dbh->prepare($query);
887 $sth->execute( $item, $borr );
890 INSERT INTO old_reserves
891 SELECT * FROM reserves
893 AND borrowernumber = ?
895 $sth = $dbh->prepare($query);
896 $sth->execute( $item, $borr );
900 AND borrowernumber = ?
902 $sth = $dbh->prepare($query);
903 $sth->execute( $item, $borr );
906 # removing a reserve record....
907 # get the prioritiy on this record....
910 SELECT priority FROM reserves
911 WHERE biblionumber = ?
912 AND borrowernumber = ?
913 AND cancellationdate IS NULL
914 AND itemnumber IS NULL
916 my $sth = $dbh->prepare($query);
917 $sth->execute( $biblio, $borr );
918 ($priority) = $sth->fetchrow_array;
922 SET cancellationdate = now(),
925 WHERE biblionumber = ?
926 AND borrowernumber = ?
929 # update the database, removing the record...
930 $sth = $dbh->prepare($query);
931 $sth->execute( $biblio, $borr );
935 INSERT INTO old_reserves
936 SELECT * FROM reserves
937 WHERE biblionumber = ?
938 AND borrowernumber = ?
940 $sth = $dbh->prepare($query);
941 $sth->execute( $biblio, $borr );
945 WHERE biblionumber = ?
946 AND borrowernumber = ?
948 $sth = $dbh->prepare($query);
949 $sth->execute( $biblio, $borr );
951 # now fix the priority on the others....
952 _FixPriority( $biblio, $borr );
958 ModReserve($rank, $biblio, $borrower, $branch[, $itemnumber])
960 Change a hold request's priority or cancel it.
962 C<$rank> specifies the effect of the change. If C<$rank>
963 is 'W' or 'n', nothing happens. This corresponds to leaving a
964 request alone when changing its priority in the holds queue
967 If C<$rank> is 'del', the hold request is cancelled.
969 If C<$rank> is an integer greater than zero, the priority of
970 the request is set to that value. Since priority != 0 means
971 that the item is not waiting on the hold shelf, setting the
972 priority to a non-zero value also sets the request's found
973 status and waiting date to NULL.
975 The optional C<$itemnumber> parameter is used only when
976 C<$rank> is a non-zero integer; if supplied, the itemnumber
977 of the hold request is set accordingly; if omitted, the itemnumber
980 B<FIXME:> Note that the forgoing can have the effect of causing
981 item-level hold requests to turn into title-level requests. This
982 will be fixed once reserves has separate columns for requested
983 itemnumber and supplying itemnumber.
988 #subroutine to update a reserve
989 my ( $rank, $biblio, $borrower, $branch , $itemnumber) = @_;
990 return if $rank eq "W";
991 return if $rank eq "n";
992 my $dbh = C4::Context->dbh;
993 if ( $rank eq "del" ) {
996 SET cancellationdate=now()
997 WHERE biblionumber = ?
998 AND borrowernumber = ?
1000 my $sth = $dbh->prepare($query);
1001 $sth->execute( $biblio, $borrower );
1004 INSERT INTO old_reserves
1007 WHERE biblionumber = ?
1008 AND borrowernumber = ?
1010 $sth = $dbh->prepare($query);
1011 $sth->execute( $biblio, $borrower );
1013 DELETE FROM reserves
1014 WHERE biblionumber = ?
1015 AND borrowernumber = ?
1017 $sth = $dbh->prepare($query);
1018 $sth->execute( $biblio, $borrower );
1021 elsif ($rank =~ /^\d+/ and $rank > 0) {
1023 UPDATE reserves SET priority = ? ,branchcode = ?, itemnumber = ?, found = NULL, waitingdate = NULL
1024 WHERE biblionumber = ?
1025 AND borrowernumber = ?
1027 my $sth = $dbh->prepare($query);
1028 $sth->execute( $rank, $branch,$itemnumber, $biblio, $borrower);
1030 _FixPriority( $biblio, $borrower, $rank);
1034 =head2 ModReserveFill
1036 &ModReserveFill($reserve);
1038 Fill a reserve. If I understand this correctly, this means that the
1039 reserved book has been found and given to the patron who reserved it.
1041 C<$reserve> specifies the reserve to fill. It is a reference-to-hash
1042 whose keys are fields from the reserves table in the Koha database.
1046 sub ModReserveFill {
1048 my $dbh = C4::Context->dbh;
1049 # fill in a reserve record....
1050 my $biblionumber = $res->{'biblionumber'};
1051 my $borrowernumber = $res->{'borrowernumber'};
1052 my $resdate = $res->{'reservedate'};
1054 # get the priority on this record....
1056 my $query = "SELECT priority
1058 WHERE biblionumber = ?
1059 AND borrowernumber = ?
1060 AND reservedate = ?";
1061 my $sth = $dbh->prepare($query);
1062 $sth->execute( $biblionumber, $borrowernumber, $resdate );
1063 ($priority) = $sth->fetchrow_array;
1066 # update the database...
1067 $query = "UPDATE reserves
1070 WHERE biblionumber = ?
1072 AND borrowernumber = ?
1074 $sth = $dbh->prepare($query);
1075 $sth->execute( $biblionumber, $resdate, $borrowernumber );
1078 # move to old_reserves
1079 $query = "INSERT INTO old_reserves
1080 SELECT * FROM reserves
1081 WHERE biblionumber = ?
1083 AND borrowernumber = ?
1085 $sth = $dbh->prepare($query);
1086 $sth->execute( $biblionumber, $resdate, $borrowernumber );
1087 $query = "DELETE FROM reserves
1088 WHERE biblionumber = ?
1090 AND borrowernumber = ?
1092 $sth = $dbh->prepare($query);
1093 $sth->execute( $biblionumber, $resdate, $borrowernumber );
1095 # now fix the priority on the others (if the priority wasn't
1096 # already sorted!)....
1097 unless ( $priority == 0 ) {
1098 _FixPriority( $biblionumber, $borrowernumber );
1102 =head2 ModReserveStatus
1104 &ModReserveStatus($itemnumber, $newstatus);
1106 Update the reserve status for the active (priority=0) reserve.
1108 $itemnumber is the itemnumber the reserve is on
1110 $newstatus is the new status.
1114 sub ModReserveStatus {
1116 #first : check if we have a reservation for this item .
1117 my ($itemnumber, $newstatus) = @_;
1118 my $dbh = C4::Context->dbh;
1119 my $query = " UPDATE reserves
1120 SET found=?,waitingdate = now()
1125 my $sth_set = $dbh->prepare($query);
1126 $sth_set->execute( $newstatus, $itemnumber );
1128 if ( C4::Context->preference("ReturnToShelvingCart") && $newstatus ) {
1129 CartToShelf( $itemnumber );
1133 =head2 ModReserveAffect
1135 &ModReserveAffect($itemnumber,$borrowernumber,$diffBranchSend);
1137 This function affect an item and a status for a given reserve
1138 The itemnumber parameter is used to find the biblionumber.
1139 with the biblionumber & the borrowernumber, we can affect the itemnumber
1140 to the correct reserve.
1142 if $transferToDo is not set, then the status is set to "Waiting" as well.
1143 otherwise, a transfer is on the way, and the end of the transfer will
1144 take care of the waiting status
1148 sub ModReserveAffect {
1149 my ( $itemnumber, $borrowernumber,$transferToDo ) = @_;
1150 my $dbh = C4::Context->dbh;
1152 # we want to attach $itemnumber to $borrowernumber, find the biblionumber
1153 # attached to $itemnumber
1154 my $sth = $dbh->prepare("SELECT biblionumber FROM items WHERE itemnumber=?");
1155 $sth->execute($itemnumber);
1156 my ($biblionumber) = $sth->fetchrow;
1158 # get request - need to find out if item is already
1159 # waiting in order to not send duplicate hold filled notifications
1160 my $request = GetReserveInfo($borrowernumber, $biblionumber);
1161 my $already_on_shelf = ($request && $request->{found} eq 'W') ? 1 : 0;
1163 # If we affect a reserve that has to be transfered, don't set to Waiting
1165 if ($transferToDo) {
1171 WHERE borrowernumber = ?
1172 AND biblionumber = ?
1176 # affect the reserve to Waiting as well.
1183 WHERE borrowernumber = ?
1184 AND biblionumber = ?
1187 $sth = $dbh->prepare($query);
1188 $sth->execute( $itemnumber, $borrowernumber,$biblionumber);
1189 _koha_notify_reserve( $itemnumber, $borrowernumber, $biblionumber ) if ( !$transferToDo && !$already_on_shelf );
1191 if ( C4::Context->preference("ReturnToShelvingCart") ) {
1192 CartToShelf( $itemnumber );
1198 =head2 ModReserveCancelAll
1200 ($messages,$nextreservinfo) = &ModReserveCancelAll($itemnumber,$borrowernumber);
1202 function to cancel reserv,check other reserves, and transfer document if it's necessary
1206 sub ModReserveCancelAll {
1209 my ( $itemnumber, $borrowernumber ) = @_;
1211 #step 1 : cancel the reservation
1212 my $CancelReserve = CancelReserve( undef, $itemnumber, $borrowernumber );
1214 #step 2 launch the subroutine of the others reserves
1215 ( $messages, $nextreservinfo ) = GetOtherReserves($itemnumber);
1217 return ( $messages, $nextreservinfo );
1220 =head2 ModReserveMinusPriority
1222 &ModReserveMinusPriority($itemnumber,$borrowernumber,$biblionumber)
1224 Reduce the values of queuded list
1228 sub ModReserveMinusPriority {
1229 my ( $itemnumber, $borrowernumber, $biblionumber ) = @_;
1231 #first step update the value of the first person on reserv
1232 my $dbh = C4::Context->dbh;
1235 SET priority = 0 , itemnumber = ?
1236 WHERE borrowernumber=?
1239 my $sth_upd = $dbh->prepare($query);
1240 $sth_upd->execute( $itemnumber, $borrowernumber, $biblionumber );
1241 # second step update all others reservs
1242 _FixPriority($biblionumber, $borrowernumber, '0');
1245 =head2 GetReserveInfo
1247 &GetReserveInfo($borrowernumber,$biblionumber);
1249 Get item and borrower details for a current hold.
1250 Current implementation this query should have a single result.
1254 sub GetReserveInfo {
1255 my ( $borrowernumber, $biblionumber ) = @_;
1256 my $dbh = C4::Context->dbh;
1260 reserves.borrowernumber,
1261 reserves.biblionumber,
1262 reserves.branchcode,
1263 reserves.waitingdate,
1279 items.holdingbranch,
1280 items.itemcallnumber,
1286 LEFT JOIN items USING(itemnumber)
1287 LEFT JOIN borrowers USING(borrowernumber)
1288 LEFT JOIN biblio ON (reserves.biblionumber=biblio.biblionumber)
1290 reserves.borrowernumber=?
1291 AND reserves.biblionumber=?";
1292 my $sth = $dbh->prepare($strsth);
1293 $sth->execute($borrowernumber,$biblionumber);
1295 my $data = $sth->fetchrow_hashref;
1300 =head2 IsAvailableForItemLevelRequest
1302 my $is_available = IsAvailableForItemLevelRequest($itemnumber);
1304 Checks whether a given item record is available for an
1305 item-level hold request. An item is available if
1307 * it is not lost AND
1308 * it is not damaged AND
1309 * it is not withdrawn AND
1310 * does not have a not for loan value > 0
1312 Whether or not the item is currently on loan is
1313 also checked - if the AllowOnShelfHolds system preference
1314 is ON, an item can be requested even if it is currently
1315 on loan to somebody else. If the system preference
1316 is OFF, an item that is currently checked out cannot
1317 be the target of an item-level hold request.
1319 Note that IsAvailableForItemLevelRequest() does not
1320 check if the staff operator is authorized to place
1321 a request on the item - in particular,
1322 this routine does not check IndependantBranches
1323 and canreservefromotherbranches.
1327 sub IsAvailableForItemLevelRequest {
1328 my $itemnumber = shift;
1330 my $item = GetItem($itemnumber);
1332 # must check the notforloan setting of the itemtype
1333 # FIXME - a lot of places in the code do this
1334 # or something similar - need to be
1336 my $dbh = C4::Context->dbh;
1337 my $notforloan_query;
1338 if (C4::Context->preference('item-level_itypes')) {
1339 $notforloan_query = "SELECT itemtypes.notforloan
1341 JOIN itemtypes ON (itemtypes.itemtype = items.itype)
1342 WHERE itemnumber = ?";
1344 $notforloan_query = "SELECT itemtypes.notforloan
1346 JOIN biblioitems USING (biblioitemnumber)
1347 JOIN itemtypes USING (itemtype)
1348 WHERE itemnumber = ?";
1350 my $sth = $dbh->prepare($notforloan_query);
1351 $sth->execute($itemnumber);
1352 my $notforloan_per_itemtype = 0;
1353 if (my ($notforloan) = $sth->fetchrow_array) {
1354 $notforloan_per_itemtype = 1 if $notforloan;
1357 my $available_per_item = 1;
1358 $available_per_item = 0 if $item->{itemlost} or
1359 ( $item->{notforloan} > 0 ) or
1360 ($item->{damaged} and not C4::Context->preference('AllowHoldsOnDamagedItems')) or
1361 $item->{wthdrawn} or
1362 $notforloan_per_itemtype;
1365 if (C4::Context->preference('AllowOnShelfHolds')) {
1366 return $available_per_item;
1368 return ($available_per_item and ($item->{onloan} or GetReserveStatus($itemnumber) eq "W"));
1372 =head2 AlterPriority
1374 AlterPriority( $where, $borrowernumber, $biblionumber, $reservedate );
1376 This function changes a reserve's priority up, down, to the top, or to the bottom.
1377 Input: $where is 'up', 'down', 'top' or 'bottom'. Biblionumber, Date reserve was placed
1382 my ( $where, $borrowernumber, $biblionumber ) = @_;
1384 my $dbh = C4::Context->dbh;
1386 ## Find this reserve
1387 my $sth = $dbh->prepare('SELECT * FROM reserves WHERE biblionumber = ? AND borrowernumber = ? AND cancellationdate IS NULL');
1388 $sth->execute( $biblionumber, $borrowernumber );
1389 my $reserve = $sth->fetchrow_hashref();
1392 if ( $where eq 'up' || $where eq 'down' ) {
1394 my $priority = $reserve->{'priority'};
1395 $priority = $where eq 'up' ? $priority - 1 : $priority + 1;
1396 _FixPriority( $biblionumber, $borrowernumber, $priority )
1398 } elsif ( $where eq 'top' ) {
1400 _FixPriority( $biblionumber, $borrowernumber, '1' )
1402 } elsif ( $where eq 'bottom' ) {
1404 _FixPriority( $biblionumber, $borrowernumber, '999999' )
1409 =head2 ToggleLowestPriority
1411 ToggleLowestPriority( $borrowernumber, $biblionumber );
1413 This function sets the lowestPriority field to true if is false, and false if it is true.
1417 sub ToggleLowestPriority {
1418 my ( $borrowernumber, $biblionumber ) = @_;
1420 my $dbh = C4::Context->dbh;
1422 my $sth = $dbh->prepare(
1423 "UPDATE reserves SET lowestPriority = NOT lowestPriority
1424 WHERE biblionumber = ?
1425 AND borrowernumber = ?"
1433 _FixPriority( $biblionumber, $borrowernumber, '999999' );
1438 &_FixPriority($biblio,$borrowernumber,$rank,$ignoreSetLowestRank);
1440 Only used internally (so don't export it)
1441 Changed how this functions works #
1442 Now just gets an array of reserves in the rank order and updates them with
1443 the array index (+1 as array starts from 0)
1444 and if $rank is supplied will splice item from the array and splice it back in again
1445 in new priority rank
1450 my ( $biblio, $borrowernumber, $rank, $ignoreSetLowestRank ) = @_;
1451 my $dbh = C4::Context->dbh;
1452 if ( $rank eq "del" ) {
1453 CancelReserve( $biblio, undef, $borrowernumber );
1455 if ( $rank eq "W" || $rank eq "0" ) {
1457 # make sure priority for waiting or in-transit items is 0
1461 WHERE biblionumber = ?
1462 AND borrowernumber = ?
1463 AND found IN ('W', 'T')
1465 my $sth = $dbh->prepare($query);
1466 $sth->execute( $biblio, $borrowernumber );
1472 # FIXME adding a new security in returned elements for changing priority,
1473 # now, we don't care anymore any reservations with itemnumber linked (suppose a waiting reserve)
1474 # This is wrong a waiting reserve has W set
1475 # The assumption that having an itemnumber set means waiting is wrong and should be corrected any place it occurs
1477 SELECT borrowernumber, reservedate, constrainttype
1479 WHERE biblionumber = ?
1480 AND ((found <> 'W' AND found <> 'T') or found is NULL)
1481 ORDER BY priority ASC
1483 my $sth = $dbh->prepare($query);
1484 $sth->execute($biblio);
1485 while ( my $line = $sth->fetchrow_hashref ) {
1486 push( @reservedates, $line );
1487 push( @priority, $line );
1490 # To find the matching index
1492 my $key = -1; # to allow for 0 to be a valid result
1493 for ( $i = 0 ; $i < @priority ; $i++ ) {
1494 if ( $borrowernumber == $priority[$i]->{'borrowernumber'} ) {
1495 $key = $i; # save the index
1500 # if index exists in array then move it to new position
1501 if ( $key > -1 && $rank ne 'del' && $rank > 0 ) {
1502 my $new_rank = $rank -
1503 1; # $new_rank is what you want the new index to be in the array
1504 my $moving_item = splice( @priority, $key, 1 );
1505 splice( @priority, $new_rank, 0, $moving_item );
1508 # now fix the priority on those that are left....
1512 WHERE biblionumber = ?
1513 AND borrowernumber = ?
1517 $sth = $dbh->prepare($query);
1518 for ( my $j = 0 ; $j < @priority ; $j++ ) {
1521 $priority[$j]->{'borrowernumber'},
1522 $priority[$j]->{'reservedate'}
1527 $sth = $dbh->prepare( "SELECT borrowernumber FROM reserves WHERE lowestPriority = 1 ORDER BY priority" );
1530 unless ( $ignoreSetLowestRank ) {
1531 while ( my $res = $sth->fetchrow_hashref() ) {
1532 _FixPriority( $biblio, $res->{'borrowernumber'}, '999999', 1 );
1537 =head2 _Findgroupreserve
1539 @results = &_Findgroupreserve($biblioitemnumber, $biblionumber, $itemnumber);
1541 Looks for an item-specific match first, then for a title-level match, returning the
1542 first match found. If neither, then we look for a 3rd kind of match based on
1543 reserve constraints.
1545 TODO: add more explanation about reserve constraints
1547 C<&_Findgroupreserve> returns :
1548 C<@results> is an array of references-to-hash whose keys are mostly
1549 fields from the reserves table of the Koha database, plus
1550 C<biblioitemnumber>.
1554 sub _Findgroupreserve {
1555 my ( $bibitem, $biblio, $itemnumber ) = @_;
1556 my $dbh = C4::Context->dbh;
1558 # TODO: consolidate at least the SELECT portion of the first 2 queries to a common $select var.
1559 # check for exact targetted match
1560 my $item_level_target_query = qq/
1561 SELECT reserves.biblionumber AS biblionumber,
1562 reserves.borrowernumber AS borrowernumber,
1563 reserves.reservedate AS reservedate,
1564 reserves.branchcode AS branchcode,
1565 reserves.cancellationdate AS cancellationdate,
1566 reserves.found AS found,
1567 reserves.reservenotes AS reservenotes,
1568 reserves.priority AS priority,
1569 reserves.timestamp AS timestamp,
1570 biblioitems.biblioitemnumber AS biblioitemnumber,
1571 reserves.itemnumber AS itemnumber
1573 JOIN biblioitems USING (biblionumber)
1574 JOIN hold_fill_targets USING (biblionumber, borrowernumber, itemnumber)
1577 AND item_level_request = 1
1579 AND reservedate <= CURRENT_DATE()
1581 my $sth = $dbh->prepare($item_level_target_query);
1582 $sth->execute($itemnumber);
1584 if ( my $data = $sth->fetchrow_hashref ) {
1585 push( @results, $data );
1587 return @results if @results;
1589 # check for title-level targetted match
1590 my $title_level_target_query = qq/
1591 SELECT reserves.biblionumber AS biblionumber,
1592 reserves.borrowernumber AS borrowernumber,
1593 reserves.reservedate AS reservedate,
1594 reserves.branchcode AS branchcode,
1595 reserves.cancellationdate AS cancellationdate,
1596 reserves.found AS found,
1597 reserves.reservenotes AS reservenotes,
1598 reserves.priority AS priority,
1599 reserves.timestamp AS timestamp,
1600 biblioitems.biblioitemnumber AS biblioitemnumber,
1601 reserves.itemnumber AS itemnumber
1603 JOIN biblioitems USING (biblionumber)
1604 JOIN hold_fill_targets USING (biblionumber, borrowernumber)
1607 AND item_level_request = 0
1608 AND hold_fill_targets.itemnumber = ?
1609 AND reservedate <= CURRENT_DATE()
1611 $sth = $dbh->prepare($title_level_target_query);
1612 $sth->execute($itemnumber);
1614 if ( my $data = $sth->fetchrow_hashref ) {
1615 push( @results, $data );
1617 return @results if @results;
1620 SELECT reserves.biblionumber AS biblionumber,
1621 reserves.borrowernumber AS borrowernumber,
1622 reserves.reservedate AS reservedate,
1623 reserves.waitingdate AS waitingdate,
1624 reserves.branchcode AS branchcode,
1625 reserves.cancellationdate AS cancellationdate,
1626 reserves.found AS found,
1627 reserves.reservenotes AS reservenotes,
1628 reserves.priority AS priority,
1629 reserves.timestamp AS timestamp,
1630 reserveconstraints.biblioitemnumber AS biblioitemnumber,
1631 reserves.itemnumber AS itemnumber
1633 LEFT JOIN reserveconstraints ON reserves.biblionumber = reserveconstraints.biblionumber
1634 WHERE reserves.biblionumber = ?
1635 AND ( ( reserveconstraints.biblioitemnumber = ?
1636 AND reserves.borrowernumber = reserveconstraints.borrowernumber
1637 AND reserves.reservedate = reserveconstraints.reservedate )
1638 OR reserves.constrainttype='a' )
1639 AND (reserves.itemnumber IS NULL OR reserves.itemnumber = ?)
1640 AND reserves.reservedate <= CURRENT_DATE()
1642 $sth = $dbh->prepare($query);
1643 $sth->execute( $biblio, $bibitem, $itemnumber );
1645 while ( my $data = $sth->fetchrow_hashref ) {
1646 push( @results, $data );
1651 =head2 _koha_notify_reserve
1653 _koha_notify_reserve( $itemnumber, $borrowernumber, $biblionumber );
1655 Sends a notification to the patron that their hold has been filled (through
1656 ModReserveAffect, _not_ ModReserveFill)
1660 sub _koha_notify_reserve {
1661 my ($itemnumber, $borrowernumber, $biblionumber) = @_;
1663 my $dbh = C4::Context->dbh;
1664 my $borrower = C4::Members::GetMember(borrowernumber => $borrowernumber);
1668 if ( $borrower->{'email'} || $borrower->{'smsalertnumber'} ) {
1669 $messagingprefs = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $borrowernumber, message_name => 'Hold Filled' } );
1671 return if ( !defined( $messagingprefs->{'letter_code'} ) );
1672 $letter_code = $messagingprefs->{'letter_code'};
1674 $letter_code = 'HOLD_PRINT';
1678 my $sth = $dbh->prepare("
1681 WHERE borrowernumber = ?
1682 AND biblionumber = ?
1684 $sth->execute( $borrowernumber, $biblionumber );
1685 my $reserve = $sth->fetchrow_hashref;
1686 my $branch_details = GetBranchDetail( $reserve->{'branchcode'} );
1688 my $admin_email_address = $branch_details->{'branchemail'} || C4::Context->preference('KohaAdminEmailAddress');
1690 my $letter = getletter( 'reserves', $letter_code );
1691 die "Could not find a letter called '$letter_code' in the 'reserves' module" unless( $letter );
1693 C4::Letters::parseletter( $letter, 'branches', $reserve->{'branchcode'} );
1694 C4::Letters::parseletter( $letter, 'borrowers', $borrowernumber );
1695 C4::Letters::parseletter( $letter, 'biblio', $biblionumber );
1696 C4::Letters::parseletter( $letter, 'reserves', $borrowernumber, $biblionumber );
1698 if ( $reserve->{'itemnumber'} ) {
1699 C4::Letters::parseletter( $letter, 'items', $reserve->{'itemnumber'} );
1701 my $today = C4::Dates->new()->output();
1702 $letter->{'title'} =~ s/<<today>>/$today/g;
1703 $letter->{'content'} =~ s/<<today>>/$today/g;
1704 $letter->{'content'} =~ s/<<[a-z0-9_]+\.[a-z0-9]+>>//g; #remove any stragglers
1706 if ( $print_mode ) {
1707 C4::Letters::EnqueueLetter( {
1709 borrowernumber => $borrowernumber,
1710 message_transport_type => 'print',
1716 if ( grep { $_ eq 'email' } @{$messagingprefs->{transports}} ) {
1717 # aka, 'email' in ->{'transports'}
1718 C4::Letters::EnqueueLetter(
1719 { letter => $letter,
1720 borrowernumber => $borrowernumber,
1721 message_transport_type => 'email',
1722 from_address => $admin_email_address,
1727 if ( grep { $_ eq 'sms' } @{$messagingprefs->{transports}} ) {
1728 C4::Letters::EnqueueLetter(
1729 { letter => $letter,
1730 borrowernumber => $borrowernumber,
1731 message_transport_type => 'sms',
1737 =head2 _ShiftPriorityByDateAndPriority
1739 $new_priority = _ShiftPriorityByDateAndPriority( $biblionumber, $reservedate, $priority );
1741 This increments the priority of all reserves after the one
1742 with either the lowest date after C<$reservedate>
1743 or the lowest priority after C<$priority>.
1745 It effectively makes room for a new reserve to be inserted with a certain
1746 priority, which is returned.
1748 This is most useful when the reservedate can be set by the user. It allows
1749 the new reserve to be placed before other reserves that have a later
1750 reservedate. Since priority also is set by the form in reserves/request.pl
1751 the sub accounts for that too.
1755 sub _ShiftPriorityByDateAndPriority {
1756 my ( $biblio, $resdate, $new_priority ) = @_;
1758 my $dbh = C4::Context->dbh;
1759 my $query = "SELECT priority FROM reserves WHERE biblionumber = ? AND ( reservedate > ? OR priority > ? ) ORDER BY priority ASC LIMIT 1";
1760 my $sth = $dbh->prepare( $query );
1761 $sth->execute( $biblio, $resdate, $new_priority );
1762 my $min_priority = $sth->fetchrow;
1763 # if no such matches are found, $new_priority remains as original value
1764 $new_priority = $min_priority if ( $min_priority );
1766 # Shift the priority up by one; works in conjunction with the next SQL statement
1767 $query = "UPDATE reserves
1768 SET priority = priority+1
1769 WHERE biblionumber = ?
1770 AND borrowernumber = ?
1773 my $sth_update = $dbh->prepare( $query );
1775 # Select all reserves for the biblio with priority greater than $new_priority, and order greatest to least
1776 $query = "SELECT borrowernumber, reservedate FROM reserves WHERE priority >= ? AND biblionumber = ? ORDER BY priority DESC";
1777 $sth = $dbh->prepare( $query );
1778 $sth->execute( $new_priority, $biblio );
1779 while ( my $row = $sth->fetchrow_hashref ) {
1780 $sth_update->execute( $biblio, $row->{borrowernumber}, $row->{reservedate} );
1783 return $new_priority; # so the caller knows what priority they wind up receiving
1788 Koha Development Team <http://koha-community.org/>