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"); |