[Gnucash-changes] Don't crash when someone imports a broken QIF (#155244).

[Derek Atkins]

Log Message:
-----------
Don't crash when someone imports a broken QIF (#155244).

	* src/import-export/qif-import/qif-object.scm:
	  provide a default account name so we don't crash when someone
	  imports a broken QIF that has a !Account without an account name.
	  Fixes bug #155244.

Modified Files:
--------------
    gnucash:
        ChangeLog
    gnucash/src/import-export/qif-import:
        qif-objects.scm

Revision Data
-------------
Index: ChangeLog
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/ChangeLog,v
retrieving revision 1.1845
retrieving revision 1.1846
diff -LChangeLog -LChangeLog -u -r1.1845 -r1.1846
--- ChangeLog
+++ ChangeLog
@@ -1,3 +1,10 @@
+2004-10-13  Derek Atkins  <derek at ihtfp.com>
+
+	* src/import-export/qif-import/qif-object.scm:
+	  provide a default account name so we don't crash when someone
+	  imports a broken QIF that has a !Account without an account name.
+	  Fixes bug #155244.
+
 2004-10-08  Derek Atkins  <derek at ihtfp.com>
 
 	* engine/gw-engine-spec.scm:
Index: qif-objects.scm
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/import-export/qif-import/qif-objects.scm,v
retrieving revision 1.4
retrieving revision 1.5
diff -Lsrc/import-export/qif-import/qif-objects.scm -Lsrc/import-export/qif-import/qif-objects.scm -u -r1.4 -r1.5
--- src/import-export/qif-import/qif-objects.scm
+++ src/import-export/qif-import/qif-objects.scm
@@ -358,6 +358,7 @@
 (define (make-qif-acct)
   (let ((retval (make-simple-obj <qif-acct>)))
     (qif-acct:set-type! retval "Bank")
+    (qif-acct:set-name! retval "Default Account")
     retval))
 
 (define qif-acct?