"string-match" uses regexp which can error out if a GNC Account has a

paren in it, or any other regexp special character.  Use
"string-contains" from srfi-13 instead.  Bug reported by Melinda Savoy:
http://lists.gnucash.org/pipermail/gnucash-user/2007-January/019028.html

BP


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@15414 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2007-01-22 00:04:45 +00:00
parent c59bda28a3
commit 860276bc63

View File

@ -5,6 +5,8 @@
;;; Bill Gribble <grib@billgribble.com> 20 Feb 2000
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-modules (srfi srfi-13))
(define GNC-BANK-TYPE 0)
(define GNC-CASH-TYPE 1)
(define GNC-ASSET-TYPE 2)
@ -315,9 +317,8 @@
;; this happens if you have the same tree but a different
;; top-level structure. (i.e. expenses:tax vs. QIF tax)
(and (> (string-length qif-acct-name) 0)
(string-match (string-downcase qif-acct-name)
(string-downcase (cadr gnc-acct))))))
(string-contains (string-downcase (cadr gnc-acct))
(string-downcase qif-acct-name)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; qif-import:find-new-acct