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

Bug 575778: QIF Import: Fix crash when a security list omits the "T" (type) line.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@18279 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Charles Day 2009-08-25 21:01:46 +00:00
parent dc394c0030
commit 11dbaf1c87
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/import-export/qif-import/qif-objects.scm
View File

@ -640,6 +640,7 @@
(let ((retval (make-simple-obj <qif-stock-symbol>))) (let ((retval (make-simple-obj <qif-stock-symbol>)))
(qif-stock-symbol:set-name! retval "") (qif-stock-symbol:set-name! retval "")
(qif-stock-symbol:set-symbol! retval "") (qif-stock-symbol:set-symbol! retval "")
(qif-stock-symbol:set-type! retval "")
retval)) retval))
(define <qif-ticker-map> (define <qif-ticker-map>
@ -670,7 +671,7 @@
(if (string=? name (qif-stock-symbol:name symbol)) (if (string=? name (qif-stock-symbol:name symbol))
(begin (begin
(set! retval (qif-stock-symbol:symbol symbol)) (set! retval (qif-stock-symbol:symbol symbol))
(if (string=? retval "") (if (and (string? retval) (string=? retval ""))
(set! retval #f))))) (set! retval #f)))))
(qif-ticker-map:ticker-map ticker-map)) (qif-ticker-map:ticker-map ticker-map))
retval)) retval))
@ -682,7 +683,7 @@
(if (string=? name (qif-stock-symbol:name symbol)) (if (string=? name (qif-stock-symbol:name symbol))
(begin (begin
(set! retval (qif-stock-symbol:type symbol)) (set! retval (qif-stock-symbol:type symbol))
(if (string=? retval "") (if (and (string? retval) (string=? retval ""))
(set! retval #f))))) (set! retval #f)))))
(qif-ticker-map:ticker-map ticker-map)) (qif-ticker-map:ticker-map ticker-map))
retval)) retval))