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

(-)a/C4/SIP/ILS/Transaction/Checkin.pm (-6 / +6 lines)
Lines 14-20 use ILS::Transaction; Link Here
14
14
15
use C4::Circulation;
15
use C4::Circulation;
16
use C4::Reserves qw( ModReserveAffect );
16
use C4::Reserves qw( ModReserveAffect );
17
use C4::Items qw( ModItemTransfer );
17
use C4::Items qw( ModItemTransfer GetItemnumberFromBarcode);
18
use C4::Debug;
18
use C4::Debug;
19
19
20
our @ISA = qw(ILS::Transaction);
20
our @ISA = qw(ILS::Transaction);
Lines 54-59 sub do_checkin { Link Here
54
    $debug and warn "do_checkin() calling AddReturn($barcode, $branch)";
54
    $debug and warn "do_checkin() calling AddReturn($barcode, $branch)";
55
    my ($return, $messages, $iteminformation, $borrower) = AddReturn($barcode, $branch);
55
    my ($return, $messages, $iteminformation, $borrower) = AddReturn($barcode, $branch);
56
    $self->alert(!$return);
56
    $self->alert(!$return);
57
    my $itemnumber = GetItemnumberFromBarcode( $barcode );
57
    # ignoring messages: NotIssued, IsPermanent, WasLost, WasTransfered
58
    # ignoring messages: NotIssued, IsPermanent, WasLost, WasTransfered
58
59
59
    # biblionumber, biblioitemnumber, itemnumber
60
    # biblionumber, biblioitemnumber, itemnumber
Lines 81-95 sub do_checkin { Link Here
81
    if ($messages->{ResFound}) {
82
    if ($messages->{ResFound}) {
82
        $self->hold($messages->{ResFound});
83
        $self->hold($messages->{ResFound});
83
        if ($branch eq $messages->{ResFound}->{branchcode}) {
84
        if ($branch eq $messages->{ResFound}->{branchcode}) {
84
            $self->alert_type('01');
85
        $self->alert_type('01');
85
            ModReserveAffect( $messages->{ResFound}->{itemnumber},
86
            ModReserveAffect( $itemnumber,
86
                $messages->{ResFound}->{borrowernumber}, 0);
87
                $messages->{ResFound}->{borrowernumber}, 0);
87
88
88
        } else {
89
        } else {
89
            $self->alert_type('02');
90
            $self->alert_type('02');
90
            ModReserveAffect( $messages->{ResFound}->{itemnumber},
91
            ModReserveAffect( $itemnumber,
91
                $messages->{ResFound}->{borrowernumber}, 1);
92
                $messages->{ResFound}->{borrowernumber}, 1);
92
            ModItemTransfer( $messages->{ResFound}->{itemnumber},
93
            ModItemTransfer( $itemnumber,
93
                $branch,
94
                $branch,
94
                $messages->{ResFound}->{branchcode}
95
                $messages->{ResFound}->{branchcode}
95
            );
96
            );
96
- 

Return to bug 9138