diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-21 04:36:44 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-21 04:36:44 +0000 |
| commit | 350810c40185af41e75b53fe90fc12afe137047c (patch) | |
| tree | 433bb94255df8c2116bace2e5e913a993f98794a /LedgerSMB/Form.pm | |
| parent | 4d33b4e45d3112bf1b7f178e900b2f75de51362e (diff) | |
Removing old code to test for reparsing
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@249 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Form.pm')
| -rwxr-xr-x | LedgerSMB/Form.pm | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index a0a3fb19..94a96dc0 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -494,11 +494,6 @@ sub parse_amount { return $amount; } my $numberformat = $myconfig->{numberformat}; - my $decimal_regex = /\.\d+$/; - if (($numberformat !~ $decimal_regex) and ($amount =~ $decimal_regex)){ - # We have already parsed this number - $numberformat = "1000.00"; - } if (($numberformat eq '1.000,00') || ($numberformat eq '1000,00')) { |