|
Lines 55-61
use Date::Calc qw(
Link Here
|
| 55 |
); |
55 |
); |
| 56 |
use List::MoreUtils qw/uniq/; |
56 |
use List::MoreUtils qw/uniq/; |
| 57 |
|
57 |
|
| 58 |
|
|
|
| 59 |
# |
58 |
# |
| 60 |
# PARAMETERS READING |
59 |
# PARAMETERS READING |
| 61 |
# |
60 |
# |
|
Lines 122-128
my $borrowernumber = $query->param('borrowernumber');
Link Here
|
| 122 |
$branch = C4::Context->userenv->{'branch'}; |
121 |
$branch = C4::Context->userenv->{'branch'}; |
| 123 |
$printer = C4::Context->userenv->{'branchprinter'}; |
122 |
$printer = C4::Context->userenv->{'branchprinter'}; |
| 124 |
|
123 |
|
| 125 |
|
|
|
| 126 |
# If AutoLocation is not activated, we show the Circulation Parameters to chage settings of librarian |
124 |
# If AutoLocation is not activated, we show the Circulation Parameters to chage settings of librarian |
| 127 |
if (C4::Context->preference("AutoLocation") != 1) { |
125 |
if (C4::Context->preference("AutoLocation") != 1) { |
| 128 |
$template->param(ManualLocation => 1); |
126 |
$template->param(ManualLocation => 1); |
|
Lines 136-148
my $barcode = $query->param('barcode') || q{};
Link Here
|
| 136 |
$barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace |
134 |
$barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace |
| 137 |
|
135 |
|
| 138 |
$barcode = barcodedecode($barcode) if( $barcode && C4::Context->preference('itemBarcodeInputFilter')); |
136 |
$barcode = barcodedecode($barcode) if( $barcode && C4::Context->preference('itemBarcodeInputFilter')); |
| 139 |
my $stickyduedate = $query->param('stickyduedate') || $session->param('stickyduedate'); |
137 |
my $stickyduedate = $query->param('stickyduedate') || $session->param('stickyduedate'); |
| 140 |
my $duedatespec = $query->param('duedatespec') || $session->param('stickyduedate'); |
138 |
my $duedatespec = $query->param('duedatespec') || $session->param('stickyduedate'); |
| 141 |
my $issueconfirmed = $query->param('issueconfirmed'); |
139 |
my $restoreduedatespec = $query->param('restoreduedatespec') || $session->param('stickyduedate'); |
| 142 |
my $cancelreserve = $query->param('cancelreserve'); |
140 |
my $issueconfirmed = $query->param('issueconfirmed'); |
| 143 |
my $print = $query->param('print') || q{}; |
141 |
my $cancelreserve = $query->param('cancelreserve'); |
| 144 |
my $debt_confirmed = $query->param('debt_confirmed') || 0; # Don't show the debt error dialog twice |
142 |
my $print = $query->param('print') || q{}; |
| 145 |
my $charges = $query->param('charges') || q{}; |
143 |
my $debt_confirmed = $query->param('debt_confirmed') || 0; # Don't show the debt error dialog twice |
|
|
144 |
my $charges = $query->param('charges') || q{}; |
| 146 |
|
145 |
|
| 147 |
# Check if stickyduedate is turned off |
146 |
# Check if stickyduedate is turned off |
| 148 |
if ( $barcode ) { |
147 |
if ( $barcode ) { |
|
Lines 541-578
my $roadtype = C4::Koha::GetAuthorisedValueByCode( 'ROADTYPE', $borrower->{stree
Link Here
|
| 541 |
|
540 |
|
| 542 |
$template->param(%$borrower); |
541 |
$template->param(%$borrower); |
| 543 |
|
542 |
|
|
|
543 |
# Restore date if changed by holds |
| 544 |
if ($restoreduedatespec) { |
| 545 |
$duedatespec = $restoreduedatespec; |
| 546 |
|
| 547 |
if ($stickyduedate eq 'on') { |
| 548 |
$session->param( 'stickyduedate', $duedatespec ); |
| 549 |
} |
| 550 |
} |
| 551 |
|
| 544 |
$template->param( |
552 |
$template->param( |
| 545 |
lib_messages_loop => $lib_messages_loop, |
553 |
lib_messages_loop => $lib_messages_loop, |
| 546 |
bor_messages_loop => $bor_messages_loop, |
554 |
bor_messages_loop => $bor_messages_loop, |
| 547 |
all_messages_del => C4::Context->preference('AllowAllMessageDeletion'), |
555 |
all_messages_del => C4::Context->preference('AllowAllMessageDeletion'), |
| 548 |
findborrower => $findborrower, |
556 |
findborrower => $findborrower, |
| 549 |
borrower => $borrower, |
557 |
borrower => $borrower, |
| 550 |
borrowernumber => $borrowernumber, |
558 |
borrowernumber => $borrowernumber, |
| 551 |
branch => $branch, |
559 |
branch => $branch, |
| 552 |
branchname => GetBranchName($borrower->{'branchcode'}), |
560 |
branchname => GetBranchName($borrower->{'branchcode'}), |
| 553 |
printer => $printer, |
561 |
printer => $printer, |
| 554 |
printername => $printer, |
562 |
printername => $printer, |
| 555 |
was_renewed => $query->param('was_renewed') ? 1 : 0, |
563 |
was_renewed => $query->param('was_renewed') ? 1 : 0, |
| 556 |
expiry => format_date($borrower->{'dateexpiry'}), |
564 |
expiry => format_date($borrower->{'dateexpiry'}), |
| 557 |
roadtype => $roadtype, |
565 |
roadtype => $roadtype, |
| 558 |
amountold => $amountold, |
566 |
amountold => $amountold, |
| 559 |
barcode => $barcode, |
567 |
barcode => $barcode, |
| 560 |
stickyduedate => $stickyduedate, |
568 |
stickyduedate => $stickyduedate, |
| 561 |
duedatespec => $duedatespec, |
569 |
duedatespec => $duedatespec, |
| 562 |
message => $message, |
570 |
restoreduedatespec => $restoreduedatespec, |
| 563 |
totaldue => sprintf('%.2f', $total), |
571 |
message => $message, |
| 564 |
inprocess => $inprocess, |
572 |
totaldue => sprintf('%.2f', $total), |
| 565 |
is_child => ($borrowernumber && $borrower->{'category_type'} eq 'C'), |
573 |
inprocess => $inprocess, |
| 566 |
circview => 1, |
574 |
is_child => ($borrowernumber && $borrower->{'category_type'} eq 'C'), |
| 567 |
soundon => C4::Context->preference("SoundOn"), |
575 |
circview => 1, |
| 568 |
fast_cataloging => $fast_cataloging, |
576 |
soundon => C4::Context->preference("SoundOn"), |
| 569 |
CircAutoPrintQuickSlip => C4::Context->preference("CircAutoPrintQuickSlip"), |
577 |
fast_cataloging => $fast_cataloging, |
| 570 |
activeBorrowerRelationship => (C4::Context->preference('borrowerRelationship') ne ''), |
578 |
CircAutoPrintQuickSlip => C4::Context->preference("CircAutoPrintQuickSlip"), |
| 571 |
SuspendHoldsIntranet => C4::Context->preference('SuspendHoldsIntranet'), |
579 |
activeBorrowerRelationship => (C4::Context->preference('borrowerRelationship') ne ''), |
| 572 |
AutoResumeSuspendedHolds => C4::Context->preference('AutoResumeSuspendedHolds'), |
580 |
SuspendHoldsIntranet => C4::Context->preference('SuspendHoldsIntranet'), |
| 573 |
RoutingSerials => C4::Context->preference('RoutingSerials'), |
581 |
AutoResumeSuspendedHolds => C4::Context->preference('AutoResumeSuspendedHolds'), |
| 574 |
relatives_issues_count => $relatives_issues_count, |
582 |
RoutingSerials => C4::Context->preference('RoutingSerials'), |
| 575 |
relatives_borrowernumbers => \@relatives, |
583 |
relatives_issues_count => $relatives_issues_count, |
|
|
584 |
relatives_borrowernumbers => \@relatives, |
| 576 |
); |
585 |
); |
| 577 |
|
586 |
|
| 578 |
# save stickyduedate to session |
587 |
# save stickyduedate to session |