IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Ignore any unknown !Option specification. Fixes #160735.

Browse Source 
BP



git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@14522 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2006-07-16 23:00:52 +00:00
parent 10e122f19e
commit e7e959f54f
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ChangeLog
View File

@ -5,6 +5,9 @@
Apparently some distributions ship g-wrap-config separately
from the g-wrap.scm guile module.
* src/import-export/qif-import/qif-file.scm:
Ignore any unknown !Option specification. Fixes #160735.
2006-07-16 Andreas Köhler <andi5.py@gmx.net>
* src/gnome-utils/gnc-main-window.c: Do not move windows on

14
src/import-export/qif-import/qif-file.scm
View File

@ -79,7 +79,7 @@
;; now do something with the line
(if
(eq? tag #\!)
(begin
(let ((old-qstate qstate-type))
(set! qstate-type (qif-parse:parse-bang-field value))
(case qstate-type
((type:bank type:cash type:ccard type:invst type:port
@ -101,7 +101,17 @@
((option:autoswitch)
(set! ignore-accounts #t))
((clear:autoswitch)
(set! ignore-accounts #f))))
(set! ignore-accounts #f))
(else
;; Ignore any other "option:" identifiers and
;; just return to the previously known !type
(if (string-match "^option:"
(symbol->string qstate-type))
(begin
(display "qif-file:read-file ignoring ")
(write qstate-type)
(newline)
(set! qstate-type old-qstate))))))
;;; (#t
;;; (display "qif-file:read-file can't handle ")