4 #writen 2/1/00 by chris@katipo.oc.nz
5 # Copyright 2000-2002 Katipo Communications
6 # Parts Copyright 2011 Catalyst IT
8 # This file is part of Koha.
10 # Koha is free software; you can redistribute it and/or modify it under the
11 # terms of the GNU General Public License as published by the Free Software
12 # Foundation; either version 2 of the License, or (at your option) any later
15 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
16 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
17 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
19 # You should have received a copy of the GNU General Public License along
20 # with Koha; if not, write to the Free Software Foundation, Inc.,
21 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
25 script to place reserves/requests
33 use List::MoreUtils qw/uniq/;
34 use Date::Calc qw/Date_to_Days/;
42 use C4::Dates qw/format_date/;
44 use C4::Search; # enabled_staff_search_views
47 my $dbh = C4::Context->dbh;
50 my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user(
52 template_name => "reserve/request.tt",
56 flagsrequired => { reserveforothers => 'place_holds' },
60 my $multihold = $input->param('multi_hold');
61 $template->param(multi_hold => $multihold);
62 my $showallitems = $input->param('showallitems');
64 # get Branches and Itemtypes
65 my $branches = GetBranches();
66 my $itemtypes = GetItemTypes();
69 if (C4::Context->userenv && C4::Context->userenv->{'branch'}) {
70 $userbranch = C4::Context->userenv->{'branch'};
74 # Select borrowers infos
75 my $findborrower = $input->param('findborrower');
76 $findborrower = '' unless defined $findborrower;
77 $findborrower =~ s|,| |g;
78 my $borrowernumber_hold = $input->param('borrowernumber') || '';
84 my $date = C4::Dates->today('iso');
85 my $action = $input->param('action');
88 if ( $action eq 'move' ) {
89 my $where = $input->param('where');
90 my $reserve_id = $input->param('reserve_id');
91 AlterPriority( $where, $reserve_id );
92 } elsif ( $action eq 'cancel' ) {
93 my $reserve_id = $input->param('reserve_id');
94 CancelReserve({ reserve_id => $reserve_id });
95 } elsif ( $action eq 'setLowestPriority' ) {
96 my $reserve_id = $input->param('reserve_id');
97 ToggleLowestPriority( $reserve_id );
98 } elsif ( $action eq 'toggleSuspend' ) {
99 my $reserve_id = $input->param('reserve_id');
100 my $suspend_until = $input->param('suspend_until');
101 ToggleSuspend( $reserve_id, $suspend_until );
105 my $borrowers = Search($findborrower, 'cardnumber');
107 if ($borrowers && @$borrowers) {
108 if ( @$borrowers == 1 ) {
109 $borrowernumber_hold = $borrowers->[0]->{'borrowernumber'};
112 $template->param( borrower_list => sort_borrowerlist($borrowers));
115 $messageborrower = "'$findborrower'";
119 # If we have the borrowernumber because we've performed an action, then we
120 # don't want to try to place another reserve.
121 if ($borrowernumber_hold && !$action) {
122 my $borrowerinfo = GetMember( borrowernumber => $borrowernumber_hold );
125 my $count_reserv = 0;
127 # we check the reserves of the borrower, and if he can reserv a document
128 # FIXME At this time we have a simple count of reservs, but, later, we could improve the infos "title" ...
130 my $number_reserves =
131 GetReserveCount( $borrowerinfo->{'borrowernumber'} );
133 if ( C4::Context->preference('maxreserves') && ($number_reserves >= C4::Context->preference('maxreserves')) ) {
138 # we check the date expiry of the borrower (only if there is an expiry date, otherwise, set to 1 (warn)
139 my $expiry_date = $borrowerinfo->{dateexpiry};
140 my $expiry = 0; # flag set if patron account has expired
141 if ($expiry_date and $expiry_date ne '0000-00-00' and
142 Date_to_Days(split /-/,$date) > Date_to_Days(split /-/,$expiry_date)) {
146 # check if the borrower make the reserv in a different branch
147 if ( $borrowerinfo->{'branchcode'} ne C4::Context->userenv->{'branch'} ) {
152 borrowernumber => $borrowerinfo->{'borrowernumber'},
153 borrowersurname => $borrowerinfo->{'surname'},
154 borrowerfirstname => $borrowerinfo->{'firstname'},
155 borrowerstreetaddress => $borrowerinfo->{'address'},
156 borrowercity => $borrowerinfo->{'city'},
157 borrowerphone => $borrowerinfo->{'phone'},
158 borrowermobile => $borrowerinfo->{'mobile'},
159 borrowerfax => $borrowerinfo->{'fax'},
160 borrowerphonepro => $borrowerinfo->{'phonepro'},
161 borroweremail => $borrowerinfo->{'email'},
162 borroweremailpro => $borrowerinfo->{'emailpro'},
163 borrowercategory => $borrowerinfo->{'category'},
164 borrowerreservs => $count_reserv,
165 cardnumber => $borrowerinfo->{'cardnumber'},
167 diffbranch => $diffbranch,
168 messages => $messages,
169 warnings => $warnings
173 $template->param( messageborrower => $messageborrower );
175 # FIXME launch another time GetMember perhaps until
176 my $borrowerinfo = GetMember( borrowernumber => $borrowernumber_hold );
178 my @biblionumbers = ();
179 my $biblionumbers = $input->param('biblionumbers');
181 @biblionumbers = split '/', $biblionumbers;
183 push @biblionumbers, $input->param('biblionumber');
186 my $itemdata_enumchron = 0;
188 foreach my $biblionumber (@biblionumbers) {
190 my %biblioloopiter = ();
192 my $dat = GetBiblioData($biblionumber);
194 my $canReserve = CanBookBeReserved($borrowerinfo->{borrowernumber}, $biblionumber);
195 if ($canReserve eq 'OK') {
196 #All is OK and we can continue
198 elsif ( $canReserve eq 'tooManyReserves' ) {
201 elsif ( $canReserve eq 'ageRestricted' ) {
202 $template->param( $canReserve => 1 );
203 $biblioloopiter{ $canReserve } = 1;
206 $biblioloopiter{ $canReserve } = 1;
209 my $alreadypossession;
210 if (not C4::Context->preference('AllowHoldsOnPatronsPossessions') and CheckIfIssuedToPatron($borrowerinfo->{borrowernumber},$biblionumber)) {
211 $alreadypossession = 1;
214 # get existing reserves .....
215 my $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber, all_dates => 1 });
216 my $count = scalar( @$reserves );
217 my $totalcount = $count;
219 my $alreadyreserved = 0;
221 foreach my $res (@$reserves) {
222 if ( defined $res->{found} ) { # found can be 'W' or 'T'
226 if ( defined $borrowerinfo && defined($borrowerinfo->{borrowernumber}) && ($borrowerinfo->{borrowernumber} eq $res->{borrowernumber}) ) {
231 if ( $holds_count ) {
232 $alreadyreserved = 1;
233 $biblioloopiter{warn} = 1;
234 $biblioloopiter{alreadyres} = 1;
238 alreadyreserved => $alreadyreserved,
239 alreadypossession => $alreadypossession,
242 # FIXME think @optionloop, is maybe obsolete, or must be switchable by a systeme preference fixed rank or not
243 # make priorities options
246 for ( 1 .. $count + 1 ) {
251 selected => ( $_ == $count + 1 ),
255 # adding a fixed value for priority options
256 my $fixedRank = $count+1;
259 my %itemnumbers_of_biblioitem;
262 ## $items is array of 'item' table numbers
263 if (my $items = get_itemnumbers_of($biblionumber)->{$biblionumber}){
264 @itemnumbers = @$items;
266 my @hostitems = get_hostitemnumbers_of($biblionumber);
268 $template->param('hostitemsflag' => 1);
269 push(@itemnumbers, @hostitems);
273 $template->param('noitems' => 1);
274 $biblioloopiter{noitems} = 1;
277 ## Hash of item number to 'item' table fields
278 my $iteminfos_of = GetItemInfosOf(@itemnumbers);
280 ## Here we go backwards again to create hash of biblioitemnumber to itemnumbers,
281 ## when by definition all of the itemnumber have the same biblioitemnumber
282 foreach my $itemnumber (@itemnumbers) {
283 my $biblioitemnumber = $iteminfos_of->{$itemnumber}->{biblioitemnumber};
284 push( @{ $itemnumbers_of_biblioitem{$biblioitemnumber} }, $itemnumber );
287 ## Should be same as biblionumber
288 my @biblioitemnumbers = keys %itemnumbers_of_biblioitem;
290 my $notforloan_label_of = get_notforloan_label_of();
292 ## Hash of biblioitemnumber to 'biblioitem' table records
293 my $biblioiteminfos_of = GetBiblioItemInfosOf(@biblioitemnumbers);
297 foreach my $biblioitemnumber (@biblioitemnumbers) {
298 my $biblioitem = $biblioiteminfos_of->{$biblioitemnumber};
299 my $num_available = 0;
300 my $num_override = 0;
303 $biblioitem->{description} =
304 $itemtypes->{ $biblioitem->{itemtype} }{description};
305 if($biblioitem->{biblioitemnumber} ne $biblionumber){
306 $biblioitem->{hostitemsflag}=1;
308 $biblioloopiter{description} = $biblioitem->{description};
309 $biblioloopiter{itypename} = $biblioitem->{description};
310 $biblioloopiter{imageurl} =
311 getitemtypeimagelocation('intranet', $itemtypes->{$biblioitem->{itemtype}}{imageurl});
313 foreach my $itemnumber ( @{ $itemnumbers_of_biblioitem{$biblioitemnumber} } ) {
314 my $item = $iteminfos_of->{$itemnumber};
316 unless (C4::Context->preference('item-level_itypes')) {
317 $item->{itype} = $biblioitem->{itemtype};
320 $item->{itypename} = $itemtypes->{ $item->{itype} }{description};
321 $item->{imageurl} = getitemtypeimagelocation( 'intranet', $itemtypes->{ $item->{itype} }{imageurl} );
322 $item->{homebranchname} = $branches->{ $item->{homebranch} }{branchname};
324 # if the holdingbranch is different than the homebranch, we show the
325 # holdingbranch of the document too
326 if ( $item->{homebranch} ne $item->{holdingbranch} ) {
327 $item->{holdingbranchname} =
328 $branches->{ $item->{holdingbranch} }{branchname};
331 if($item->{biblionumber} ne $biblionumber){
332 $item->{hostitemsflag}=1;
333 $item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title};
337 $item->{itemcallnumber} = $item->{itemcallnumber};
339 # if the item is currently on loan, we display its return date and
340 # change the background color
341 my $issues= GetItemIssue($itemnumber);
342 if ( $issues->{'date_due'} ) {
343 $item->{date_due} = format_sqldatetime($issues->{date_due});
344 $item->{backgroundcolor} = 'onloan';
348 my ($reservedate,$reservedfor,$expectedAt,$reserve_id,$wait) = GetReservesFromItemnumber($itemnumber);
349 my $ItemBorrowerReserveInfo = GetMember( borrowernumber => $reservedfor );
351 if ( defined $reservedate ) {
352 $item->{backgroundcolor} = 'reserved';
353 $item->{reservedate} = format_date($reservedate);
354 $item->{ReservedForBorrowernumber} = $reservedfor;
355 $item->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'};
356 $item->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'};
357 $item->{ExpectedAtLibrary} = $branches->{$expectedAt}{branchname};
358 $item->{waitingdate} = $wait;
361 # Management of the notforloan document
362 if ( $item->{notforloan} ) {
363 $item->{backgroundcolor} = 'other';
364 $item->{notforloanvalue} =
365 $notforloan_label_of->{ $item->{notforloan} };
368 # Management of lost or long overdue items
369 if ( $item->{itemlost} ) {
371 # FIXME localized strings should never be in Perl code
373 $item->{itemlost} == 1 ? "(lost)"
374 : $item->{itemlost} == 2 ? "(long overdue)"
376 $item->{backgroundcolor} = 'other';
377 if (GetHideLostItemsPreference($borrowernumber) && !$showallitems) {
383 # Check the transit status
384 my ( $transfertwhen, $transfertfrom, $transfertto ) =
385 GetTransfers($itemnumber);
387 if ( defined $transfertwhen && $transfertwhen ne '' ) {
388 $item->{transfertwhen} = format_date($transfertwhen);
389 $item->{transfertfrom} =
390 $branches->{$transfertfrom}{branchname};
391 $item->{transfertto} = $branches->{$transfertto}{branchname};
392 $item->{nocancel} = 1;
395 # If there is no loan, return and transfer, we show a checkbox.
396 $item->{notforloan} = $item->{notforloan} || 0;
398 # if independent branches is on we need to check if the person can reserve
399 # for branches they arent logged in to
400 if ( C4::Context->preference("IndependentBranches") ) {
401 if (! C4::Context->preference("canreservefromotherbranches")){
402 # cant reserve items so need to check if item homebranch and userenv branch match if not we cant reserve
403 my $userenv = C4::Context->userenv;
404 unless ( C4::Context->IsSuperLibrarian ) {
405 $item->{cantreserve} = 1 if ( $item->{homebranch} ne $userenv->{branch} );
410 my $branch = C4::Circulation::_GetCircControlBranch($item, $borrowerinfo);
412 my $branchitemrule = GetBranchItemRule( $branch, $item->{'itype'} );
413 my $policy_holdallowed = 1;
415 $item->{'holdallowed'} = $branchitemrule->{'holdallowed'};
417 if ( $branchitemrule->{'holdallowed'} == 0 ||
418 ( $branchitemrule->{'holdallowed'} == 1 &&
419 $borrowerinfo->{'branchcode'} ne $item->{'homebranch'} ) ) {
420 $policy_holdallowed = 0;
425 && !$item->{cantreserve}
426 && IsAvailableForItemLevelRequest($itemnumber)
427 && CanItemBeReserved(
428 $borrowerinfo->{borrowernumber}, $itemnumber
432 $item->{available} = 1;
435 elsif ( C4::Context->preference('AllowHoldPolicyOverride') ) {
436 # If AllowHoldPolicyOverride is set, it should override EVERY restriction, not just branch item rules
437 $item->{override} = 1;
441 # If none of the conditions hold true, then neither override nor available is set and the item cannot be checked
443 # Show serial enumeration when needed
444 if ($item->{enumchron}) {
445 $itemdata_enumchron = 1;
448 push @{ $biblioitem->{itemloop} }, $item;
451 if ( $num_override == scalar( @{ $biblioitem->{itemloop} } ) ) { # That is, if all items require an override
452 $template->param( override_required => 1 );
453 } elsif ( $num_available == 0 ) {
454 $template->param( none_available => 1 );
455 $biblioloopiter{warn} = 1;
456 $biblioloopiter{none_avail} = 1;
458 $template->param( hiddencount => $hiddencount);
460 push @bibitemloop, $biblioitem;
463 # existingreserves building
465 $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber, all_dates => 1 });
466 foreach my $res ( sort {
467 my $a_found = $a->{found} || '';
468 my $b_found = $a->{found} || '';
469 $a_found cmp $b_found;
473 for ( my $i = 1 ; $i <= $totalcount ; $i++ ) {
478 selected => ( $i == $res->{priority} ),
483 if ( defined $res->{'found'} && ($res->{'found'} eq 'W' || $res->{'found'} eq 'T' )) {
484 my $item = $res->{'itemnumber'};
485 $item = GetBiblioFromItemNumber($item,undef);
487 $reserve{'holdingbranch'}=$item->{'holdingbranch'};
488 $reserve{'biblionumber'}=$item->{'biblionumber'};
489 $reserve{'barcodenumber'} = $item->{'barcode'};
490 $reserve{'wbrcode'} = $res->{'branchcode'};
491 $reserve{'itemnumber'} = $res->{'itemnumber'};
492 $reserve{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'};
493 if($reserve{'holdingbranch'} eq $reserve{'wbrcode'}){
494 # Just because the holdingbranch matches the reserve branch doesn't mean the item
495 # has arrived at the destination, check for an open transfer for the item as well
496 my ( $transfertwhen, $transfertfrom, $transferto ) = C4::Circulation::GetTransfers( $res->{itemnumber} );
497 if ( not $transferto or $transferto ne $res->{branchcode} ) {
498 $reserve{'atdestination'} = 1;
501 # set found to 1 if reserve is waiting for patron pickup
502 $reserve{'found'} = 1 if $res->{'found'} eq 'W';
503 $reserve{'intransit'} = 1 if $res->{'found'} eq 'T';
504 } elsif ($res->{priority} > 0) {
505 if (defined($res->{itemnumber})) {
506 my $item = GetItem($res->{itemnumber});
507 $reserve{'itemnumber'} = $res->{'itemnumber'};
508 $reserve{'barcodenumber'} = $item->{'barcode'};
509 $reserve{'item_level_hold'} = 1;
513 # get borrowers reserve info
514 my $reserveborrowerinfo = GetMember( borrowernumber => $res->{'borrowernumber'} );
515 if (C4::Context->preference('HidePatronName')){
516 $reserve{'hidename'} = 1;
517 $reserve{'cardnumber'} = $reserveborrowerinfo->{'cardnumber'};
519 $reserve{'expirationdate'} = format_date( $res->{'expirationdate'} )
520 unless ( !defined($res->{'expirationdate'}) || $res->{'expirationdate'} eq '0000-00-00' );
521 $reserve{'date'} = format_date( $res->{'reservedate'} );
522 $reserve{'borrowernumber'} = $res->{'borrowernumber'};
523 $reserve{'biblionumber'} = $res->{'biblionumber'};
524 $reserve{'borrowernumber'} = $res->{'borrowernumber'};
525 $reserve{'firstname'} = $reserveborrowerinfo->{'firstname'};
526 $reserve{'surname'} = $reserveborrowerinfo->{'surname'};
527 $reserve{'notes'} = $res->{'reservenotes'};
529 ( ( defined $res->{'found'} and $res->{'found'} eq 'W' ) or ( $res->{'priority'} eq '0' ) );
530 $reserve{'constrainttypea'} = ( $res->{'constrainttype'} eq 'a' );
531 $reserve{'constrainttypeo'} = ( $res->{'constrainttype'} eq 'o' );
532 $reserve{'voldesc'} = $res->{'volumeddesc'};
533 $reserve{'ccode'} = $res->{'ccode'};
534 $reserve{'barcode'} = $res->{'barcode'};
535 $reserve{'priority'} = $res->{'priority'};
536 $reserve{'lowestPriority'} = $res->{'lowestPriority'};
537 $reserve{'optionloop'} = \@optionloop;
538 $reserve{'suspend'} = $res->{'suspend'};
539 $reserve{'suspend_until'} = $res->{'suspend_until'};
540 $reserve{'reserve_id'} = $res->{'reserve_id'};
542 if ( C4::Context->preference('IndependentBranches') && $flags->{'superlibrarian'} != 1 ) {
543 $reserve{'branchloop'} = [ GetBranchDetail($res->{'branchcode'}) ];
545 $reserve{'branchloop'} = GetBranchesLoop($res->{'branchcode'});
548 push( @reserveloop, \%reserve );
551 # get the time for the form name...
555 branchloop => GetBranchesLoop($userbranch),
557 fixedRank => $fixedRank,
562 optionloop => \@optionloop,
563 bibitemloop => \@bibitemloop,
564 itemdata_enumchron => $itemdata_enumchron,
566 biblionumber => $biblionumber,
567 findborrower => $findborrower,
568 title => $dat->{title},
569 author => $dat->{author},
571 C4::Search::enabled_staff_search_views,
573 if (defined $borrowerinfo && exists $borrowerinfo->{'branchcode'}) {
575 borrower_branchname => $branches->{$borrowerinfo->{'branchcode'}}->{'branchname'},
576 borrower_branchcode => $borrowerinfo->{'branchcode'},
580 $biblioloopiter{biblionumber} = $biblionumber;
581 $biblioloopiter{title} = $dat->{title};
582 $biblioloopiter{rank} = $fixedRank;
583 $biblioloopiter{reserveloop} = \@reserveloop;
586 $template->param( reserveloop => \@reserveloop );
589 push @biblioloop, \%biblioloopiter;
592 $template->param( biblioloop => \@biblioloop );
593 $template->param( biblionumbers => $biblionumbers );
594 $template->param( maxreserves => $maxreserves );
597 $template->param( multi_hold => 1 );
600 if ( C4::Context->preference( 'AllowHoldDateInFuture' ) ) {
601 $template->param( reserve_in_future => 1 );
605 SuspendHoldsIntranet => C4::Context->preference('SuspendHoldsIntranet'),
606 AutoResumeSuspendedHolds => C4::Context->preference('AutoResumeSuspendedHolds'),
610 output_html_with_http_headers $input, $cookie, $template->output;
612 sub sort_borrowerlist {
613 my $borrowerslist = shift;
616 uc( $a->{surname} . $a->{firstname} ) cmp
617 uc( $b->{surname} . $b->{firstname} )