* src/import-export/qif-import/qif-file.scm: the numeric test

regex was broken and would fail on ALL numerics, causing all
	  imports to be of value zero.  Oops.  I _thought_ I tested this,
	  but clearly not sufficiently.  :(


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/branches/1.8@8325 57a11ea4-9604-0410-9ed3-97b8803252fd

ChangeLog

@@ -1,3 +1,10 @@
+2003-05-17  Derek Atkins  <derek@ihtfp.com>
+
+	* src/import-export/qif-import/qif-file.scm:  the numeric test
+	  regex was broken and would fail on ALL numerics, causing all
+	  imports to be of value zero.  Oops.  I _thought_ I tested this,
+	  but clearly not sufficiently.  :(
+
 2003-05-16  David Hampton  <hampton@employees.org>
 
 	* src/gnome/window-main.c: 

src/import-export/qif-import/qif-file.scm

@@ -18,10 +18,11 @@
  (else (use-modules (ice-9 rdelim))))
 
 (define qif-bad-numeric-rexp 
-  (make-regexp "^\.\.\."))
+  (make-regexp "^\\.\\.\\."))
 
 (define (not-bad-numeric-string? input)
-  (if (regexp-exec qif-bad-numeric-rexp input) #f #t))
+  (let ((match (regexp-exec qif-bad-numeric-rexp input)))
+    (if match #f #t)))
 
 (define (qif-file:read-file self path ticker-map)
   (false-if-exception
@@ -122,7 +123,7 @@
                        ;; T : total amount 
                        ((#\T)
                         (if (and default-split (not-bad-numeric-string? value))
-                            (qif-split:set-amount! default-split value)))
+			    (qif-split:set-amount! default-split value)))
                        
                        ;; P : payee
                        ((#\P)