|
Lines 4263-4269
sub ProcessOfflineOperation {
Link Here
|
| 4263 |
if ( $operation->{action} eq 'return' ) { |
4263 |
if ( $operation->{action} eq 'return' ) { |
| 4264 |
$report = ProcessOfflineReturn( $operation ); |
4264 |
$report = ProcessOfflineReturn( $operation ); |
| 4265 |
} elsif ( $operation->{action} eq 'issue' ) { |
4265 |
} elsif ( $operation->{action} eq 'issue' ) { |
| 4266 |
$report = ProcessOfflineIssue( $operation ); |
4266 |
( $report ) = ProcessOfflineIssue( $operation ); |
| 4267 |
} elsif ( $operation->{action} eq 'payment' ) { |
4267 |
} elsif ( $operation->{action} eq 'payment' ) { |
| 4268 |
$report = ProcessOfflinePayment( $operation ); |
4268 |
$report = ProcessOfflinePayment( $operation ); |
| 4269 |
} |
4269 |
} |
|
Lines 4321-4335
sub ProcessOfflineIssue {
Link Here
|
| 4321 |
$operation->{timestamp}, |
4321 |
$operation->{timestamp}, |
| 4322 |
); |
4322 |
); |
| 4323 |
} |
4323 |
} |
| 4324 |
AddIssue( |
4324 |
my $checkout = AddIssue( |
| 4325 |
$patron, |
4325 |
$patron, |
| 4326 |
$operation->{'barcode'}, |
4326 |
$operation->{barcode}, |
| 4327 |
undef, |
4327 |
$operation->{due_date}, |
| 4328 |
undef, |
4328 |
undef, |
| 4329 |
$operation->{timestamp}, |
4329 |
$operation->{timestamp}, |
| 4330 |
undef, |
4330 |
undef, |
| 4331 |
); |
4331 |
); |
| 4332 |
return "Success."; |
4332 |
return ( "Success.", $checkout ); |
| 4333 |
} else { |
4333 |
} else { |
| 4334 |
return "Borrower not found."; |
4334 |
return "Borrower not found."; |
| 4335 |
} |
4335 |
} |