From 11dbaf1c876f4c28dfbd3f791f850a55e495509f Mon Sep 17 00:00:00 2001 From: Charles Day Date: Tue, 25 Aug 2009 21:01:46 +0000 Subject: [PATCH] Bug 575778: QIF Import: Fix crash when a security list omits the "T" (type) line. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@18279 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/import-export/qif-import/qif-objects.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/import-export/qif-import/qif-objects.scm b/src/import-export/qif-import/qif-objects.scm index 933bd51680..9589f1bc05 100644 --- a/src/import-export/qif-import/qif-objects.scm +++ b/src/import-export/qif-import/qif-objects.scm @@ -640,6 +640,7 @@ (let ((retval (make-simple-obj ))) (qif-stock-symbol:set-name! retval "") (qif-stock-symbol:set-symbol! retval "") + (qif-stock-symbol:set-type! retval "") retval)) (define @@ -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))