|
Lines 109-114
sub add_credit {
Link Here
|
| 109 |
my $note = $body->{note}; |
109 |
my $note = $body->{note}; |
| 110 |
my $library_id = $body->{library_id}; |
110 |
my $library_id = $body->{library_id}; |
| 111 |
|
111 |
|
|
|
112 |
if ( C4::Context->preference("RequirePaymentType") && !defined($payment_type) ) { |
| 113 |
Koha::Exceptions::Account::PaymentTypeRequired->throw(); |
| 114 |
} |
| 115 |
|
| 112 |
my $credit = $account->add_credit( |
116 |
my $credit = $account->add_credit( |
| 113 |
{ amount => $amount, |
117 |
{ amount => $amount, |
| 114 |
type => $credit_type, |
118 |
type => $credit_type, |
| 115 |
- |
|
|