|
Lines 25-30
use strict;
Link Here
|
| 25 |
use warnings; |
25 |
use warnings; |
| 26 |
use CGI; |
26 |
use CGI; |
| 27 |
use C4::Circulation; |
27 |
use C4::Circulation; |
|
|
28 |
use C4::Context; |
| 29 |
use C4::Items; |
| 28 |
use C4::Auth; |
30 |
use C4::Auth; |
| 29 |
use URI::Escape; |
31 |
use URI::Escape; |
| 30 |
use Koha::DateUtils; |
32 |
use Koha::DateUtils; |
|
Lines 91-96
foreach my $itemno (@data) {
Link Here
|
| 91 |
my $failedreturn = q{}; |
93 |
my $failedreturn = q{}; |
| 92 |
foreach my $barcode (@barcodes) { |
94 |
foreach my $barcode (@barcodes) { |
| 93 |
# check status before renewing issue |
95 |
# check status before renewing issue |
|
|
96 |
|
| 97 |
#System Preference Handling During Check-in In Patron Module |
| 98 |
my $itemnumber; |
| 99 |
$itemnumber = GetItemnumberFromBarcode($barcode); |
| 100 |
if ($itemnumber) { |
| 101 |
if ( C4::Context->preference("InProcessingToShelvingCart") ) { |
| 102 |
my $item = GetItem( $itemnumber ); |
| 103 |
if ( $item->{'location'} eq 'PROC' ) { |
| 104 |
$item->{'location'} = 'CART'; |
| 105 |
ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'} ); |
| 106 |
} |
| 107 |
} |
| 108 |
|
| 109 |
if ( C4::Context->preference("ReturnToShelvingCart") ) { |
| 110 |
my $item = GetItem( $itemnumber ); |
| 111 |
$item->{'location'} = 'CART'; |
| 112 |
ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'} ); |
| 113 |
} |
| 114 |
} |
| 115 |
|
| 94 |
my ( $returned, $messages, $issueinformation, $borrower ) = |
116 |
my ( $returned, $messages, $issueinformation, $borrower ) = |
| 95 |
AddReturn($barcode, $branch, $exemptfine); |
117 |
AddReturn($barcode, $branch, $exemptfine); |
| 96 |
$failedreturn.="&failedreturn=$barcode" unless ($returned); |
118 |
$failedreturn.="&failedreturn=$barcode" unless ($returned); |
| 97 |
- |
|
|