View | Details | Raw Unified | Return to bug 8455
Collapse All | Expand All

(-)a/reserve/renewscript.pl (-1 / +22 lines)
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
- 

Return to bug 8455