From 11b5192d2358d3e52c2d19bb6d2a19243e59bd75 Mon Sep 17 00:00:00 2001 From: Derek Atkins Date: Wed, 13 Oct 2004 15:13:21 +0000 Subject: [PATCH] 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. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@10303 57a11ea4-9604-0410-9ed3-97b8803252fd --- ChangeLog | 7 +++++++ src/import-export/qif-import/qif-objects.scm | 1 + 2 files changed, 8 insertions(+) diff --git a/ChangeLog b/ChangeLog index 7b29a774db..a0b1d37cd0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2004-10-13 Derek Atkins + + * 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 * engine/gw-engine-spec.scm: diff --git a/src/import-export/qif-import/qif-objects.scm b/src/import-export/qif-import/qif-objects.scm index 711b6cc95c..e65b00a54a 100644 --- a/src/import-export/qif-import/qif-objects.scm +++ b/src/import-export/qif-import/qif-objects.scm @@ -358,6 +358,7 @@ (define (make-qif-acct) (let ((retval (make-simple-obj ))) (qif-acct:set-type! retval "Bank") + (qif-acct:set-name! retval "Default Account") retval)) (define qif-acct?