View | Details | Raw Unified | Return to bug 3638
Collapse All | Expand All

(-)a/C4/SIP/ILS/Transaction/Checkin.pm (-2 / +11 lines)
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
- 

Return to bug 3638