Fix a qif import error if commission account cannot be found in the mappings, #378274.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@16095 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Andreas Köhler 2007-05-18 14:54:19 +00:00
parent fa0cc34ec2
commit 3000cdacb5

View File

@ -615,13 +615,15 @@
(xaccSplitSetReconcile gnc-far-split #\y)))
(if qif-commission-acct
(let* ((commission-acct-info
(let* ((commission-acct-info
(or (hash-ref qif-acct-map qif-commission-acct)
(hash-ref qif-cat-map qif-commission-acct)))
(commission-acct-name
(qif-map-entry:gnc-name commission-acct-info)))
(set! commission-acct
(hash-ref gnc-acct-hash commission-acct-name))))
(commission-acct-name
(and commission-acct-info
(qif-map-entry:gnc-name commission-acct-info))))
(if commission-acct-name
(set! commission-acct
(hash-ref gnc-acct-hash commission-acct-name)))))
(if (and commission-amt commission-acct)
(begin