|
Lines 4442-4448
sub ProcessOfflineOperation {
Link Here
|
| 4442 |
if ( $operation->{action} eq 'return' ) { |
4442 |
if ( $operation->{action} eq 'return' ) { |
| 4443 |
$report = ProcessOfflineReturn($operation); |
4443 |
$report = ProcessOfflineReturn($operation); |
| 4444 |
} elsif ( $operation->{action} eq 'issue' ) { |
4444 |
} elsif ( $operation->{action} eq 'issue' ) { |
| 4445 |
$report = ProcessOfflineIssue($operation); |
4445 |
( $report ) = ProcessOfflineIssue( $operation ); |
| 4446 |
} elsif ( $operation->{action} eq 'payment' ) { |
4446 |
} elsif ( $operation->{action} eq 'payment' ) { |
| 4447 |
$report = ProcessOfflinePayment($operation); |
4447 |
$report = ProcessOfflinePayment($operation); |
| 4448 |
} |
4448 |
} |
|
Lines 4513-4527
sub ProcessOfflineIssue {
Link Here
|
| 4513 |
$operation->{timestamp}, |
4513 |
$operation->{timestamp}, |
| 4514 |
); |
4514 |
); |
| 4515 |
} |
4515 |
} |
| 4516 |
AddIssue( |
4516 |
my $checkout = AddIssue( |
| 4517 |
$patron, |
4517 |
$patron, |
| 4518 |
$operation->{'barcode'}, |
4518 |
$operation->{barcode}, |
| 4519 |
undef, |
4519 |
$operation->{due_date}, |
| 4520 |
undef, |
4520 |
undef, |
| 4521 |
$operation->{timestamp}, |
4521 |
$operation->{timestamp}, |
| 4522 |
undef, |
4522 |
undef, |
| 4523 |
); |
4523 |
); |
| 4524 |
return "Success."; |
4524 |
return ( "Success.", $checkout ); |
| 4525 |
} else { |
4525 |
} else { |
| 4526 |
return "Borrower not found."; |
4526 |
return "Borrower not found."; |
| 4527 |
} |
4527 |
} |