summaryrefslogtreecommitdiff
path: root/LedgerSMB/Form.pm
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB/Form.pm')
-rwxr-xr-xLedgerSMB/Form.pm5
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