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 |
} |