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