Lines 352-358
my $credit_line = Koha::Account->new({ patron_id => $patron_id })->add_credit(
Link Here
|
352 |
library_id => $library_id, |
352 |
library_id => $library_id, |
353 |
payment_type => $payment_type, |
353 |
payment_type => $payment_type, |
354 |
type => $credit_type, |
354 |
type => $credit_type, |
355 |
item_id => $item_id |
355 |
item_id => $item_id, |
|
|
356 |
issue_id => $issue_id |
356 |
} |
357 |
} |
357 |
); |
358 |
); |
358 |
|
359 |
|
Lines 394-399
sub add_credit {
Link Here
|
394 |
my $payment_type = $params->{payment_type}; |
395 |
my $payment_type = $params->{payment_type}; |
395 |
my $credit_type = $params->{type} || 'PAYMENT'; |
396 |
my $credit_type = $params->{type} || 'PAYMENT'; |
396 |
my $item_id = $params->{item_id}; |
397 |
my $item_id = $params->{item_id}; |
|
|
398 |
my $issue_id = $params->{issue_id}; |
397 |
|
399 |
|
398 |
Koha::Exceptions::Account::RegisterRequired->throw() |
400 |
Koha::Exceptions::Account::RegisterRequired->throw() |
399 |
if ( C4::Context->preference("UseCashRegisters") |
401 |
if ( C4::Context->preference("UseCashRegisters") |
Lines 423-428
sub add_credit {
Link Here
|
423 |
branchcode => $library_id, |
425 |
branchcode => $library_id, |
424 |
register_id => $cash_register, |
426 |
register_id => $cash_register, |
425 |
itemnumber => $item_id, |
427 |
itemnumber => $item_id, |
|
|
428 |
issue_id => $issue_id |
426 |
} |
429 |
} |
427 |
)->store(); |
430 |
)->store(); |
428 |
|
431 |
|
429 |
- |
|
|