r16095 - gnucash/trunk/src/import-export/qif-import - Fix a qif import error if commission account cannot be found in the mappings, #378274.

[Andreas Köhler]

Author: andi5
Date: 2007-05-18 10:54:19 -0400 (Fri, 18 May 2007)
New Revision: 16095
Trac: http://svn.gnucash.org/trac/changeset/16095

Modified:
   gnucash/trunk/src/import-export/qif-import/qif-to-gnc.scm
Log:
Fix a qif import error if commission account cannot be found in the mappings, #378274.


Modified: gnucash/trunk/src/import-export/qif-import/qif-to-gnc.scm
===================================================================
--- gnucash/trunk/src/import-export/qif-import/qif-to-gnc.scm	2007-05-18 14:54:14 UTC (rev 16094)
+++ gnucash/trunk/src/import-export/qif-import/qif-to-gnc.scm	2007-05-18 14:54:19 UTC (rev 16095)
@@ -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