|
Lines 80-94
sub do_checkin {
Link Here
|
| 80 |
$self->alert_type('99'); |
80 |
$self->alert_type('99'); |
| 81 |
} |
81 |
} |
| 82 |
if ($messages->{Wrongbranch}) { |
82 |
if ($messages->{Wrongbranch}) { |
| 83 |
$self->destination_loc($messages->{Wrongbranch}->{Rightbranch}); |
83 |
$self->{item}->destination_loc($messages->{Wrongbranch}->{Rightbranch}); |
| 84 |
$self->alert_type('04'); # send to other branch |
84 |
$self->alert_type('04'); # send to other branch |
| 85 |
} |
85 |
} |
| 86 |
if ($messages->{WrongTransfer}) { |
86 |
if ($messages->{WrongTransfer}) { |
| 87 |
$self->destination_loc($messages->{WrongTransfer}); |
87 |
$self->{item}->destination_loc($messages->{WrongTransfer}); |
| 88 |
$self->alert_type('04'); # send to other branch |
88 |
$self->alert_type('04'); # send to other branch |
| 89 |
} |
89 |
} |
| 90 |
if ($messages->{NeedsTransfer}) { |
90 |
if ($messages->{NeedsTransfer}) { |
| 91 |
$self->destination_loc($iteminformation->{homebranch}); |
91 |
$self->{item}->destination_loc($messages->{NeedsTransfer}); |
| 92 |
$self->alert_type('04'); # send to other branch |
92 |
$self->alert_type('04'); # send to other branch |
| 93 |
} |
93 |
} |
| 94 |
if ($messages->{WasTransfered}) { # set into transit so tell unit |
94 |
if ($messages->{WasTransfered}) { # set into transit so tell unit |