SF.net SVN: ledger-smb:[3097] trunk/scripts/payment.pl

[..hidden..]

Revision: 3097
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3097&view=rev
Author:   einhverfr
Date:     2010-10-12 23:07:46 +0000 (Tue, 12 Oct 2010)

Log Message:
-----------
Correcting errors with last commit

Modified Paths:
--------------
    trunk/scripts/payment.pl

Modified: trunk/scripts/payment.pl
===================================================================
--- trunk/scripts/payment.pl	2010-10-12 22:45:28 UTC (rev 3096)
+++ trunk/scripts/payment.pl	2010-10-12 23:07:46 UTC (rev 3097)
@@ -444,14 +444,14 @@
                     $payment->parse_amount(amount => $invoice->[3]) 
                     - $payment->parse_amount(amount => $invoice->[4])),
                                                     money  => 1);
-            $contact_to_pay +=  $payment->parse_amount(amount => $invoice[6]);
+            $contact_to_pay +=  $payment->parse_amount(amount => $invoice->[6]);
             my $fld = "payment_" . $invoice->[0];
             if (!defined $payment->{"$fld"} ){
                 $payment->{"$fld"} = $invoice->[6];
             }
         }
         if ($payment->{"paid_$_->{contact_id}"} ne 'some') {
-                  $contact_total = $_->{total_due};
+                  $contact_total = $contact_to_pay;
         }
         if (($payment->{action} ne 'update_payments') 
                   or (defined $payment->{"id_$_->{contact_id}"})){
@@ -463,6 +463,8 @@
                                                   money  => 1);
         $_->{contact_total} = $payment->format_amount(amount =>  $_->{contact_total},
                                                   money  => 1);
+        $_->{to_pay} = $payment->format_amount(amount =>  $_->{to_pay},
+                                                  money  => 1);
     }
     $payment->{grand_total} = $payment->format_amount(
 			amount =>  $payment->{grand_total},


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