From d9acfb334153ef76cb461504598e8c59db7f73c9 Mon Sep 17 00:00:00 2001 From: Derek Atkins Date: Wed, 17 Jul 2002 23:48:19 +0000 Subject: [PATCH] Fix some of the query creation code so as not to match all splits in the book. This is to help fix bugID 8805, but it sounds like it is not completely fixed, yet. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7120 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/import-export/qif-import/qif-merge-groups.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/import-export/qif-import/qif-merge-groups.scm b/src/import-export/qif-import/qif-merge-groups.scm index 1f2756700b..f8cbc98c19 100644 --- a/src/import-export/qif-import/qif-merge-groups.scm +++ b/src/import-export/qif-import/qif-merge-groups.scm @@ -16,7 +16,7 @@ ;; account group. (gnc:query-add-account-match query (gnc:group-get-subaccounts group) - 'guid-match-any 'query-or) + 'guid-match-any 'query-and) (set! xtns (gnc:query-get-transactions query 'query-txn-match-all)) @@ -55,7 +55,6 @@ ;; for each split in the transaction, add a term to match the ;; properties of one split (let ((q-splits (gnc:malloc-query))) - (gnc:query-set-book q-splits (gnc:group-get-book old-group)) (for-each (lambda (split) (let ((sq (gnc:malloc-query)))