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

(-)a/C4/SIP/ILS/Transaction/Checkin.pm (-4 / +4 lines)
Lines 80-98 sub do_checkin { Link Here
80
        $self->alert_type('99');
80
        $self->alert_type('99');
81
    }
81
    }
82
    if ($messages->{Wrongbranch}) {
82
    if ($messages->{Wrongbranch}) {
83
        $self->destination_loc($messages->{Wrongbranch}->{Rightbranch});
83
        $self->{item}->destination_loc($messages->{Wrongbranch}->{Rightbranch});
84
        $self->alert_type('04');            # send to other branch
84
        $self->alert_type('04');            # send to other branch
85
    }
85
    }
86
    if ($messages->{WrongTransfer}) {
86
    if ($messages->{WrongTransfer}) {
87
        $self->destination_loc($messages->{WrongTransfer});
87
        $self->{item}->destination_loc($messages->{WrongTransfer});
88
        $self->alert_type('04');            # send to other branch
88
        $self->alert_type('04');            # send to other branch
89
    }
89
    }
90
    if ($messages->{NeedsTransfer}) {
90
    if ($messages->{NeedsTransfer}) {
91
        $self->destination_loc($iteminformation->{homebranch});
91
        $self->{item}->destination_loc($messages->{NeedsTransfer});
92
        $self->alert_type('04');            # send to other branch
92
        $self->alert_type('04');            # send to other branch
93
    }
93
    }
94
    if ($messages->{WasTransfered}) { # set into transit so tell unit
94
    if ($messages->{WasTransfered}) { # set into transit so tell unit
95
        $self->destination_loc($iteminformation->{homebranch});
95
        $self->{item}->destination_loc($iteminformation->{homebranch});
96
        $self->alert_type('04');            # send to other branch
96
        $self->alert_type('04');            # send to other branch
97
    }
97
    }
98
    if ($messages->{ResFound}) {
98
    if ($messages->{ResFound}) {
(-)a/C4/SIP/Sip/MsgType.pm (-9 lines)
Lines 649-662 sub handle_checkin { Link Here
649
        $resp .= 'U';
649
        $resp .= 'U';
650
    }
650
    }
651
651
652
    # apparently we can't trust the returns from Checkin yet (because C4::Circulation::AddReturn is faulty)
653
    # So we reproduce the alert logic here.
654
    if ( not $status->alert ) {
655
        if ( $item->destination_loc and $item->destination_loc ne $my_branch ) {
656
            $status->alert(1);
657
            $status->alert_type('04');    # no hold, just send it
658
        }
659
    }
660
    $resp .= $status->alert ? 'Y' : 'N';
652
    $resp .= $status->alert ? 'Y' : 'N';
661
    $resp .= timestamp;
653
    $resp .= timestamp;
662
    $resp .= add_field( FID_INST_ID, $inst_id );
654
    $resp .= add_field( FID_INST_ID, $inst_id );
663
- 

Return to bug 12021