|
Lines 44-49
use C4::RotatingCollections qw(GetCollectionItemBranches);
Link Here
|
| 44 |
use Algorithm::CheckDigits; |
44 |
use Algorithm::CheckDigits; |
| 45 |
|
45 |
|
| 46 |
use Data::Dumper; |
46 |
use Data::Dumper; |
|
|
47 |
use Koha::Account; |
| 47 |
use Koha::DateUtils; |
48 |
use Koha::DateUtils; |
| 48 |
use Koha::Calendar; |
49 |
use Koha::Calendar; |
| 49 |
use Koha::Items; |
50 |
use Koha::Items; |
|
Lines 3835-3844
sub ProcessOfflineIssue {
Link Here
|
| 3835 |
sub ProcessOfflinePayment { |
3836 |
sub ProcessOfflinePayment { |
| 3836 |
my $operation = shift; |
3837 |
my $operation = shift; |
| 3837 |
|
3838 |
|
| 3838 |
my $borrower = C4::Members::GetMemberDetails( undef, $operation->{cardnumber} ); # Get borrower from operation cardnumber |
3839 |
my $patron = Koha::Borrowers->find( { cardnumber => $operation->{cardnumber} }); |
| 3839 |
my $amount = $operation->{amount}; |
3840 |
my $amount = $operation->{amount}; |
| 3840 |
|
3841 |
|
| 3841 |
recordpayment( $borrower->{borrowernumber}, $amount ); |
3842 |
Koha::Account->new( { patron_id => $patron->id } )->pay( { amount => $amount } ); |
| 3842 |
|
3843 |
|
| 3843 |
return "Success." |
3844 |
return "Success." |
| 3844 |
} |
3845 |
} |
| 3845 |
- |
|
|