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, |