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