SF.net SVN: ledger-smb: [248] trunk/LedgerSMB/Form.pm

[..hidden..]

Revision: 248
          http://svn.sourceforge.net/ledger-smb/?rev=248&view=rev
Author:   tetragon
Date:     2006-10-20 21:27:44 -0700 (Fri, 20 Oct 2006)

Log Message:
-----------
Fix formatting of negative numbers with formats '1000,00' and '1.000,00'

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

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2006-10-21 04:13:36 UTC (rev 247)
+++ trunk/LedgerSMB/Form.pm	2006-10-21 04:27:44 UTC (rev 248)
@@ -390,18 +390,15 @@
 
 
 	my $negative = ($amount < 0);
-	print STDERR "$amount\n";
 	if ($amount){
-		$amount =~ s/-//;
 		$amount = $self->parse_amount($myconfig, $amount);
+		$amount =~ s/-//;
 	}
-	print STDERR "$amount\n";
 
 	if ($places =~ /\d+/) {
 		#$places = 4 if $places == 2;
 		$amount = $self->round_amount($amount, $places);
 	}
-	print STDERR "$amount\n";
 
 	# is the amount negative
 


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