|
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 } ); |