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 |