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 |
- |
|
|