|
Lines 123-129
sub offline_ok {
Link Here
|
| 123 |
sub checkout { |
123 |
sub checkout { |
| 124 |
my ( $self, $patron_id, $item_id, $sc_renew, $fee_ack, $account ) = @_; |
124 |
my ( $self, $patron_id, $item_id, $sc_renew, $fee_ack, $account ) = @_; |
| 125 |
my ( $patron, $item, $circ ); |
125 |
my ( $patron, $item, $circ ); |
| 126 |
|
|
|
| 127 |
$circ = C4::SIP::ILS::Transaction::Checkout->new(); |
126 |
$circ = C4::SIP::ILS::Transaction::Checkout->new(); |
| 128 |
|
127 |
|
| 129 |
# BEGIN TRANSACTION |
128 |
# BEGIN TRANSACTION |
|
Lines 132-143
sub checkout {
Link Here
|
| 132 |
if ($fee_ack) { |
131 |
if ($fee_ack) { |
| 133 |
$circ->fee_ack($fee_ack); |
132 |
$circ->fee_ack($fee_ack); |
| 134 |
} |
133 |
} |
| 135 |
|
|
|
| 136 |
if ( !$patron ) { |
134 |
if ( !$patron ) { |
| 137 |
$circ->screen_msg("Invalid Patron"); |
135 |
$circ->screen_msg("Invalid Patron"); |
| 138 |
} |
136 |
} |
| 139 |
elsif ( !$patron->charge_ok ) { |
137 |
elsif ( !$patron->charge_ok ) { |
| 140 |
$circ->screen_msg("Patron Blocked"); |
138 |
if ($patron->expired) { |
|
|
139 |
$circ->screen_msg("Patron expired"); |
| 140 |
} elsif ($patron->debarred) { |
| 141 |
$circ->screen_msg("Patron debarred"); |
| 142 |
} elsif ($patron->fine_blocked) { |
| 143 |
$circ->screen_msg("Patron has fines"); |
| 144 |
} else { |
| 145 |
$circ->screen_msg("Patron blocked"); |
| 146 |
} |
| 141 |
} |
147 |
} |
| 142 |
elsif ( !$item ) { |
148 |
elsif ( !$item ) { |
| 143 |
$circ->screen_msg("Invalid Item"); |
149 |
$circ->screen_msg("Invalid Item"); |