SF.net SVN: ledger-smb: [1401] trunk/LedgerSMB/IR.pm

[..hidden..]

Revision: 1401
          http://svn.sourceforge.net/ledger-smb/?rev=1401&view=rev
Author:   einhverfr
Date:     2007-07-15 19:36:21 -0700 (Sun, 15 Jul 2007)

Log Message:
-----------
Final changes to credit/debit invoices

Modified Paths:
--------------
    trunk/LedgerSMB/IR.pm

Modified: trunk/LedgerSMB/IR.pm
===================================================================
--- trunk/LedgerSMB/IR.pm	2007-07-16 01:56:56 UTC (rev 1400)
+++ trunk/LedgerSMB/IR.pm	2007-07-16 02:36:21 UTC (rev 1401)
@@ -467,6 +467,7 @@
     for $i ( 1 .. $form->{paidaccounts} ) {
         $form->{"paid_$i"} =
           $form->parse_amount( $myconfig, $form->{"paid_$i"} );
+        $form->{"paid_$i"} *= -1 if $form->{reverse};
         $form->{paid} += $form->{"paid_$i"};
         $form->{datepaid} = $form->{"datepaid_$i"}
           if ( $form->{"datepaid_$i"} );


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.