|
Lines 45-50
use C4::RotatingCollections qw(GetCollectionItemBranches);
Link Here
|
| 45 |
use Algorithm::CheckDigits; |
45 |
use Algorithm::CheckDigits; |
| 46 |
|
46 |
|
| 47 |
use Data::Dumper; |
47 |
use Data::Dumper; |
|
|
48 |
use Koha::Account; |
| 48 |
use Koha::DateUtils; |
49 |
use Koha::DateUtils; |
| 49 |
use Koha::Calendar; |
50 |
use Koha::Calendar; |
| 50 |
use Koha::Items; |
51 |
use Koha::Items; |
|
Lines 3854-3863
sub ProcessOfflineIssue {
Link Here
|
| 3854 |
sub ProcessOfflinePayment { |
3855 |
sub ProcessOfflinePayment { |
| 3855 |
my $operation = shift; |
3856 |
my $operation = shift; |
| 3856 |
|
3857 |
|
| 3857 |
my $borrower = C4::Members::GetMemberDetails( undef, $operation->{cardnumber} ); # Get borrower from operation cardnumber |
3858 |
my $patron = Koha::Borrowers->find( { cardnumber => $operation->{cardnumber} }); |
| 3858 |
my $amount = $operation->{amount}; |
3859 |
my $amount = $operation->{amount}; |
| 3859 |
|
3860 |
|
| 3860 |
recordpayment( $borrower->{borrowernumber}, $amount ); |
3861 |
Koha::Account->new( { patron_id => $patron->id } )->pay( { amount => $amount } ); |
| 3861 |
|
3862 |
|
| 3862 |
return "Success." |
3863 |
return "Success." |
| 3863 |
} |
3864 |
} |
| 3864 |
- |
|
|