|
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 3807-3816
sub ProcessOfflineIssue {
Link Here
|
| 3807 |
sub ProcessOfflinePayment { |
3808 |
sub ProcessOfflinePayment { |
| 3808 |
my $operation = shift; |
3809 |
my $operation = shift; |
| 3809 |
|
3810 |
|
| 3810 |
my $borrower = C4::Members::GetMemberDetails( undef, $operation->{cardnumber} ); # Get borrower from operation cardnumber |
3811 |
my $patron = Koha::Borrowers->find( { cardnumber => $operation->{cardnumber} }); |
| 3811 |
my $amount = $operation->{amount}; |
3812 |
my $amount = $operation->{amount}; |
| 3812 |
|
3813 |
|
| 3813 |
recordpayment( $borrower->{borrowernumber}, $amount ); |
3814 |
Koha::Account->new( { patron_id => $patron->id } )->pay( { amount => $amount } ); |
| 3814 |
|
3815 |
|
| 3815 |
return "Success." |
3816 |
return "Success." |
| 3816 |
} |
3817 |
} |
| 3817 |
- |
|
|