From cb2095f22624403c7758ffad6dad3561d55342c8 Mon Sep 17 00:00:00 2001 From: Matthias Le Gac Date: Tue, 2 Apr 2024 16:26:17 -0400 Subject: [PATCH] Bug 9762: Change how to pass the param --- C4/Circulation.pm | 51 ++++++++++++++++++--------------------------- circ/circulation.pl | 1 + 2 files changed, 21 insertions(+), 31 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index 50db11ebdb..e6c70421ff 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -319,21 +319,6 @@ A recall for this item was found, and the item needs to be transferred to the re =cut -my $query = CGI->new; - -my $stickyduedate = $query->param('stickyduedate'); -my $duedatespec = $query->param('duedatespec'); -my $restoreduedatespec = $query->param('restoreduedatespec') || $duedatespec; -if ( $restoreduedatespec && $restoreduedatespec eq "highholds_empty" ) { - undef $restoreduedatespec; -} -my $issueconfirmed = $query->param('issueconfirmed'); -my $cancelreserve = $query->param('cancelreserve'); -my $cancel_recall = $query->param('cancel_recall'); -my $recall_id = $query->param('recall_id'); -my $debt_confirmed = $query->param('debt_confirmed') || 0; # Don't show the debt error dialog twice -my $charges = $query->param('charges') || q{}; - sub transferbook { my $params = shift; my $tbr = $params->{to_branch}; @@ -796,6 +781,7 @@ sub CanBookBeIssued { my $onsite_checkout = $params->{onsite_checkout} || 0; my $override_high_holds = $params->{override_high_holds} || 0; + my $issueconfirmed = $params->{issueconfirmed} || 0; my $item_object = $params->{item} // Koha::Items->find( { barcode => $barcode } ); @@ -819,7 +805,7 @@ sub CanBookBeIssued { my $now = dt_from_string(); my $message; - my @message; + my @message_log; $duedate ||= CalcDateDue( $now, $effective_itemtype, $circ_library->branchcode, $patron ); @@ -831,7 +817,7 @@ sub CanBookBeIssued { } else { $message = "sticky due date is invalid or due date in the past"; } - push( @message, "sticky due date is invalid or due date in the past" ); + push( @message_log, "sticky due date is invalid or due date in the past" ); } } @@ -884,7 +870,7 @@ sub CanBookBeIssued { } else { $message = "borrower is restricted"; } - push( @message, "borrower is restricted" ); + push( @message_log, "borrower is restricted" ); } } @@ -964,7 +950,7 @@ sub CanBookBeIssued { } else { $message = "borrower had amend"; } - push( @message, "borrower had amend" ); + push( @message_log, "borrower had amend" ); } } elsif ( $patron_borrowing_status->{noissuescharge}->{overlimit} && !$allowfineoverride ) { $issuingimpossible{DEBT} = $patron_borrowing_status->{noissuescharge}->{charge}; @@ -976,7 +962,7 @@ sub CanBookBeIssued { } else { $message = "borrower had amend"; } - push( @message, "borrower had amend" ); + push( @message_log, "borrower had amend" ); } } } @@ -1067,7 +1053,7 @@ sub CanBookBeIssued { } else { $message = "item is checked out for someone else"; } - push( @message, "item is checked out for someone else" ); + push( @message_log, "item is checked out for someone else" ); } } } @@ -1098,7 +1084,7 @@ sub CanBookBeIssued { } else { $message = "too many checkout"; } - push( @message, "too many checkout" ); + push( @message_log, "too many checkout" ); } } else { $issuingimpossible{TOO_MANY} = $toomany->{reason}; @@ -1133,7 +1119,7 @@ sub CanBookBeIssued { } else { $message = "item not for loan"; } - push( @message, "item not for loan" ); + push( @message_log, "item not for loan" ); } } } @@ -1187,7 +1173,7 @@ sub CanBookBeIssued { } else { $message = "item lost"; } - push( @message, "item lost" ); + push( @message_log, "item lost" ); } } if ( C4::Context->preference("IndependentBranches") ) { @@ -1292,7 +1278,10 @@ sub CanBookBeIssued { } else { $message = "item is on reserve and waiting, but has been reserved by some other patron."; } - push( @message, "item is on reserve and waiting, but has been reserved by some other patron" ); + push( + @message_log, + "item is on reserve and waiting, but has been reserved by some other patron" + ); } } elsif ( $restype eq "Reserved" ) { @@ -1311,7 +1300,7 @@ sub CanBookBeIssued { } else { $message = "item is on reserve for someone else"; } - push( @message, "item is on reserve for someone else" ); + push( @message_log, "item is on reserve for someone else" ); } } elsif ( $restype eq "Transferred" ) { @@ -1330,7 +1319,7 @@ sub CanBookBeIssued { } else { $message = "item is determined hold being transferred for someone else"; } - push( @message, "item is determined hold being transferred for someone else" ); + push( @message_log, "item is determined hold being transferred for someone else" ); } } elsif ( $restype eq "Processing" ) { @@ -1349,7 +1338,7 @@ sub CanBookBeIssued { } else { $message = "item is determined hold being processed for someone else"; } - push( @message, "item is determined hold being processed for someone else" ); + push( @message_log, "item is determined hold being processed for someone else" ); } } } @@ -1399,7 +1388,7 @@ sub CanBookBeIssued { } else { $message = "age restriction"; } - push( @message, "age restriction" ); + push( @message_log, "age restriction" ); } else { $issuingimpossible{AGE_RESTRICTION} = "$agerestriction"; @@ -1467,7 +1456,7 @@ sub CanBookBeIssued { my $infos = ( { - message => \@message, + message => \@message_log, borrowernumber => $borrower->borrowernumber, barcode => $barcode, manager_id => $user, @@ -1486,7 +1475,7 @@ sub CanBookBeIssued { } - return ( \%issuingimpossible, \%needsconfirmation, \%alerts, \%messages, ); + return ( \%issuingimpossible, \%needsconfirmation, \%alerts, \%messages, \@message_log ); } =head2 CanBookBeReturned diff --git a/circ/circulation.pl b/circ/circulation.pl index c20b651851..a4984481fc 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -343,6 +343,7 @@ if (@$barcodes && $op eq 'cud-checkout') { { onsite_checkout => $onsite_checkout, override_high_holds => $override_high_holds || $override_high_holds_tmp || 0, + issueconfirmed => $issueconfirmed, } ); } catch { -- 2.34.1