From 821b3ad58796b0a3eeef293b95139d705f04a6b2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andreas=20K=C3=B6hler?= Date: Sat, 21 Oct 2006 13:26:46 +0000 Subject: [PATCH] Correct order of account and split parameters to xaccSplitSetAccount in a few scheme files. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@15052 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/engine/engine-interface.scm | 2 +- src/import-export/qif-import/qif-to-gnc.scm | 12 ++++++------ .../qif-io-core/qif-bank-xtn-import.scm | 2 +- .../qif-io-core/qif-invst-xtn-import.scm | 2 +- 4 files changed, 9 insertions(+), 9 deletions(-) diff --git a/src/engine/engine-interface.scm b/src/engine/engine-interface.scm index 2b05b606c0..d68a15c559 100644 --- a/src/engine/engine-interface.scm +++ b/src/engine/engine-interface.scm @@ -128,7 +128,7 @@ (if account (begin (xaccAccountBeginEdit account) - (xaccSplitSetAccount account split) + (xaccSplitSetAccount split account) (xaccAccountCommitEdit account))))))) ;; Defines a scheme representation of a transaction. diff --git a/src/import-export/qif-import/qif-to-gnc.scm b/src/import-export/qif-import/qif-to-gnc.scm index 213a5e093e..06cfff4f6d 100644 --- a/src/import-export/qif-import/qif-to-gnc.scm +++ b/src/import-export/qif-import/qif-to-gnc.scm @@ -480,7 +480,7 @@ (xaccSplitSetReconcile gnc-far-split #\y))) ;; finally, plug the split into the account - (xaccSplitSetAccount far-acct gnc-far-split) + (xaccSplitSetAccount gnc-far-split far-acct) (xaccTransAppendSplit gnc-xtn gnc-far-split)))) splits) @@ -488,7 +488,7 @@ (xaccSplitSetValue gnc-near-split near-split-total) (xaccSplitSetAmount gnc-near-split near-split-total) (xaccTransAppendSplit gnc-xtn gnc-near-split) - (xaccSplitSetAccount near-acct gnc-near-split)) + (xaccSplitSetAccount gnc-near-split near-acct)) ;; STOCK TRANSACTIONS: the near/far accounts depend on the ;; "action" encoded in the Number field. It's generally the @@ -632,16 +632,16 @@ (if (and qif-near-acct qif-far-acct) (begin (xaccTransAppendSplit gnc-xtn gnc-near-split) - (xaccSplitSetAccount near-acct gnc-near-split) + (xaccSplitSetAccount gnc-near-split near-acct) (xaccTransAppendSplit gnc-xtn gnc-far-split) - (xaccSplitSetAccount far-acct gnc-far-split) + (xaccSplitSetAccount gnc-far-split far-acct) (if commission-split (begin (xaccTransAppendSplit gnc-xtn commission-split) - (xaccSplitSetAccount commission-acct - commission-split))))))) + (xaccSplitSetAccount commission-split + commission-acct))))))) ;; return the modified transaction (though it's ignored). gnc-xtn)) diff --git a/src/import-export/qif-io-core/qif-bank-xtn-import.scm b/src/import-export/qif-io-core/qif-bank-xtn-import.scm index 599d718469..82633c76e3 100644 --- a/src/import-export/qif-io-core/qif-bank-xtn-import.scm +++ b/src/import-export/qif-io-core/qif-bank-xtn-import.scm @@ -72,7 +72,7 @@ ;; add it to the account and the transaction (xaccAccountBeginEdit acct) - (xaccSplitSetAccount acct split) + (xaccSplitSetAccount split acct) (xaccAccountCommitEdit acct) (xaccTransAppendSplit gnc-xtn split) split)) diff --git a/src/import-export/qif-io-core/qif-invst-xtn-import.scm b/src/import-export/qif-io-core/qif-invst-xtn-import.scm index 251b272a76..a7ee2416d6 100644 --- a/src/import-export/qif-io-core/qif-invst-xtn-import.scm +++ b/src/import-export/qif-io-core/qif-invst-xtn-import.scm @@ -170,7 +170,7 @@ ;; add it to the account and the transaction (xaccAccountBeginEdit acct) - (xaccSplitSetAccount acct split) + (xaccSplitSetAccount split acct) (xaccAccountCommitEdit acct) (xaccTransAppendSplit gnc-xtn split) split))