diff options
| -rwxr-xr-x | LedgerSMB/Form.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index b42f7584..a0a3fb19 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -390,18 +390,15 @@ sub format_amount { 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 |