|
Lines 100-111
sub do_checkin {
Link Here
|
| 100 |
if ($branch eq $messages->{ResFound}->{branchcode}) { |
100 |
if ($branch eq $messages->{ResFound}->{branchcode}) { |
| 101 |
$self->alert_type('01'); |
101 |
$self->alert_type('01'); |
| 102 |
ModReserveAffect( $messages->{ResFound}->{itemnumber}, |
102 |
ModReserveAffect( $messages->{ResFound}->{itemnumber}, |
| 103 |
$messages->{ResFound}->{borrowernumber}, 0); |
103 |
$messages->{ResFound}->{borrowernumber}, 0, $messages->{ResFound}->{reserve_id}); |
| 104 |
|
104 |
|
| 105 |
} else { |
105 |
} else { |
| 106 |
$self->alert_type('02'); |
106 |
$self->alert_type('02'); |
| 107 |
ModReserveAffect( $messages->{ResFound}->{itemnumber}, |
107 |
ModReserveAffect( $messages->{ResFound}->{itemnumber}, |
| 108 |
$messages->{ResFound}->{borrowernumber}, 1); |
108 |
$messages->{ResFound}->{borrowernumber}, 1, $messages->{ResFound}->{reserve_id}); |
| 109 |
ModItemTransfer( $messages->{ResFound}->{itemnumber}, |
109 |
ModItemTransfer( $messages->{ResFound}->{itemnumber}, |
| 110 |
$branch, |
110 |
$branch, |
| 111 |
$messages->{ResFound}->{branchcode} |
111 |
$messages->{ResFound}->{branchcode} |
| 112 |
- |
|
|