From 446b413553ee2abe838bc19342bd6dd92189f3f3 Mon Sep 17 00:00:00 2001 From: Derek Atkins Date: Sat, 17 May 2003 18:39:16 +0000 Subject: [PATCH] * 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 | 7 +++++++ src/import-export/qif-import/qif-file.scm | 7 ++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index ca8ff6652f..1142041ef7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2003-05-17 Derek Atkins + + * 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 * src/gnome/window-main.c: diff --git a/src/import-export/qif-import/qif-file.scm b/src/import-export/qif-import/qif-file.scm index 3ce7454826..366f97839f 100644 --- a/src/import-export/qif-import/qif-file.scm +++ b/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)