|
Lines 25-35
use strict;
Link Here
|
| 25 |
use CGI; |
25 |
use CGI; |
| 26 |
use C4::Output; |
26 |
use C4::Output; |
| 27 |
use C4::Auth qw/:DEFAULT get_session/; |
27 |
use C4::Auth qw/:DEFAULT get_session/; |
| 28 |
use C4::Dates qw/format_date/; |
|
|
| 29 |
use C4::Branch; # GetBranches |
28 |
use C4::Branch; # GetBranches |
| 30 |
use C4::Koha; # GetPrinter |
29 |
use C4::Koha; # GetPrinter |
| 31 |
use C4::Circulation; |
30 |
use C4::Circulation; |
| 32 |
use C4::Overdues qw/CheckBorrowerDebarred/; |
|
|
| 33 |
use C4::Members; |
31 |
use C4::Members; |
| 34 |
use C4::Biblio; |
32 |
use C4::Biblio; |
| 35 |
use C4::Reserves; |
33 |
use C4::Reserves; |
|
Lines 240-246
if ($borrowernumber) {
Link Here
|
| 240 |
flagged => "1", |
238 |
flagged => "1", |
| 241 |
noissues => "1", |
239 |
noissues => "1", |
| 242 |
expired => "1", |
240 |
expired => "1", |
| 243 |
renewaldate => format_date("$renew_year-$renew_month-$renew_day") |
241 |
renewaldate => "$renew_year-$renew_month-$renew_day", |
| 244 |
); |
242 |
); |
| 245 |
} |
243 |
} |
| 246 |
# check for NotifyBorrowerDeparture |
244 |
# check for NotifyBorrowerDeparture |
|
Lines 249-255
if ($borrowernumber) {
Link Here
|
| 249 |
Date_to_Days( $today_year, $today_month, $today_day ) ) |
247 |
Date_to_Days( $today_year, $today_month, $today_day ) ) |
| 250 |
{ |
248 |
{ |
| 251 |
# borrower card soon to expire warn librarian |
249 |
# borrower card soon to expire warn librarian |
| 252 |
$template->param("warndeparture" => format_date($borrower->{dateexpiry}), |
250 |
$template->param("warndeparture" => $borrower->{dateexpiry}, |
| 253 |
flagged => "1",); |
251 |
flagged => "1",); |
| 254 |
if (C4::Context->preference('ReturnBeforeExpiry')){ |
252 |
if (C4::Context->preference('ReturnBeforeExpiry')){ |
| 255 |
$template->param("returnbeforeexpiry" => 1); |
253 |
$template->param("returnbeforeexpiry" => 1); |
|
Lines 261-272
if ($borrowernumber) {
Link Here
|
| 261 |
finetotal => $fines |
259 |
finetotal => $fines |
| 262 |
); |
260 |
); |
| 263 |
|
261 |
|
| 264 |
my $debar = CheckBorrowerDebarred($borrowernumber); |
262 |
my $debar = $borrower->{debarred}; |
| 265 |
if ($debar) { |
263 |
if ($debar) { |
| 266 |
$template->param( 'userdebarred' => 1 ); |
264 |
$template->param( 'userdebarred' => 1 ); |
| 267 |
$template->param( 'debarredcomment' => $borrower->{debarredcomment} ); |
265 |
$template->param( 'debarredcomment' => $borrower->{debarredcomment} ); |
| 268 |
if ( $debar ne "9999-12-31" ) { |
266 |
if ( $debar ne "9999-12-31" ) { |
| 269 |
$template->param( 'userdebarreddate' => C4::Dates::format_date($debar) ); |
267 |
$template->param( 'userdebarreddate' => $debar ); |
| 270 |
} |
268 |
} |
| 271 |
} |
269 |
} |
| 272 |
|
270 |
|
|
Lines 348-354
if ($borrowernumber) {
Link Here
|
| 348 |
$getreserv{transfered} = 0; |
346 |
$getreserv{transfered} = 0; |
| 349 |
$getreserv{nottransfered} = 0; |
347 |
$getreserv{nottransfered} = 0; |
| 350 |
|
348 |
|
| 351 |
$getreserv{reservedate} = format_date( $num_res->{'reservedate'} ); |
349 |
$getreserv{reservedate} = $num_res->{'reservedate'}; |
| 352 |
$getreserv{reservenumber} = $num_res->{'reservenumber'}; |
350 |
$getreserv{reservenumber} = $num_res->{'reservenumber'}; |
| 353 |
$getreserv{title} = $getiteminfo->{'title'}; |
351 |
$getreserv{title} = $getiteminfo->{'title'}; |
| 354 |
$getreserv{itemtype} = $itemtypeinfo->{'description'}; |
352 |
$getreserv{itemtype} = $itemtypeinfo->{'description'}; |
|
Lines 366-372
if ($borrowernumber) {
Link Here
|
| 366 |
$getWaitingReserveInfo{biblionumber} = $getiteminfo->{'biblionumber'}; |
364 |
$getWaitingReserveInfo{biblionumber} = $getiteminfo->{'biblionumber'}; |
| 367 |
$getWaitingReserveInfo{itemtype} = $itemtypeinfo->{'description'}; |
365 |
$getWaitingReserveInfo{itemtype} = $itemtypeinfo->{'description'}; |
| 368 |
$getWaitingReserveInfo{author} = $getiteminfo->{'author'}; |
366 |
$getWaitingReserveInfo{author} = $getiteminfo->{'author'}; |
| 369 |
$getWaitingReserveInfo{reservedate} = format_date( $num_res->{'reservedate'} ); |
367 |
$getWaitingReserveInfo{reservedate} = $num_res->{'reservedate'}; |
| 370 |
$getWaitingReserveInfo{waitingat} = GetBranchName( $num_res->{'branchcode'} ); |
368 |
$getWaitingReserveInfo{waitingat} = GetBranchName( $num_res->{'branchcode'} ); |
| 371 |
$getWaitingReserveInfo{waitinghere} = 1 if $num_res->{'branchcode'} eq $branch; |
369 |
$getWaitingReserveInfo{waitinghere} = 1 if $num_res->{'branchcode'} eq $branch; |
| 372 |
} |
370 |
} |
|
Lines 374-380
if ($borrowernumber) {
Link Here
|
| 374 |
if ($transfertwhen) { |
372 |
if ($transfertwhen) { |
| 375 |
$getreserv{color} = 'transfered'; |
373 |
$getreserv{color} = 'transfered'; |
| 376 |
$getreserv{transfered} = 1; |
374 |
$getreserv{transfered} = 1; |
| 377 |
$getreserv{datesent} = format_date($transfertwhen); |
375 |
$getreserv{datesent} = $transfertwhen; |
| 378 |
$getreserv{frombranch} = GetBranchName($transfertfrom); |
376 |
$getreserv{frombranch} = GetBranchName($transfertfrom); |
| 379 |
} elsif ($getiteminfo->{'holdingbranch'} ne $num_res->{'branchcode'}) { |
377 |
} elsif ($getiteminfo->{'holdingbranch'} ne $num_res->{'branchcode'}) { |
| 380 |
$getreserv{nottransfered} = 1; |
378 |
$getreserv{nottransfered} = 1; |
|
Lines 445-459
sub build_issue_data {
Link Here
|
| 445 |
$it->{'can_renew'} = $can_renew; |
443 |
$it->{'can_renew'} = $can_renew; |
| 446 |
$it->{'can_confirm'} = !$can_renew && !$restype; |
444 |
$it->{'can_confirm'} = !$can_renew && !$restype; |
| 447 |
$it->{'renew_error'} = $restype; |
445 |
$it->{'renew_error'} = $restype; |
| 448 |
$it->{'checkoutdate'} = C4::Dates->new($it->{'issuedate'},'iso')->output('syspref'); |
446 |
$it->{'checkoutdate'} = $it->{'issuedate'}; |
|
|
447 |
$it->{'duedate'} = $it->{'date_due'}; |
| 448 |
$it->{'od'} = ( $it->{'date_due'} lt $todaysdate ) ? 1 : 0 ; |
| 449 |
$it->{'issuingbranchname'} = GetBranchName($it->{'branchcode'}); |
449 |
$it->{'issuingbranchname'} = GetBranchName($it->{'branchcode'}); |
| 450 |
|
450 |
|
| 451 |
$totalprice += $it->{'replacementprice'}; |
451 |
$totalprice += $it->{'replacementprice'}; |
| 452 |
$it->{'itemtype'} = $itemtypeinfo->{'description'}; |
452 |
$it->{'itemtype'} = $itemtypeinfo->{'description'}; |
| 453 |
$it->{'itemtype_image'} = $itemtypeinfo->{'imageurl'}; |
453 |
$it->{'itemtype_image'} = $itemtypeinfo->{'imageurl'}; |
| 454 |
$it->{'dd'} = format_date($it->{'date_due'}); |
|
|
| 455 |
$it->{'displaydate'} = format_date($it->{'issuedate'}); |
| 456 |
$it->{'od'} = ( $it->{'date_due'} lt $todaysdate ) ? 1 : 0 ; |
| 457 |
($it->{'author'} eq '') and $it->{'author'} = ' '; |
454 |
($it->{'author'} eq '') and $it->{'author'} = ' '; |
| 458 |
$it->{'renew_failed'} = $renew_failed{$it->{'itemnumber'}}; |
455 |
$it->{'renew_failed'} = $renew_failed{$it->{'itemnumber'}}; |
| 459 |
|
456 |
|
|
Lines 667-674
$template->param(
Link Here
|
| 667 |
surname => $borrower->{'surname'}, |
664 |
surname => $borrower->{'surname'}, |
| 668 |
showname => $borrower->{'showname'}, |
665 |
showname => $borrower->{'showname'}, |
| 669 |
category_type => $borrower->{'category_type'}, |
666 |
category_type => $borrower->{'category_type'}, |
| 670 |
dateexpiry => format_date($newexpiry), |
667 |
dateexpiry => $newexpiry, |
| 671 |
expiry => format_date($borrower->{'dateexpiry'}), |
668 |
expiry => $borrower->{'dateexpiry'}, |
| 672 |
categorycode => $borrower->{'categorycode'}, |
669 |
categorycode => $borrower->{'categorycode'}, |
| 673 |
categoryname => $borrower->{description}, |
670 |
categoryname => $borrower->{description}, |
| 674 |
address => $address, |
671 |
address => $address, |