From d37b5e526def66bd9ca7d2145813802d083d7d84 Mon Sep 17 00:00:00 2001 From: Derek Atkins Date: Wed, 10 May 2006 13:11:30 +0000 Subject: [PATCH] Same patch as qif-import/qif-parse.scm for guile-1.8. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@13989 57a11ea4-9604-0410-9ed3-97b8803252fd --- ChangeLog | 5 +++++ src/import-export/qif-io-core/qif-parse.scm | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 02da584cac..b28b9f9caa 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-05-10 Derek Atkins + + * src/import-export/qif-io-core/qif-parse.scm: + Same patch as qif-import/qif-parse.scm for guile-1.8. + 2006-05-10 Christian Stimming * accounts/de_AT/*: Added new Austrian German account templates by diff --git a/src/import-export/qif-io-core/qif-parse.scm b/src/import-export/qif-io-core/qif-parse.scm index b2d45fdd23..665aa0d81a 100644 --- a/src/import-export/qif-io-core/qif-parse.scm +++ b/src/import-export/qif-io-core/qif-parse.scm @@ -19,7 +19,7 @@ (define qif-category-compiled-rexp - (make-regexp "^ *(\\[)?([^]/\\|]*)(]?)(/([^\|]*))?(\\|(\\[)?([^]/]*)(]?)(/(.*))?)? *$")) + (make-regexp "^ *(\\[)?([^]/\\|]*)(]?)(/([^\\|]*))?(\\|(\\[)?([^]/]*)(]?)(/(.*))?)? *$")) (define qif-date-compiled-rexp (make-regexp "^ *([0-9]+) *[-/.'] *([0-9]+) *[-/.'] *([0-9]+).*$|^ *([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9]).*$"))