|
Lines 65-71
sub do_checkin {
Link Here
|
| 65 |
. substr( $return_date, 16, 2 ); |
65 |
. substr( $return_date, 16, 2 ); |
| 66 |
|
66 |
|
| 67 |
$debug and warn "do_checkin() calling AddReturn($barcode, $branch)"; |
67 |
$debug and warn "do_checkin() calling AddReturn($barcode, $branch)"; |
| 68 |
my ($return, $messages, $iteminformation, $borrower) = AddReturn($barcode, $branch, undef, undef, $return_date); |
68 |
my ($return, $messages, $issue, $borrower) = AddReturn($barcode, $branch, undef, undef, $return_date); |
| 69 |
$self->alert(!$return); |
69 |
$self->alert(!$return); |
| 70 |
# ignoring messages: NotIssued, WasLost, WasTransfered |
70 |
# ignoring messages: NotIssued, WasLost, WasTransfered |
| 71 |
|
71 |
|
|
Lines 94-100
sub do_checkin {
Link Here
|
| 94 |
$self->alert_type('04'); # send to other branch |
94 |
$self->alert_type('04'); # send to other branch |
| 95 |
} |
95 |
} |
| 96 |
if ($messages->{WasTransfered}) { # set into transit so tell unit |
96 |
if ($messages->{WasTransfered}) { # set into transit so tell unit |
| 97 |
$self->{item}->destination_loc($iteminformation->{homebranch}); |
97 |
$self->{item}->destination_loc($issue->issue->homebranch); |
| 98 |
$self->alert_type('04'); # send to other branch |
98 |
$self->alert_type('04'); # send to other branch |
| 99 |
} |
99 |
} |
| 100 |
if ($messages->{ResFound}) { |
100 |
if ($messages->{ResFound}) { |
| 101 |
- |
|
|