[Gnucash-changes] r13989 - gnucash/trunk - Same patch as qif-import/qif-parse.scm for guile-1.8.

[Derek Atkins]

Author: warlord
Date: 2006-05-10 09:11:30 -0400 (Wed, 10 May 2006)
New Revision: 13989
Trac: http://svn.gnucash.org/trac/changeset/13989

Modified:
   gnucash/trunk/ChangeLog
   gnucash/trunk/src/import-export/qif-io-core/qif-parse.scm
Log:
Same patch as qif-import/qif-parse.scm for guile-1.8.



Modified: gnucash/trunk/ChangeLog
===================================================================
--- gnucash/trunk/ChangeLog	2006-05-10 12:50:35 UTC (rev 13988)
+++ gnucash/trunk/ChangeLog	2006-05-10 13:11:30 UTC (rev 13989)
@@ -1,3 +1,8 @@
+2006-05-10  Derek Atkins  <derek at ihtfp.com>
+
+	* 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 <stimming at tuhh.de>
 
 	* accounts/de_AT/*: Added new Austrian German account templates by

Modified: gnucash/trunk/src/import-export/qif-io-core/qif-parse.scm
===================================================================
--- gnucash/trunk/src/import-export/qif-io-core/qif-parse.scm	2006-05-10 12:50:35 UTC (rev 13988)
+++ gnucash/trunk/src/import-export/qif-io-core/qif-parse.scm	2006-05-10 13:11:30 UTC (rev 13989)
@@ -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]).*$"))