Bug 29139: Fix incorrect relation call

[koha-ffzg.git] / Koha / Account.pm

diff --git a/Koha/Account.pm b/Koha/Account.pm
index f175d53..45f0fa6 100644 (file)
--- a/Koha/Account.pm
+++ b/Koha/Account.pm
@@ -110,7 +110,7 @@ sub pay {
     }
 
     my $patron = Koha::Patrons->find( $self->{patron_id} );
-    my @account_offsets = $payment->debit_offsets;
+    my @account_offsets = $payment->credit_offsets->as_list;
     if ( C4::Context->preference('UseEmailReceipts') ) {
         if (
             my $letter = C4::Letters::GetPreparedLetter(
@@ -242,7 +242,7 @@ sub add_credit {
                     {
                         credit_id => $line->id,
                         type      => 'CREATE',
-                        amount    => $amount
+                        amount    => $amount * -1
                     }
                 )->store();
 
@@ -360,8 +360,7 @@ sub payin_amount {
             if ( exists( $params->{debits} ) ) {
                 $credit = $credit->apply(
                     {
-                        debits      => $params->{debits},
-                        offset_type => $Koha::Account::offset_type->{$params->{type}}
+                        debits => $params->{debits}
                     }
                 );
             }
@@ -372,8 +371,7 @@ sub payin_amount {
             {
                 $credit = $credit->apply(
                     {
-                        debits      => [ $self->outstanding_debits->as_list ],
-                        offset_type => $Koha::Account::offset_type->{$params->{type}}
+                        debits => [ $self->outstanding_debits->as_list ]
                     }
                 );
             }
@@ -617,8 +615,7 @@ sub payout_amount {
 
             # Offset against credits
             for my $credit ( @{$outstanding_credits} ) {
-                $credit->apply(
-                    { debits => [$payout], offset_type => 'PAYOUT' } );
+                $credit->apply( { debits => [$payout] } );
                 $payout->discard_changes;
                 last if $payout->amountoutstanding == 0;
             }