|
Lines 14-19
use ILS::Transaction;
Link Here
|
| 14 |
|
14 |
|
| 15 |
use C4::Circulation; |
15 |
use C4::Circulation; |
| 16 |
use C4::Debug; |
16 |
use C4::Debug; |
|
|
17 |
use C4::Reserves; |
| 17 |
|
18 |
|
| 18 |
our @ISA = qw(ILS::Transaction); |
19 |
our @ISA = qw(ILS::Transaction); |
| 19 |
|
20 |
|
|
Lines 76-82
sub do_checkin {
Link Here
|
| 76 |
if ($messages->{ResFound}) { |
77 |
if ($messages->{ResFound}) { |
| 77 |
$self->hold($messages->{ResFound}); |
78 |
$self->hold($messages->{ResFound}); |
| 78 |
$debug and warn "Item returned at $branch reserved at $messages->{ResFound}->{branchcode}"; |
79 |
$debug and warn "Item returned at $branch reserved at $messages->{ResFound}->{branchcode}"; |
| 79 |
$self->alert_type(($branch eq $messages->{ResFound}->{branchcode}) ? '01' : '02'); |
80 |
my $do_transfer; |
|
|
81 |
if ($branch eq $messages->{ResFound}->{branchcode}) { |
| 82 |
$self->alert_type('01'); |
| 83 |
} else { |
| 84 |
$self->alert_type('02'); |
| 85 |
$do_transfer = 1; |
| 86 |
} |
| 87 |
C4::Reserves::ModReserveAffect($messages->{ResFound}->{itemnumber}, |
| 88 |
$messages->{ResFound}->{borrowernumber}, |
| 89 |
$do_transfer); |
| 80 |
} |
90 |
} |
| 81 |
$self->alert(1) if defined $self->alert_type; # alert_type could be "00", hypothetically |
91 |
$self->alert(1) if defined $self->alert_type; # alert_type could be "00", hypothetically |
| 82 |
$self->ok($return); |
92 |
$self->ok($return); |
| 83 |
- |
|
|