|
Lines 692-711
sub payout_amount {
Link Here
|
| 692 |
sub { |
692 |
sub { |
| 693 |
|
693 |
|
| 694 |
# A 'payout' is a 'debit' |
694 |
# A 'payout' is a 'debit' |
| 695 |
$payout = Koha::Account::Line->new( |
695 |
$payout = $self->add_debit( |
| 696 |
{ |
696 |
{ |
| 697 |
date => \'NOW()', |
697 |
amount => $params->{amount}, |
| 698 |
amount => $amount, |
698 |
type => 'PAYOUT', |
| 699 |
debit_type_code => 'PAYOUT', |
|
|
| 700 |
payment_type => $params->{payout_type}, |
699 |
payment_type => $params->{payout_type}, |
| 701 |
amountoutstanding => $amount, |
700 |
amountoutstanding => $params->{amount}, |
| 702 |
manager_id => $params->{staff_id}, |
701 |
manager_id => $params->{staff_id}, |
| 703 |
borrowernumber => $self->{patron_id}, |
|
|
| 704 |
interface => $params->{interface}, |
702 |
interface => $params->{interface}, |
| 705 |
branchcode => $params->{branch}, |
703 |
branchcode => $params->{branch}, |
| 706 |
register_id => $params->{cash_register} |
704 |
register_id => $params->{cash_register} |
| 707 |
} |
705 |
} |
| 708 |
)->store(); |
706 |
); |
| 709 |
|
707 |
|
| 710 |
# Offset against credits |
708 |
# Offset against credits |
| 711 |
for my $credit ( @{$outstanding_credits} ) { |
709 |
for my $credit ( @{$outstanding_credits} ) { |
| 712 |
- |
|
|