summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/Form.pm16
1 files changed, 12 insertions, 4 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 3a22392f..f305690a 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -388,13 +388,18 @@ sub format_amount {
my ($self, $myconfig, $amount, $places, $dash) = @_;
+ my $negative = ($amount < 0);
+ if ($amount){
+ $amount =~ s/-//;
+ $amount = $self->parse_amount($myconfig, $amount);
+ }
+
if ($places =~ /\d+/) {
#$places = 4 if $places == 2;
$amount = $self->round_amount($amount, $places);
}
# is the amount negative
- my $negative = ($amount < 0);
# Parse $myconfig->{numberformat}
@@ -406,8 +411,6 @@ sub format_amount {
if ($myconfig->{numberformat}) {
- $amount =~ s/-//;
- $amount = $self->parse_amount($amount, $myconfig);
my ($whole, $dec) = split /\./, "$amount";
$amount = join '', reverse split //, $whole;
@@ -486,8 +489,12 @@ sub parse_amount {
my ($self, $myconfig, $amount) = @_;
+ eval $amount->isa('Math::BigFloat'); # Amount may not be an object
+ if (!$@ and $amount->isa('Math::BigFloat')){
+ return $amount;
+ }
my $numberformat = $myconfig->{numberformat};
- my $decimal_regex = /\.\d{2}/;
+ my $decimal_regex = /\.\d+$/;
if (($numberformat !~ $decimal_regex) and ($amount =~ $decimal_regex)){
# We have already parsed this number
$numberformat = "1000.00";
@@ -508,6 +515,7 @@ sub parse_amount {
}
$amount =~ s/,//g;
+ $amount = new Math::BigFloat($amount);
return ($amount * 1);
}