- #check status before renewing issue
-# warn "CanBookbeRenewed";
- if (CanBookBeRenewed($borrowernumber,$itemno)){
-# warn "$itemno can be renewed for $borrowernumber";
- AddRenewal($borrowernumber,$itemno);
-# warn "renewal added";
-# }else {
-# warn "cannot renew";
-# }
+
+ # check status before renewing issue
+ my ( $renewokay, $error ) =
+ CanBookBeRenewed( $borrowernumber, $itemno, $override_limit );
+ if ($renewokay) {
+ AddRenewal( $borrowernumber, $itemno, $branch, $datedue );
+ }
+ else {
+ $failedrenews .= "&failedrenew=$itemno";
+ }
+}
+my $failedreturn = q{};
+foreach my $barcode (@barcodes) {
+
+ # check status before renewing issue
+
+ #System Preference Handling During Check-in In Patron Module
+ my $itemnumber;
+ $itemnumber = GetItemnumberFromBarcode($barcode);
+ if ($itemnumber) {
+ if ( C4::Context->preference("InProcessingToShelvingCart") ) {
+ my $item = GetItem($itemnumber);
+ if ( $item->{'location'} eq 'PROC' ) {
+ $item->{'location'} = 'CART';
+ ModItem( $item, $item->{'biblionumber'},
+ $item->{'itemnumber'} );
+ }
+ }
+
+ if ( C4::Context->preference("ReturnToShelvingCart") ) {
+ my $item = GetItem($itemnumber);
+ $item->{'location'} = 'CART';
+ ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'} );
+ }
+ }
+
+ my ( $returned, $messages, $issueinformation, $borrower ) =
+ AddReturn( $barcode, $branch, $exemptfine );
+ $failedreturn .= "&failedreturn=$barcode" unless ($returned);