Lines 318-338
A recall for this item was found, and the item needs to be transferred to the re
Link Here
|
318 |
|
318 |
|
319 |
=cut |
319 |
=cut |
320 |
|
320 |
|
321 |
my $query = CGI->new; |
|
|
322 |
|
323 |
my $stickyduedate = $query->param('stickyduedate'); |
324 |
my $duedatespec = $query->param('duedatespec'); |
325 |
my $restoreduedatespec = $query->param('restoreduedatespec') || $duedatespec; |
326 |
if ( $restoreduedatespec && $restoreduedatespec eq "highholds_empty" ) { |
327 |
undef $restoreduedatespec; |
328 |
} |
329 |
my $issueconfirmed = $query->param('issueconfirmed'); |
330 |
my $cancelreserve = $query->param('cancelreserve'); |
331 |
my $cancel_recall = $query->param('cancel_recall'); |
332 |
my $recall_id = $query->param('recall_id'); |
333 |
my $debt_confirmed = $query->param('debt_confirmed') || 0; # Don't show the debt error dialog twice |
334 |
my $charges = $query->param('charges') || q{}; |
335 |
|
336 |
sub transferbook { |
321 |
sub transferbook { |
337 |
my $params = shift; |
322 |
my $params = shift; |
338 |
my $tbr = $params->{to_branch}; |
323 |
my $tbr = $params->{to_branch}; |
Lines 795-800
sub CanBookBeIssued {
Link Here
|
795 |
|
780 |
|
796 |
my $onsite_checkout = $params->{onsite_checkout} || 0; |
781 |
my $onsite_checkout = $params->{onsite_checkout} || 0; |
797 |
my $override_high_holds = $params->{override_high_holds} || 0; |
782 |
my $override_high_holds = $params->{override_high_holds} || 0; |
|
|
783 |
my $issueconfirmed = $params->{issueconfirmed} || 0; |
798 |
|
784 |
|
799 |
my $item_object = $params->{item} |
785 |
my $item_object = $params->{item} |
800 |
// Koha::Items->find( { barcode => $barcode } ); |
786 |
// Koha::Items->find( { barcode => $barcode } ); |