|
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 |
- |
|
|