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