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

(-)a/C4/SIP/ILS/Transaction/Checkin.pm (-13 / +15 lines)
Lines 56-75 sub do_checkin { Link Here
56
    }
56
    }
57
    my $barcode = $self->{item}->id;
57
    my $barcode = $self->{item}->id;
58
58
59
    $return_date =   substr( $return_date, 0, 4 )
59
    if ( $return_date ) {
60
                   . '-'
60
        $return_date =   substr( $return_date, 0, 4 )
61
                   . substr( $return_date, 4, 2 )
61
                       . '-'
62
                   . '-'
62
                       . substr( $return_date, 4, 2 )
63
                   . substr( $return_date, 6, 2 )
63
                       . '-'
64
                   . q{ }
64
                       . substr( $return_date, 6, 2 )
65
                   . substr( $return_date, 12, 2 )
65
                       . q{ }
66
                   . ':'
66
                       . substr( $return_date, 12, 2 )
67
                   . substr( $return_date, 14, 2 )
67
                       . ':'
68
                   . ':'
68
                       . substr( $return_date, 14, 2 )
69
                   . substr( $return_date, 16, 2 );
69
                       . ':'
70
                       . substr( $return_date, 16, 2 );
71
        $return_date = dt_from_string($return_date);
72
    }
70
73
71
    $debug and warn "do_checkin() calling AddReturn($barcode, $branch)";
74
    $debug and warn "do_checkin() calling AddReturn($barcode, $branch)";
72
    my ($return, $messages, $issue, $borrower) = AddReturn($barcode, $branch, undef, dt_from_string($return_date));
75
    my ($return, $messages, $issue, $borrower) = AddReturn($barcode, $branch, undef, $return_date);
73
76
74
    if ( $checked_in_ok ) {
77
    if ( $checked_in_ok ) {
75
        delete $messages->{ItemLocationUpdated};
78
        delete $messages->{ItemLocationUpdated};
76
- 

Return to bug 24800