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

(-)a/C4/SIP/ILS.pm (-3 / +9 lines)
Lines 128-134 sub offline_ok { Link Here
128
sub checkout {
128
sub checkout {
129
    my ( $self, $patron_id, $item_id, $sc_renew, $fee_ack ) = @_;
129
    my ( $self, $patron_id, $item_id, $sc_renew, $fee_ack ) = @_;
130
    my ( $patron, $item, $circ );
130
    my ( $patron, $item, $circ );
131
132
    $circ = C4::SIP::ILS::Transaction::Checkout->new();
131
    $circ = C4::SIP::ILS::Transaction::Checkout->new();
133
132
134
    # BEGIN TRANSACTION
133
    # BEGIN TRANSACTION
Lines 137-148 sub checkout { Link Here
137
    if ($fee_ack) {
136
    if ($fee_ack) {
138
        $circ->fee_ack($fee_ack);
137
        $circ->fee_ack($fee_ack);
139
    }
138
    }
140
141
    if ( !$patron ) {
139
    if ( !$patron ) {
142
        $circ->screen_msg("Invalid Patron");
140
        $circ->screen_msg("Invalid Patron");
143
    }
141
    }
144
    elsif ( !$patron->charge_ok ) {
142
    elsif ( !$patron->charge_ok ) {
145
        $circ->screen_msg("Patron Blocked");
143
        if ($patron->expired) {
144
            $circ->screen_msg("Patron expired");
145
        } elsif ($patron->debarred) {
146
            $circ->screen_msg("Patron debarred");
147
        } elsif ($patron->fine_blocked) {
148
            $circ->screen_msg("Patron has fines");
149
        } else {
150
            $circ->screen_msg("Patron blocked");
151
        }
146
    }
152
    }
147
    elsif ( !$item ) {
153
    elsif ( !$item ) {
148
        $circ->screen_msg("Invalid Item");
154
        $circ->screen_msg("Invalid Item");
(-)a/C4/SIP/ILS/Patron.pm (-1 / +4 lines)
Lines 112-118 sub new { Link Here
112
        recall_items    => [],
112
        recall_items    => [],
113
        unavail_holds   => [],
113
        unavail_holds   => [],
114
        inet            => ( !$debarred && !$expired ),
114
        inet            => ( !$debarred && !$expired ),
115
        debarred        => $debarred,
115
        expired         => $expired,
116
        expired         => $expired,
117
        fine_blocked    => $fine_blocked,
116
        fee_limit       => $fee_limit,
118
        fee_limit       => $fee_limit,
117
        userid          => $kp->{userid},
119
        userid          => $kp->{userid},
118
    );
120
    );
Lines 169-174 my %fields = ( Link Here
169
    birthdate_iso           => 0,
171
    birthdate_iso           => 0,
170
    dateexpiry              => 0,
172
    dateexpiry              => 0,
171
    dateexpiry_iso          => 0,
173
    dateexpiry_iso          => 0,
174
    debarred                => 0,
175
    fine_blocked            => 0,
172
    ptype                   => 0,
176
    ptype                   => 0,
173
    charge_ok               => 0,   # for patron_status[0] (inverted)
177
    charge_ok               => 0,   # for patron_status[0] (inverted)
174
    renew_ok                => 0,   # for patron_status[1] (inverted)
178
    renew_ok                => 0,   # for patron_status[1] (inverted)
175
- 

Return to bug 25815