View | Details | Raw Unified | Return to bug 18501
Collapse All | Expand All

(-)a/Koha/Account.pm (-2 / +4 lines)
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
- 

Return to bug 18501