Lines 16-21
use C4::Circulation;
Link Here
|
16 |
use C4::Reserves qw( ModReserveAffect ); |
16 |
use C4::Reserves qw( ModReserveAffect ); |
17 |
use C4::Items qw( ModItemTransfer ); |
17 |
use C4::Items qw( ModItemTransfer ); |
18 |
use C4::Debug; |
18 |
use C4::Debug; |
|
|
19 |
use Koha::DateUtils; |
19 |
|
20 |
|
20 |
use parent qw(ILS::Transaction); |
21 |
use parent qw(ILS::Transaction); |
21 |
|
22 |
|
Lines 47-58
sub new {
Link Here
|
47 |
sub do_checkin { |
48 |
sub do_checkin { |
48 |
my $self = shift; |
49 |
my $self = shift; |
49 |
my $branch = shift; |
50 |
my $branch = shift; |
|
|
51 |
my $return_date = shift; |
50 |
if (!$branch) { |
52 |
if (!$branch) { |
51 |
$branch = 'SIP2'; |
53 |
$branch = 'SIP2'; |
52 |
} |
54 |
} |
53 |
my $barcode = $self->{item}->id; |
55 |
my $barcode = $self->{item}->id; |
|
|
56 |
|
57 |
$return_date = substr( $return_date, 0, 4 ) |
58 |
. '-' |
59 |
. substr( $return_date, 4, 2 ) |
60 |
. '-' |
61 |
. substr( $return_date, 6, 2 ) |
62 |
. q{ } |
63 |
. substr( $return_date, 12, 2 ) |
64 |
. ':' |
65 |
. substr( $return_date, 14, 2 ) |
66 |
. ':' |
67 |
. substr( $return_date, 16, 2 ); |
68 |
|
54 |
$debug and warn "do_checkin() calling AddReturn($barcode, $branch)"; |
69 |
$debug and warn "do_checkin() calling AddReturn($barcode, $branch)"; |
55 |
my ($return, $messages, $iteminformation, $borrower) = AddReturn($barcode, $branch); |
70 |
my ($return, $messages, $iteminformation, $borrower) = AddReturn($barcode, $branch, undef, undef, $return_date); |
56 |
$self->alert(!$return); |
71 |
$self->alert(!$return); |
57 |
# ignoring messages: NotIssued, IsPermanent, WasLost, WasTransfered |
72 |
# ignoring messages: NotIssued, IsPermanent, WasLost, WasTransfered |
58 |
|
73 |
|
59 |
- |
|
|