r18279 - gnucash/trunk/src/import-export/qif-import - Bug 575778: QIF Import: Fix crash when a security list omits the "T" (type) line.
Charles Day
cedayiv at code.gnucash.org
Tue Aug 25 17:01:47 EDT 2009
Author: cedayiv
Date: 2009-08-25 17:01:46 -0400 (Tue, 25 Aug 2009)
New Revision: 18279
Trac: http://svn.gnucash.org/trac/changeset/18279
Modified:
gnucash/trunk/src/import-export/qif-import/qif-objects.scm
Log:
Bug 575778: QIF Import: Fix crash when a security list omits the "T" (type) line.
Modified: gnucash/trunk/src/import-export/qif-import/qif-objects.scm
===================================================================
--- gnucash/trunk/src/import-export/qif-import/qif-objects.scm 2009-08-25 20:08:27 UTC (rev 18278)
+++ gnucash/trunk/src/import-export/qif-import/qif-objects.scm 2009-08-25 21:01:46 UTC (rev 18279)
@@ -640,6 +640,7 @@
(let ((retval (make-simple-obj <qif-stock-symbol>)))
(qif-stock-symbol:set-name! retval "")
(qif-stock-symbol:set-symbol! retval "")
+ (qif-stock-symbol:set-type! retval "")
retval))
(define <qif-ticker-map>
@@ -670,7 +671,7 @@
(if (string=? name (qif-stock-symbol:name symbol))
(begin
(set! retval (qif-stock-symbol:symbol symbol))
- (if (string=? retval "")
+ (if (and (string? retval) (string=? retval ""))
(set! retval #f)))))
(qif-ticker-map:ticker-map ticker-map))
retval))
@@ -682,7 +683,7 @@
(if (string=? name (qif-stock-symbol:name symbol))
(begin
(set! retval (qif-stock-symbol:type symbol))
- (if (string=? retval "")
+ (if (and (string? retval) (string=? retval ""))
(set! retval #f)))))
(qif-ticker-map:ticker-map ticker-map))
retval))
More information about the gnucash-changes
mailing list