|
Lines 56-75
sub do_checkin {
Link Here
|
| 56 |
} |
56 |
} |
| 57 |
my $barcode = $self->{item}->id; |
57 |
my $barcode = $self->{item}->id; |
| 58 |
|
58 |
|
| 59 |
$return_date = substr( $return_date, 0, 4 ) |
59 |
if ( $return_date ) { |
| 60 |
. '-' |
60 |
$return_date = substr( $return_date, 0, 4 ) |
| 61 |
. substr( $return_date, 4, 2 ) |
61 |
. '-' |
| 62 |
. '-' |
62 |
. substr( $return_date, 4, 2 ) |
| 63 |
. substr( $return_date, 6, 2 ) |
63 |
. '-' |
| 64 |
. q{ } |
64 |
. substr( $return_date, 6, 2 ) |
| 65 |
. substr( $return_date, 12, 2 ) |
65 |
. q{ } |
| 66 |
. ':' |
66 |
. substr( $return_date, 12, 2 ) |
| 67 |
. substr( $return_date, 14, 2 ) |
67 |
. ':' |
| 68 |
. ':' |
68 |
. substr( $return_date, 14, 2 ) |
| 69 |
. substr( $return_date, 16, 2 ); |
69 |
. ':' |
|
|
70 |
. substr( $return_date, 16, 2 ); |
| 71 |
$return_date = dt_from_string($return_date); |
| 72 |
} |
| 70 |
|
73 |
|
| 71 |
$debug and warn "do_checkin() calling AddReturn($barcode, $branch)"; |
74 |
$debug and warn "do_checkin() calling AddReturn($barcode, $branch)"; |
| 72 |
my ($return, $messages, $issue, $borrower) = AddReturn($barcode, $branch, undef, dt_from_string($return_date)); |
75 |
my ($return, $messages, $issue, $borrower) = AddReturn($barcode, $branch, undef, $return_date); |
| 73 |
|
76 |
|
| 74 |
if ( $checked_in_ok ) { |
77 |
if ( $checked_in_ok ) { |
| 75 |
delete $messages->{NotIssued}; |
78 |
delete $messages->{NotIssued}; |
| 76 |
- |
|
|