|
Lines 50-58
sub do_checkin {
Link Here
|
| 50 |
my $return_date = shift; |
50 |
my $return_date = shift; |
| 51 |
my $account = shift; |
51 |
my $account = shift; |
| 52 |
|
52 |
|
| 53 |
my $checked_in_ok = $account->{checked_in_ok}; |
53 |
my $checked_in_ok = $account->{checked_in_ok}; |
| 54 |
my $cv_triggers_alert = $account->{cv_triggers_alert}; |
54 |
my $cv_triggers_alert = $account->{cv_triggers_alert}; |
| 55 |
my $holds_block_checkin = $account->{holds_block_checkin}; |
55 |
my $holds_block_checkin = $account->{holds_block_checkin}; |
|
|
56 |
my $holds_get_captured = $account->{holds_get_captured} // 1; |
| 56 |
|
57 |
|
| 57 |
if (!$branch) { |
58 |
if (!$branch) { |
| 58 |
$branch = 'SIP2'; |
59 |
$branch = 'SIP2'; |
|
Lines 141-160
sub do_checkin {
Link Here
|
| 141 |
} elsif ($branch eq $messages->{ResFound}->{branchcode}) { |
142 |
} elsif ($branch eq $messages->{ResFound}->{branchcode}) { |
| 142 |
$self->hold($messages->{ResFound}); |
143 |
$self->hold($messages->{ResFound}); |
| 143 |
$self->alert_type('01'); |
144 |
$self->alert_type('01'); |
| 144 |
ModReserveAffect( $messages->{ResFound}->{itemnumber}, |
145 |
ModReserveAffect( |
| 145 |
$messages->{ResFound}->{borrowernumber}, 0, $messages->{ResFound}->{reserve_id}); |
146 |
$messages->{ResFound}->{itemnumber}, |
|
|
147 |
$messages->{ResFound}->{borrowernumber}, |
| 148 |
0, $messages->{ResFound}->{reserve_id} |
| 149 |
) if $holds_get_captured; |
| 146 |
|
150 |
|
| 147 |
} else { |
151 |
} else { |
| 148 |
$self->hold($messages->{ResFound}); |
152 |
$self->hold($messages->{ResFound}); |
| 149 |
$self->alert_type('02'); |
153 |
$self->alert_type('02'); |
| 150 |
ModReserveAffect( $item->itemnumber, |
154 |
if ($holds_get_captured) { |
| 151 |
$messages->{ResFound}->{borrowernumber}, 1, $messages->{ResFound}->{reserve_id}); |
155 |
ModReserveAffect( $item->itemnumber, |
| 152 |
ModItemTransfer( $item->itemnumber, |
156 |
$messages->{ResFound}->{borrowernumber}, |
| 153 |
$branch, |
157 |
1, $messages->{ResFound}->{reserve_id} ); |
| 154 |
$messages->{ResFound}->{branchcode}, |
158 |
ModItemTransfer( $item->itemnumber, $branch, |
| 155 |
'Reserve', |
159 |
$messages->{ResFound}->{branchcode}, 'Reserve', ); |
| 156 |
); |
160 |
} |
| 157 |
|
|
|
| 158 |
} |
161 |
} |
| 159 |
$self->{item}->hold_patron_id( $messages->{ResFound}->{borrowernumber} ); |
162 |
$self->{item}->hold_patron_id( $messages->{ResFound}->{borrowernumber} ); |
| 160 |
$self->{item}->destination_loc( $messages->{ResFound}->{branchcode} ); |
163 |
$self->{item}->destination_loc( $messages->{ResFound}->{branchcode} ); |