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