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 148-167
sub do_checkin {
Link Here
|
148 |
} elsif ($branch eq $messages->{ResFound}->{branchcode}) { |
149 |
} elsif ($branch eq $messages->{ResFound}->{branchcode}) { |
149 |
$self->hold($messages->{ResFound}); |
150 |
$self->hold($messages->{ResFound}); |
150 |
$self->alert_type('01'); |
151 |
$self->alert_type('01'); |
151 |
ModReserveAffect( $messages->{ResFound}->{itemnumber}, |
152 |
ModReserveAffect( |
152 |
$messages->{ResFound}->{borrowernumber}, 0, $messages->{ResFound}->{reserve_id}); |
153 |
$messages->{ResFound}->{itemnumber}, |
|
|
154 |
$messages->{ResFound}->{borrowernumber}, |
155 |
0, $messages->{ResFound}->{reserve_id} |
156 |
) if $holds_get_captured; |
153 |
|
157 |
|
154 |
} else { |
158 |
} else { |
155 |
$self->hold($messages->{ResFound}); |
159 |
$self->hold($messages->{ResFound}); |
156 |
$self->alert_type('02'); |
160 |
$self->alert_type('02'); |
157 |
ModReserveAffect( $item->itemnumber, |
161 |
if ($holds_get_captured) { |
158 |
$messages->{ResFound}->{borrowernumber}, 1, $messages->{ResFound}->{reserve_id}); |
162 |
ModReserveAffect( $item->itemnumber, |
159 |
ModItemTransfer( $item->itemnumber, |
163 |
$messages->{ResFound}->{borrowernumber}, |
160 |
$branch, |
164 |
1, $messages->{ResFound}->{reserve_id} ); |
161 |
$messages->{ResFound}->{branchcode}, |
165 |
ModItemTransfer( $item->itemnumber, $branch, |
162 |
'Reserve', |
166 |
$messages->{ResFound}->{branchcode}, 'Reserve', ); |
163 |
); |
167 |
} |
164 |
|
|
|
165 |
} |
168 |
} |
166 |
$self->{item}->hold_patron_id( $messages->{ResFound}->{borrowernumber} ); |
169 |
$self->{item}->hold_patron_id( $messages->{ResFound}->{borrowernumber} ); |
167 |
$self->{item}->destination_loc( $messages->{ResFound}->{branchcode} ); |
170 |
$self->{item}->destination_loc( $messages->{ResFound}->{branchcode} ); |