From 350810c40185af41e75b53fe90fc12afe137047c Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sat, 21 Oct 2006 04:36:44 +0000 Subject: 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 --- LedgerSMB/Form.pm | 5 ----- 1 file changed, 5 deletions(-) (limited to 'LedgerSMB/Form.pm') 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')) { -- cgit v1.2.3