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

[..hidden..]

Revision: 2475
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2475&view=rev
Author:   einhverfr
Date:     2009-03-04 22:02:17 +0000 (Wed, 04 Mar 2009)

Log Message:
-----------
Fixing one more format safety issue on payments

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

Modified: trunk/scripts/payment.pl
===================================================================
--- trunk/scripts/payment.pl	2009-03-04 21:27:01 UTC (rev 2474)
+++ trunk/scripts/payment.pl	2009-03-04 22:02:17 UTC (rev 2475)
@@ -379,8 +379,10 @@
                   or (defined $payment->{"id_$_->{contact_id}"})){
                    if ($payment->{"paid_$_->{contact_id}"} eq 'some'){
                       my $i_id = $invoice->[0];
+                      my $payment_amt = $payment->parse_amount(
+				amount => $payment->{"payment_$i_id"});
                       $contact_total 
-                              += $payment->{"payment_$i_id"};
+                              += $payment_amt;
                    } 
             }
             $invoice->[3] = $payment->format_amount(amount => $invoice->[3], 


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