Bug 19074: Fix category display in Batch patron modification.
[koha.git] / circ / waitingreserves.pl
1 #!/usr/bin/perl
2
3 # Copyright 2000-2002 Katipo Communications
4 # parts copyright 2010 BibLibre
5 #
6 # This file is part of Koha.
7 #
8 # Koha is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or
11 # (at your option) any later version.
12 #
13 # Koha is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
17 #
18 # You should have received a copy of the GNU General Public License
19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
20
21 use strict;
22 use warnings;
23 use CGI qw ( -utf8 );
24 use C4::Context;
25 use C4::Output;
26 use C4::Auth;
27 use C4::Circulation;
28 use C4::Members;
29 use C4::Biblio;
30 use C4::Items;
31 use Date::Calc qw(
32   Today
33   Add_Delta_Days
34   Date_to_Days
35 );
36 use C4::Reserves;
37 use C4::Koha;
38 use Koha::DateUtils;
39 use Koha::BiblioFrameworks;
40 use Koha::Items;
41 use Koha::ItemTypes;
42 use Koha::Patrons;
43
44 my $input = new CGI;
45
46 my $item           = $input->param('itemnumber');
47 my $borrowernumber = $input->param('borrowernumber');
48 my $fbr            = $input->param('fbr') || '';
49 my $tbr            = $input->param('tbr') || '';
50 my $all_branches   = $input->param('allbranches') || '';
51 my $cancelall      = $input->param('cancelall');
52 my $tab            = $input->param('tab');
53
54 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
55     {
56         template_name   => "circ/waitingreserves.tt",
57         query           => $input,
58         type            => "intranet",
59         authnotrequired => 0,
60         flagsrequired   => { circulate => "circulate_remaining_permissions" },
61         debug           => 1,
62     }
63 );
64
65 my $default = C4::Context->userenv->{'branch'};
66
67 my $transfer_when_cancel_all = C4::Context->preference('TransferWhenCancelAllWaitingHolds');
68 $template->param( TransferWhenCancelAllWaitingHolds => 1 ) if $transfer_when_cancel_all;
69
70 my @cancel_result;
71 # if we have a return from the form we launch the subroutine CancelReserve
72 if ($item) {
73     my $res = cancel( $item, $borrowernumber, $fbr, $tbr );
74     push @cancel_result, $res if $res;
75 }
76
77 if ( C4::Context->preference('IndependentBranches') ) {
78     undef $all_branches;
79 } else {
80     $template->param( all_branches_link => '/cgi-bin/koha/circ/waitingreserves.pl' . '?allbranches=1' )
81       unless $all_branches;
82 }
83 $template->param( all_branches => 1 ) if $all_branches;
84
85 my (@reservloop, @overloop);
86 my ($reservcount, $overcount);
87 my @getreserves = $all_branches ? GetReservesForBranch() : GetReservesForBranch($default);
88 # get reserves for the branch we are logged into, or for all branches
89
90 my $today = Date_to_Days(&Today);
91 my $max_pickup_delay = C4::Context->preference('ReservesMaxPickUpDelay');
92
93 foreach my $num (@getreserves) {
94     next unless ($num->{'waitingdate'} && $num->{'waitingdate'} ne '0000-00-00');
95
96     my $itemnumber = $num->{'itemnumber'};
97     my $item = Koha::Items->find( $itemnumber );
98     my $biblio = $item->biblio;
99     my $borrowernum = $num->{'borrowernumber'};
100     my $holdingbranch = $item->holdingbranch;
101     my $homebranch = $item->homebranch;
102
103     my %getreserv = (
104         itemnumber => $itemnumber,
105         borrowernum => $borrowernum,
106     );
107
108     my $patron = Koha::Patrons->find( $num->{borrowernumber} );
109     my $itemtype = Koha::ItemTypes->find( $item->effective_itemtype );
110     $getreserv{'waitingdate'} = $num->{'waitingdate'};
111     my ( $expire_year, $expire_month, $expire_day ) = split (/-/, $num->{'expirationdate'});
112     my $calcDate = Date_to_Days( $expire_year, $expire_month, $expire_day );
113
114     $getreserv{'itemtype'}       = $itemtype->description; # FIXME Should not it be translated_description?
115     $getreserv{'title'}          = $biblio->title;
116     $getreserv{'subtitle'}       = GetRecordValue('subtitle', GetMarcBiblio($biblio->biblionumber), $biblio->frameworkcode);
117     $getreserv{'biblionumber'}   = $biblio->biblionumber;
118     $getreserv{'barcode'}        = $item->barcode;
119     $getreserv{'homebranch'}     = $homebranch;
120     $getreserv{'holdingbranch'}  = $item->holdingbranch;
121     $getreserv{'itemcallnumber'} = $item->itemcallnumber;
122     $getreserv{'enumchron'}      = $item->enumchron;
123     $getreserv{'copynumber'}     = $item->copynumber;
124     if ( $homebranch ne $holdingbranch ) {
125         $getreserv{'dotransfer'} = 1;
126     }
127     $getreserv{'borrowername'}      = $patron->surname;
128     $getreserv{'borrowerfirstname'} = $patron->firstname;
129     $getreserv{'borrowerphone'}     = $patron->phone;
130
131     my $borEmail = GetFirstValidEmailAddress( $borrowernum );
132
133     if ( $borEmail ) {
134         $getreserv{'borrowermail'}  = $borEmail;
135     }
136
137     if ($today > $calcDate) {
138         if ($cancelall) {
139             my $res = cancel( $itemnumber, $borrowernum, $holdingbranch, $homebranch, !$transfer_when_cancel_all );
140             push @cancel_result, $res if $res;
141             next;
142         } else {
143             push @overloop,   \%getreserv;
144             $overcount++;
145         }
146     }else{
147         push @reservloop, \%getreserv;
148         $reservcount++;
149     }
150     
151 }
152
153 $template->param(cancel_result => \@cancel_result) if @cancel_result;
154 $template->param(
155     reserveloop => \@reservloop,
156     reservecount => $reservcount,
157     overloop    => \@overloop,
158     overcount   => $overcount,
159     show_date   => output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }),
160     ReservesMaxPickUpDelay => $max_pickup_delay,
161     tab => $tab,
162 );
163
164 # Checking if there is a Fast Cataloging Framework
165 $template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find( 'FA' );
166
167 if ($item && $tab eq 'holdsover' && !@cancel_result) {
168     print $input->redirect("/cgi-bin/koha/circ/waitingreserves.pl#holdsover");
169 } elsif ($cancelall) {
170     print $input->redirect("/cgi-bin/koha/circ/waitingreserves.pl");
171 } else {
172     output_html_with_http_headers $input, $cookie, $template->output;
173 }
174
175 exit;
176
177 sub cancel {
178     my ($item, $borrowernumber, $fbr, $tbr, $skip_transfers ) = @_;
179
180     my $transfer = $fbr ne $tbr; # XXX && !$nextreservinfo;
181
182     return if $transfer && $skip_transfers;
183
184     my ( $messages, $nextreservinfo ) = ModReserveCancelAll( $item, $borrowernumber );
185
186 #       if the document is not in his homebranch location and there is not reservation after, we transfer it
187     if ($transfer && !$nextreservinfo) {
188         ModItemTransfer( $item, $fbr, $tbr );
189     }
190     # if we have a result
191     if ($nextreservinfo) {
192         my %res;
193         my $patron = Koha::Patrons->find( $nextreservinfo );
194         my $title = Koha::Items->find( $item )->biblio->title;
195         if ( $messages->{'transfert'} ) {
196             $res{messagetransfert} = $messages->{'transfert'};
197             $res{branchcode}       = $messages->{'transfert'};
198         }
199
200         $res{message}             = 1;
201         $res{nextreservnumber}    = $nextreservinfo;
202         $res{nextreservsurname}   = $patron->surname;
203         $res{nextreservfirstname} = $patron->firstname;
204         $res{nextreservitem}      = $item;
205         $res{nextreservtitle}     = $title;
206         $res{waiting}             = $messages->{'waiting'} ? 1 : 0;
207
208         return \%res;
209     }
210
211     return;
212 }