|
Lines 21-26
use strict;
Link Here
|
| 21 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
21 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
| 22 |
|
22 |
|
| 23 |
use Koha::Accounts qw(AddCredit); |
23 |
use Koha::Accounts qw(AddCredit); |
|
|
24 |
use Koha::Accounts::CreditTypes; |
| 24 |
use Koha::Database; |
25 |
use Koha::Database; |
| 25 |
use ILS; |
26 |
use ILS; |
| 26 |
use parent qw(ILS::Transaction); |
27 |
use parent qw(ILS::Transaction); |
|
Lines 51-66
sub pay {
Link Here
|
| 51 |
|
52 |
|
| 52 |
warn("RECORD:$borrowernumber::$amount"); |
53 |
warn("RECORD:$borrowernumber::$amount"); |
| 53 |
|
54 |
|
| 54 |
my $borrower = |
|
|
| 55 |
Koha::Database->new()->schema->resultset('Borrower') |
| 56 |
->find($borrowernumber); |
| 57 |
|
| 58 |
AddCredit( |
55 |
AddCredit( |
| 59 |
{ |
56 |
{ |
| 60 |
borrower => $borrower, |
57 |
borrower => Koha::Database->new()->schema->resultset('Borrower')->find($borrowernumber), |
| 61 |
amount => $amount, |
58 |
amount => $amount, |
| 62 |
notes => 'via SIP2', |
59 |
notes => "via SIP2. Type:$type", |
| 63 |
type => $type, |
60 |
type => Koha::Accounts::CreditTypes::Payment, |
| 64 |
} |
61 |
} |
| 65 |
); |
62 |
); |
| 66 |
} |
63 |
} |