Reintroducing overdue filters.
[koha.git] / circ / circulation.pl
1 #!/usr/bin/perl
2
3 # Please use 8-character tabs for this file (indents are every 4 characters)
4
5 # written 8/5/2002 by Finlay
6 # script to execute issuing of books
7
8 # Copyright 2000-2002 Katipo Communications
9 #
10 # This file is part of Koha.
11 #
12 # Koha is free software; you can redistribute it and/or modify it under the
13 # terms of the GNU General Public License as published by the Free Software
14 # Foundation; either version 2 of the License, or (at your option) any later
15 # version.
16 #
17 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
18 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
19 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
20 #
21 # You should have received a copy of the GNU General Public License along with
22 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
23 # Suite 330, Boston, MA  02111-1307 USA
24
25 use strict;
26 use CGI;
27 use C4::Output;
28 use C4::Print;
29 use C4::Auth;
30 use C4::Date;
31 use C4::Branch; # GetBranches
32 use C4::Koha;   # GetPrinter
33 use C4::Circulation;
34 use C4::Members;
35 use C4::Biblio;
36 use C4::Reserves;
37 use C4::Context;
38 use CGI::Session;
39
40 use Date::Calc qw(
41   Today
42   Today_and_Now
43   Add_Delta_YM
44   Add_Delta_Days
45   Date_to_Days
46 );
47
48
49 #
50 # PARAMETERS READING
51 #
52 my $query = new CGI;
53
54 # new op dev the branch and the printer are now defined by the userenv
55 # but first we have to check if someone has tried to change them
56
57 my $branch = $query->param('branch');
58 if ($branch){
59     # update our session so the userenv is updated
60     my $dbh=C4::Context->dbh;
61     my $sessionID = $query->cookie("CGISESSID") ;
62     my $session = new CGI::Session("driver:MySQL", $sessionID, {Handle=>$dbh});
63     $session->param('branch',$branch);
64     my $branchname = GetBranchName($branch);
65     $session->param('branchname',$branchname);
66 }
67
68 my $printer = $query->param('printer');
69 if ($printer){
70     # update our session so the userenv is updated
71         my $dbh=C4::Context->dbh;
72         my $sessionID = $query->cookie("CGISESSID") ;
73         my $session = new CGI::Session("driver:MySQL", $sessionID, {Handle=>$dbh});
74         $session->param('branchprinter',$printer);
75
76 }
77
78
79 my ( $template, $loggedinuser, $cookie ) = get_template_and_user (
80     {
81         template_name   => 'circ/circulation.tmpl',
82         query           => $query,
83         type            => "intranet",
84         authnotrequired => 0,
85         flagsrequired   => { circulate => 1 },
86     }
87 );
88 my $branches = GetBranches();
89
90 my $printers = GetPrinters();
91
92
93 my $findborrower = $query->param('findborrower');
94 $findborrower =~ s|,| |g;
95 #$findborrower =~ s|'| |g;
96 my $borrowernumber = $query->param('borrowernumber');
97
98 $branch  = C4::Context->userenv->{'branch'};    
99 $printer = C4::Context->userenv->{'branchprinter'};
100
101
102 # If Autolocated is not activated, we show the Circulation Parameters to chage settings of librarian
103     if (C4::Context->preference("AutoLocation") ne 1)
104         {
105             $template->param(
106             ManualLocation => 1,
107             );
108         }
109
110 my $barcode        = $query->param('barcode') || '';
111 my $year           = $query->param('year');
112 my $month          = $query->param('month');
113 my $day            = $query->param('day');
114 my $stickyduedate  = $query->param('stickyduedate');
115 my $issueconfirmed = $query->param('issueconfirmed');
116 my $cancelreserve  = $query->param('cancelreserve');
117 my $organisation   = $query->param('organisations');
118 my $print          = $query->param('print');
119
120 #set up cookie.....
121 # my $branchcookie;
122 # my $printercookie;
123 # if ($query->param('setcookies')) {
124 #     $branchcookie = $query->cookie(-name=>'branch', -value=>"$branch", -expires=>'+1y');
125 #     $printercookie = $query->cookie(-name=>'printer', -value=>"$printer", -expires=>'+1y');
126 # }
127 #
128
129
130 my @datearr = localtime( time() );
131
132 # FIXME - Could just use POSIX::strftime("%Y%m%d", localtime);
133 my $todaysdate =
134     ( 1900 + $datearr[5] )
135   . sprintf( "%0.2d", ( $datearr[4] + 1 ) )
136   . sprintf( "%0.2d", ( $datearr[3] ) );
137
138 # check and see if we should print
139 if ( $barcode eq '' && $print eq 'maybe' ) {
140     $print = 'yes';
141 }
142
143 my $inprocess = $query->param('inprocess');
144 if ( $barcode eq '' ) {
145     $inprocess = '';
146 }
147 else {
148 }
149
150 if ( $barcode eq '' && $query->param('charges') eq 'yes' ) {
151     $template->param(
152         PAYCHARGES     => 'yes',
153         borrowernumber => $borrowernumber
154     );
155 }
156
157 if ( $print eq 'yes' && $borrowernumber ne '' ) {
158     printslip( $borrowernumber );
159     $query->param( 'borrowernumber', '' );
160     $borrowernumber = '';
161 }
162
163 #
164 # STEP 2 : FIND BORROWER
165 # if there is a list of find borrowers....
166 #
167 my $borrowerslist;
168 my $message;
169 if ($findborrower) {
170     my ( $count, $borrowers ) =
171       SearchMember($findborrower, 'cardnumber', 'web' );
172     my @borrowers = @$borrowers;
173     if ( $#borrowers == -1 ) {
174         $query->param( 'findborrower', '' );
175         $message = "'$findborrower'";
176     }
177     elsif ( $#borrowers == 0 ) {
178         $query->param( 'borrowernumber', $borrowers[0]->{'borrowernumber'} );
179         $query->param( 'barcode',           '' );
180         $borrowernumber = $borrowers[0]->{'borrowernumber'};
181     }
182     else {
183         $borrowerslist = \@borrowers;
184     }
185 }
186
187 # get the borrower information.....
188 my $borrower;
189 my @lines;
190
191 if ($borrowernumber) {
192     $borrower = GetMemberDetails( $borrowernumber, 0 );
193     my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrowernumber );
194
195     # Warningdate is the date that the warning starts appearing
196     my ( $today_year,   $today_month,   $today_day )   = Today();
197     my ( $warning_year, $warning_month, $warning_day ) = split /-/,
198       $borrower->{'dateexpiry'};
199     my ( $enrol_year, $enrol_month, $enrol_day ) = split /-/,
200       $borrower->{'dateenrolled'};
201     # Renew day is calculated by adding the enrolment period to today
202     my ( $renew_year, $renew_month, $renew_day ) =
203       Add_Delta_YM( $enrol_year, $enrol_month, $enrol_day,
204         0 , $borrower->{'enrolmentperiod'}) if ($enrol_year*$enrol_month*$enrol_day>0);
205     # if the expiry date is before today
206     if ( $warning_year*$warning_month*$warning_day==0 
207       || Date_to_Days( $today_year, $today_month, $today_day ) 
208          > Date_to_Days( $warning_year, $warning_month, $warning_day ) )
209     {
210
211         #borrowercard expired or nearly expired, warn the librarian
212         $template->param(
213             flagged       => "1",
214             warndeparture => format_date($borrower->{dateexpiry}),
215             renewaldate   => format_date("$renew_year-$renew_month-$renew_day")
216         );
217     }
218     # check for NotifyBorrowerDeparture
219         if ($warning_year*$warning_month*$warning_day==0 
220       || (C4::Context->preference('NotifyBorrowerDeparture') &&
221             Date_to_Days(Add_Delta_Days($warning_year,$warning_month,$warning_day,- C4::Context->preference('NotifyBorrowerDeparture'))) <
222             Date_to_Days( $today_year, $today_month, $today_day )) ) 
223         {
224             $template->param("warndeparture" => format_date($borrower->{dateexpiry}));
225         }
226     $template->param(
227         overduecount => $od,
228         issuecount   => $issue,
229         finetotal    => $fines
230     );
231 }
232
233 #
234 # STEP 3 : ISSUING
235 #
236 #
237
238 if ($barcode) {
239     $barcode = cuecatbarcodedecode($barcode);
240     my ( $datedue, $invalidduedate ) = fixdate( $year, $month, $day );
241     if ($issueconfirmed) {
242         AddIssue( $borrower, $barcode, $datedue, $cancelreserve );
243         $inprocess = 1;
244     }
245     else {
246         my ( $error, $question ) =
247           CanBookBeIssued( $borrower, $barcode, $year, $month, $day,
248             $inprocess );
249         my $noerror    = 1;
250         my $noquestion = 1;
251 #         Get the item title for more information
252     my $getmessageiteminfo  = GetBiblioFromItemNumber( undef, $barcode );
253     
254         foreach my $impossible ( keys %$error ) {
255             $template->param(
256                 $impossible => $$error{$impossible},
257                 IMPOSSIBLE  => 1
258             );
259             $noerror = 0;
260         }
261         foreach my $needsconfirmation ( keys %$question ) {
262             $template->param(
263                 $needsconfirmation => $$question{$needsconfirmation},
264                 getTitleMessageIteminfo => $getmessageiteminfo->{'title'},
265                 NEEDSCONFIRMATION  => 1
266             );
267             $noquestion = 0;
268         }
269         $template->param(
270             day   => $day,
271             month => $month,
272             year  => $year
273         );
274         if ( $noerror && ( $noquestion || $issueconfirmed ) ) {
275             AddIssue( $borrower, $barcode, $datedue );
276             $inprocess = 1;
277         }
278     }
279     
280 # FIXME If the issue is confirmed, we launch another time borrdata2, now display the issue count after issue 
281         my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrowernumber );
282         $template->param(
283         issuecount   => $issue,
284         );
285 }
286
287 # reload the borrower info for the sake of reseting the flags.....
288 if ($borrowernumber) {
289     $borrower = GetMemberDetails( $borrowernumber, 0 );
290 }
291
292 ##################################################################################
293 # BUILD HTML
294 # show all reserves of this borrower, and the position of the reservation ....
295 if ($borrowernumber) {
296
297     # new op dev
298     # now we show the status of the borrower's reservations
299     my @borrowerreserv = GetReservesFromBorrowernumber($borrowernumber );
300     my @reservloop;
301     my @WaitingReserveLoop;
302     
303     foreach my $num_res (@borrowerreserv) {
304         my %getreserv;
305         my %getWaitingReserveInfo;
306         my $getiteminfo  = GetBiblioFromItemNumber( $num_res->{'itemnumber'} );
307         my $itemtypeinfo = getitemtypeinfo( $getiteminfo->{'itemtype'} );
308         my ( $transfertwhen, $transfertfrom, $transfertto ) =
309           GetTransfers( $num_res->{'itemnumber'} );
310
311         $getreserv{waiting}       = 0;
312         $getreserv{transfered}    = 0;
313         $getreserv{nottransfered} = 0;
314
315         $getreserv{reservedate}    = format_date( $num_res->{'reservedate'} );
316         $getreserv{title}          = $getiteminfo->{'title'};
317         $getreserv{itemtype}       = $itemtypeinfo->{'description'};
318         $getreserv{author}         = $getiteminfo->{'author'};
319         $getreserv{barcodereserv}  = $getiteminfo->{'barcode'};
320         $getreserv{itemcallnumber} = $getiteminfo->{'itemcallnumber'};
321
322         #         check if we have a waiting status for reservations
323         if ( $num_res->{'found'} eq 'W' ) {
324             $getreserv{color}   = 'reserved';
325             $getreserv{waiting} = 1;
326 #     genarate information displaying only waiting reserves
327         $getWaitingReserveInfo{title}        = $getiteminfo->{'title'};
328         $getWaitingReserveInfo{biblionumber}   = $getiteminfo->{'biblionumber'};
329         $getWaitingReserveInfo{itemtype}    = $itemtypeinfo->{'description'};
330         $getWaitingReserveInfo{author}        = $getiteminfo->{'author'};
331         $getWaitingReserveInfo{reservedate}    = format_date( $num_res->{'reservedate'} );
332         if ($getiteminfo->{'holdingbranch'} ne $num_res->{'branchcode'} ) {
333         $getWaitingReserveInfo{waitingat}    = GetBranchName( $num_res->{'branchcode'} );
334         }
335     
336         }
337         #         check transfers with the itemnumber foud in th reservation loop
338         if ($transfertwhen) {
339             $getreserv{color}      = 'transfered';
340             $getreserv{transfered} = 1;
341             $getreserv{datesent}   = format_date($transfertwhen);
342             $getreserv{frombranch} = GetBranchName($transfertfrom);
343         }
344
345         if ( ( $getiteminfo->{'holdingbranch'} ne $num_res->{'branchcode'} )
346             and not $transfertwhen )
347         {
348             $getreserv{nottransfered}   = 1;
349             $getreserv{nottransferedby} =
350               GetBranchName( $getiteminfo->{'holdingbranch'} );
351         }
352
353 #         if we don't have a reserv on item, we put the biblio infos and the waiting position
354         if ( $getiteminfo->{'title'} eq '' ) {
355             my $getbibinfo = GetBiblioItemData( $num_res->{'biblionumber'} );
356             my $getbibtype = getitemtypeinfo( $getbibinfo->{'itemtype'} );
357             $getreserv{color}           = 'inwait';
358             $getreserv{title}           = $getbibinfo->{'title'};
359             $getreserv{waitingposition} = $num_res->{'priority'};
360             $getreserv{nottransfered}   = 0;
361             $getreserv{itemtype}        = $getbibtype->{'description'};
362             $getreserv{author}          = $getbibinfo->{'author'};
363             $getreserv{itemcallnumber}  = '----------';
364
365         }
366         push( @reservloop, \%getreserv );
367
368 #         if we have a reserve waiting, initiate waitingreserveloop
369         if ($getreserv{waiting} eq 1) {
370         push (@WaitingReserveLoop, \%getWaitingReserveInfo)
371         }
372       
373     }
374
375     # return result to the template
376     $template->param( 
377         countreserv => scalar @reservloop,
378         reservloop  => \@reservloop ,
379         WaitingReserveLoop  => \@WaitingReserveLoop,
380     );
381 }
382
383 # make the issued books table.
384 my $todaysissues = '';
385 my $previssues   = '';
386 my @realtodayissues;
387 my @realprevissues;
388 my $allowborrow;
389 ## ADDED BY JF: new itemtype issuingrules counter stuff
390 my $issued_itemtypes_loop;
391 my $issued_itemtypes_count;
392 my $issued_itemtypes_allowed_count;    # hashref with total allowed by itemtype
393 my $issued_itemtypes_remaining;        # hashref with remaining
394 my $issued_itemtypes_flags;            #hashref that stores flags
395
396 if ($borrower) {
397
398 # get each issue of the borrower & separate them in todayissues & previous issues
399     my @todaysissues;
400     my @previousissues;
401     my ($countissues,$issueslist) = GetPendingIssues($borrower->{'borrowernumber'});
402
403     # split in 2 arrays for today & previous
404     my $dbh = C4::Context->dbh;
405     foreach my $it ( @$issueslist ) {
406         my $issuedate = $it->{'issuedate'};
407         $issuedate =~ s/-//g;
408         $issuedate = substr( $issuedate, 0, 8 );
409         if ( $todaysdate == $issuedate ) {
410             (
411                 $it->{'charge'},
412                 $it->{'itemtype_charge'}
413               )
414               = GetIssuingCharges(
415                 $it->{'itemnumber'},
416                 $borrower->{'borrowernumber'}
417               );
418             $it->{'charge'} =
419               sprintf( "%.2f", $it->{'charge'} );
420             (
421                 $it->{'can_renew'},
422                 $it->{'can_renew_error'}
423               )
424               = CanBookBeRenewed(
425                 $borrower->{'borrowernumber'},
426                 $it->{'itemnumber'}
427               );
428             my ( $restype, $reserves ) =
429               CheckReserves( $it->{'itemnumber'} );
430             if ($restype) {
431                 $it->{'can_renew'} = 0;
432             }
433             push @todaysissues, $it;
434         }
435         else {
436             (
437                 $it->{'charge'},
438                 $it->{'itemtype_charge'}
439               )
440               = GetIssuingCharges(
441                 $it->{'itemnumber'},
442                 $borrower->{'borrowernumber'}
443               );
444             $it->{'charge'} =
445               sprintf( "%.2f", $it->{'charge'} );
446             (
447                 $it->{'can_renew'},
448                 $it->{'can_renew_error'}
449               )
450               = CanBookBeRenewed(
451                 $borrower->{'borrowernumber'},
452                 $it->{'itemnumber'}
453               );
454             my ( $restype, $reserves ) =
455               CheckReserves( $it->{'itemnumber'} );
456             if ($restype) {
457                 $it->{'can_renew'} = 0;
458             }
459             push @previousissues, $it;
460         }
461     }
462     my $od;    # overdues
463     my $i = 0;
464     my $togglecolor;
465
466     # parses today & build Template array
467     foreach my $book ( sort { $b->{'timestamp'} <=> $a->{'timestamp'} }
468         @todaysissues )
469     {
470         #warn "TIMESTAMP".$book->{'timestamp'};
471         # ADDED BY JF: NEW ITEMTYPE COUNT DISPLAY
472         $issued_itemtypes_count->{ $book->{'itemtype'} }++;
473
474         my $dd      = $book->{'date_due'};
475         my $datedue = $book->{'date_due'};
476
477         #$dd=format_date($dd);
478         $datedue =~ s/-//g;
479         if ( $datedue < $todaysdate ) {
480             $od = 1;
481         }
482         else {
483             $od = 0;
484         }
485         if ( $i % 2 ) {
486             $togglecolor = 0;
487         }
488         else {
489             $togglecolor = 1;
490         }
491         $book->{'togglecolor'} = $togglecolor;
492         $book->{'od'}          = format_date($od);
493         $book->{'dd'}          = format_date($dd);
494         if ( $book->{'author'} eq '' ) {
495             $book->{'author'} = ' ';
496         }
497         push @realtodayissues, $book;
498         $i++;
499     }
500
501     # parses previous & build Template array
502     $i = 0;
503     foreach my $book ( sort { $a->{'date_due'} cmp $b->{'date_due'} }
504         @previousissues )
505     {
506
507         # ADDED BY JF: NEW ITEMTYPE COUNT DISPLAY
508         $issued_itemtypes_count->{ $book->{'itemtype'} }++;
509
510         my $dd      = format_date($book->{'date_due'});
511         my $datedue = format_date($book->{'date_due'});
512
513         #$dd=format_date($dd);
514         my $pcolor = '';
515         my $od     = '';
516         $datedue =~ s/-//g;
517         if ( $datedue < $todaysdate ) {
518             $od = 1;
519         }
520         else {
521             $od = 0;
522         }
523         if ( $i % 2 ) {
524             $togglecolor = 0;
525         }
526         else {
527             $togglecolor = 1;
528         }
529         $book->{'togglecolor'} = $togglecolor;
530         $book->{'dd'}          = $dd;
531         $book->{'od'}          = $od;
532         if ( $book->{'author'} eq '' ) {
533             $book->{'author'} = ' ';
534         }
535         push @realprevissues, $book;
536         $i++;
537     }
538 }
539
540 #### ADDED BY JF FOR COUNTS BY ITEMTYPE RULES
541 # FIXME: This should utilize all the issuingrules options rather than just the defaults
542 # and it should be moved to a module
543 my $dbh = C4::Context->dbh;
544
545 # how many of each is allowed?
546 my $issueqty_sth = $dbh->prepare( "
547 SELECT itemtypes.description AS description,issuingrules.itemtype,maxissueqty
548 FROM issuingrules
549   LEFT JOIN itemtypes ON (itemtypes.itemtype=issuingrules.itemtype)
550   WHERE categorycode=?
551 " );
552 my @issued_itemtypes_count;
553 $issueqty_sth->execute("*");
554 while ( my $data = $issueqty_sth->fetchrow_hashref() ) {
555
556     # subtract how many of each this borrower has
557     $data->{'count'} = $issued_itemtypes_count->{ $data->{'description'} };
558     $data->{'left'}  =
559       ( $data->{'maxissueqty'} -
560           $issued_itemtypes_count->{ $data->{'description'} } );
561
562     # can't have a negative number of remaining
563     if ( $data->{'left'} < 0 ) { $data->{'left'} = "0" }
564     $data->{'flag'} = 1 unless ( $data->{'maxissueqty'} > $data->{'count'} );
565     unless ( ( $data->{'maxissueqty'} < 1 )
566         || ( $data->{'itemtype'} eq "*" )
567         || ( $data->{'itemtype'} eq "CIRC" ) )
568     {
569         push @issued_itemtypes_count, $data;
570     }
571 }
572 $issued_itemtypes_loop = \@issued_itemtypes_count;
573
574 #### / JF
575
576 my @values;
577 my %labels;
578 my $CGIselectborrower;
579 if ($borrowerslist) {
580     foreach (
581         sort {
582                 $a->{'surname'}
583               . $a->{'firstname'} cmp $b->{'surname'}
584               . $b->{'firstname'}
585         } @$borrowerslist
586       )
587     {
588         push @values, $_->{'borrowernumber'};
589         $labels{ $_->{'borrowernumber'} } =
590 "$_->{'surname'}, $_->{'firstname'} ... ($_->{'cardnumber'} - $_->{'categorycode'}) ...  $_->{'address'} ";
591     }
592     $CGIselectborrower = CGI::scrolling_list(
593         -name     => 'borrowernumber',
594                 -id          => 'borrowernumber',
595         -values   => \@values,
596         -labels   => \%labels,
597         -size     => 7,
598         -tabindex => '',
599         -multiple => 0
600     );
601 }
602
603 #title
604 my $flags = $borrower->{'flags'};
605 my $flag;
606
607 foreach $flag ( sort keys %$flags ) {
608
609     $flags->{$flag}->{'message'} =~ s/\n/<br>/g;
610     if ( $flags->{$flag}->{'noissues'} ) {
611         $template->param(
612             flagged  => 1,
613             noissues => 'true',
614         );
615         if ( $flag eq 'GNA' ) {
616             $template->param( gna => 'true' );
617         }
618         if ( $flag eq 'LOST' ) {
619             $template->param( lost => 'true' );
620         }
621         if ( $flag eq 'DBARRED' ) {
622             $template->param( dbarred => 'true' );
623         }
624         if ( $flag eq 'CHARGES' ) {
625             $template->param(
626                 charges    => 'true',
627                 chargesmsg => $flags->{'CHARGES'}->{'message'}
628             );
629         }
630         if ( $flag eq 'CREDITS' ) {
631             $template->param(
632                 credits    => 'true',
633                 creditsmsg => $flags->{'CREDITS'}->{'message'}
634             );
635         }
636     }
637     else {
638         if ( $flag eq 'CHARGES' ) {
639             $template->param(
640                 charges    => 'true',
641                 flagged    => 1,
642                 chargesmsg => $flags->{'CHARGES'}->{'message'}
643             );
644         }
645         if ( $flag eq 'CREDITS' ) {
646             $template->param(
647                 credits    => 'true',
648                 creditsmsg => $flags->{'CREDITS'}->{'message'}
649             );
650         }
651         if ( $flag eq 'ODUES' ) {
652             $template->param(
653                 odues    => 'true',
654                 flagged  => 1,
655                 oduesmsg => $flags->{'ODUES'}->{'message'}
656             );
657
658             my $items = $flags->{$flag}->{'itemlist'};
659 # useless ???
660 #             {
661 #                 my @itemswaiting;
662 #                 foreach my $item (@$items) {
663 #                     my ($iteminformation) =
664 #                         getiteminformation( $item->{'itemnumber'}, 0 );
665 #                     push @itemswaiting, $iteminformation;
666 #                 }
667 #             }
668             if ( $query->param('module') ne 'returns' ) {
669                 $template->param( nonreturns => 'true' );
670             }
671         }
672         if ( $flag eq 'NOTES' ) {
673             $template->param(
674                 notes    => 'true',
675                 flagged  => 1,
676                 notesmsg => $flags->{'NOTES'}->{'message'}
677             );
678         }
679     }
680 }
681
682 my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0;
683 my @temp = split( /\$/, $amountold );
684
685 my $CGIorganisations;
686 my $member_of_institution;
687 if ( C4::Context->preference("memberofinstitution") ) {
688     my $organisations = get_institutions();
689     my @orgs;
690     my %org_labels;
691     foreach my $organisation ( keys %$organisations ) {
692         push @orgs, $organisation;
693         $org_labels{$organisation} =
694           $organisations->{$organisation}->{'surname'};
695     }
696     $member_of_institution = 1;
697     $CGIorganisations      = CGI::popup_menu(
698         -id     => 'organisations',
699         -name   => 'organisations',
700         -labels => \%org_labels,
701         -values => \@orgs,
702     );
703 }
704
705 $amountold = $temp[1];
706
707 $template->param(
708     issued_itemtypes_count_loop => $issued_itemtypes_loop,
709     findborrower                => $findborrower,
710     borrower                    => $borrower,
711     borrowernumber              => $borrowernumber,
712     branch                      => $branch,
713     printer                     => $printer,
714     printername                 => $printer,
715     firstname                   => $borrower->{'firstname'},
716     surname                     => $borrower->{'surname'},
717     expiry                      =>
718       $borrower->{'dateexpiry'},    #format_date($borrower->{'dateexpiry'}),
719     categorycode      => $borrower->{'categorycode'},
720     streetaddress     => $borrower->{'address'},
721     email      => $borrower->{'email'},
722         emailpro           => $borrower->{'emailpro'},
723     borrowernotes     => $borrower->{'borrowernotes'},
724     city              => $borrower->{'city'},
725     phone             => $borrower->{'phone'} || $borrower->{'mobile'},
726     cardnumber        => $borrower->{'cardnumber'},
727     amountold         => $amountold,
728     barcode           => $barcode,
729     stickyduedate     => $stickyduedate,
730     message           => $message,
731     CGIselectborrower => $CGIselectborrower,
732     todayissues       => \@realtodayissues,
733     previssues        => \@realprevissues,
734     inprocess         => $inprocess,
735     memberofinstution => $member_of_institution,
736     CGIorganisations  => $CGIorganisations,
737 );
738
739 # set return date if stickyduedate
740 if ($stickyduedate) {
741     my $t_year  = "year" . $year;
742     my $t_month = "month" . $month;
743     my $t_day   = "day" . $day;
744     $template->param(
745         $t_year  => 1,
746         $t_month => 1,
747         $t_day   => 1,
748     );
749 }
750
751 #if ($branchcookie) {
752 #$cookie=[$cookie, $branchcookie, $printercookie];
753 #}
754
755 $template->param(
756     SpecifyDueDate     => C4::Context->preference("SpecifyDueDate")
757 );
758 output_html_with_http_headers $query, $cookie, $template->output;