Attachment #61640 for bug #12021

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




        $self->alert_type('99');
    }
    if ($messages->{Wrongbranch}) {
        $self->{item}->destination_loc($messages->{Wrongbranch}->{Rightbranch});
        $self->alert_type('04');            # send to other branch
    }
    if ($messages->{WrongTransfer}) {
        $self->{item}->destination_loc($messages->{WrongTransfer});
        $self->alert_type('04');            # send to other branch
    }
    if ($messages->{NeedsTransfer}) {
        $self->{item}->destination_loc($messages->{NeedsTransfer});
        $self->alert_type('04');            # send to other branch
    }
    if ($messages->{WasTransfered}) { # set into transit so tell unit
        $self->{item}->destination_loc($iteminformation->{homebranch});
        $self->alert_type('04');            # send to other branch
    }
    if ($messages->{ResFound}) {




        $resp .= 'U';
    }

    # apparently we can't trust the returns from Checkin yet (because C4::Circulation::AddReturn is faulty)
    # So we reproduce the alert logic here.
    if ( not $status->alert ) {
        if ( $item->destination_loc and $item->destination_loc ne $my_branch ) {
            $status->alert(1);
            $status->alert_type('04');    # no hold, just send it
        }
    }
    $resp .= $status->alert ? 'Y' : 'N';
    $resp .= timestamp;
    $resp .= add_field( FID_INST_ID, $inst_id );
- 

Return to bug 12021

Lines 649-662 sub handle_checkin { Link Here

(-)a/C4/SIP/Sip/MsgType.pm (-9 lines)
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	-

Lines 80-98 sub do_checkin { Link Here

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