Lines 29-34
use C4::Context;
Link Here
|
29 |
use C4::Biblio; |
29 |
use C4::Biblio; |
30 |
use C4::Accounts; |
30 |
use C4::Accounts; |
31 |
use C4::Circulation; |
31 |
use C4::Circulation; |
|
|
32 |
use C4::Items; |
32 |
use C4::Members; |
33 |
use C4::Members; |
33 |
use C4::Stats; |
34 |
use C4::Stats; |
34 |
use C4::UploadedFile; |
35 |
use C4::UploadedFile; |
Lines 323-329
sub kocReturnItem {
Link Here
|
323 |
#warn( Data::Dumper->Dump( [ $circ, $item ], [ qw( circ item ) ] ) ); |
324 |
#warn( Data::Dumper->Dump( [ $circ, $item ], [ qw( circ item ) ] ) ); |
324 |
my $borrowernumber = _get_borrowernumber_from_barcode( $circ->{'barcode'} ); |
325 |
my $borrowernumber = _get_borrowernumber_from_barcode( $circ->{'barcode'} ); |
325 |
if ( $borrowernumber ) { |
326 |
if ( $borrowernumber ) { |
326 |
my $borrower = GetMember( 'borrowernumber' =>$borrowernumber ); |
327 |
my $borrower = GetMember( 'borrowernumber' => $borrowernumber ); |
327 |
C4::Circulation::MarkIssueReturned( |
328 |
C4::Circulation::MarkIssueReturned( |
328 |
$borrowernumber, |
329 |
$borrowernumber, |
329 |
$item->{'itemnumber'}, |
330 |
$item->{'itemnumber'}, |
Lines 331-336
sub kocReturnItem {
Link Here
|
331 |
$circ->{'date'} |
332 |
$circ->{'date'} |
332 |
); |
333 |
); |
333 |
|
334 |
|
|
|
335 |
ModItem({ onloan => undef }, $item->{'biblionumber'}, $item->{'itemnumber'}); |
336 |
ModDateLastSeen( $item->{'itemnumber'} ); |
337 |
|
334 |
push @output, { |
338 |
push @output, { |
335 |
return => 1, |
339 |
return => 1, |
336 |
title => $item->{ 'title' }, |
340 |
title => $item->{ 'title' }, |
337 |
- |
|
|