|
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 3908-3917
sub ProcessOfflineIssue {
Link Here
|
| 3908 |
sub ProcessOfflinePayment { |
3909 |
sub ProcessOfflinePayment { |
| 3909 |
my $operation = shift; |
3910 |
my $operation = shift; |
| 3910 |
|
3911 |
|
| 3911 |
my $borrower = C4::Members::GetMemberDetails( undef, $operation->{cardnumber} ); # Get borrower from operation cardnumber |
3912 |
my $patron = Koha::Borrowers->find( { cardnumber => $operation->{cardnumber} }); |
| 3912 |
my $amount = $operation->{amount}; |
3913 |
my $amount = $operation->{amount}; |
| 3913 |
|
3914 |
|
| 3914 |
recordpayment( $borrower->{borrowernumber}, $amount ); |
3915 |
Koha::Account->new( { patron_id => $patron->id } )->pay( { amount => $amount } ); |
| 3915 |
|
3916 |
|
| 3916 |
return "Success." |
3917 |
return "Success." |
| 3917 |
} |
3918 |
} |
| 3918 |
- |
|
|