From: ivan <ivan>
Date: Mon, 23 May 2011 00:01:31 +0000 (+0000)
Subject: fix cch tax rate import for taxes coming from dbf file in scientific notation, RT... 
X-Git-Tag: freeside_2_3_0~212
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;ds=sidebyside;h=d884f87c167fa00a24b2347c46606585b8420657;p=freeside.git

fix cch tax rate import for taxes coming from dbf file in scientific notation, RT#11003
---

diff --git a/FS/FS/tax_rate.pm b/FS/FS/tax_rate.pm
index 54b388ce3..48c01967d 100644
--- a/FS/FS/tax_rate.pm
+++ b/FS/FS/tax_rate.pm
@@ -1196,9 +1196,14 @@ sub _cch_extract_csv_from_dbf {
           $date;
         };
   while (my $row = $cursor->fetch_hashref) {
-    $csv->combine( map { ($table->field_type($_) eq 'D')
-                         ? &{$format_date}($row->{$_}) 
-                         : $row->{$_}
+    $csv->combine( map { my $type = $table->field_type($_);
+                         if ($type eq 'D') {
+                           &{$format_date}($row->{$_}) ;
+                         } elsif ($type eq 'N' && $row->{$_} =~ /e-/i ) {
+                           sprintf('%.8f', $row->{$_}); #db row is numeric(14,8)
+                         } else {
+                           $row->{$_};
+                         }
                        }
                    @fields
     );