r15053 - gnucash/trunk - Replace xaccTransAppendSplit by xaccSplitSetParent in a few scheme

[Andreas Köhler]

Author: andi5
Date: 2006-10-21 09:26:59 -0400 (Sat, 21 Oct 2006)
New Revision: 15053
Trac: http://svn.gnucash.org/trac/changeset/15053

Modified:
   gnucash/trunk/
   gnucash/trunk/src/engine/engine-interface.scm
   gnucash/trunk/src/import-export/qif-import/qif-to-gnc.scm
   gnucash/trunk/src/import-export/qif-io-core/qif-bank-xtn-import.scm
   gnucash/trunk/src/import-export/qif-io-core/qif-invst-xtn-import.scm
Log:
Replace xaccTransAppendSplit by xaccSplitSetParent in a few scheme
files.



Property changes on: gnucash/trunk
___________________________________________________________________
Name: svk:merge
   - 3889ce50-311e-0410-a464-f059747ec5d1:/local/gnucash/branches/swig-redo:802
3889ce50-311e-0410-a464-f059747ec5d1:/local/gnucash/trunk:849
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/trunk:13528
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/trunk2:13366
   + 3889ce50-311e-0410-a464-f059747ec5d1:/local/gnucash/branches/swig-redo:802
3889ce50-311e-0410-a464-f059747ec5d1:/local/gnucash/trunk:850
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/trunk:13528
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/trunk2:13366

Modified: gnucash/trunk/src/engine/engine-interface.scm
===================================================================
--- gnucash/trunk/src/engine/engine-interface.scm	2006-10-21 13:26:46 UTC (rev 15052)
+++ gnucash/trunk/src/engine/engine-interface.scm	2006-10-21 13:26:59 UTC (rev 15053)
@@ -279,7 +279,7 @@
              (gnc:split-scm-set-account-guid split-scm new-guid)
              (gnc:split-scm-onto-split split-scm new-split book)
              (gnc:split-scm-set-account-guid split-scm old-guid)
-             (xaccTransAppendSplit trans new-split)))
+             (xaccSplitSetParent new-split trans)))
          (gnc:transaction-scm-get-split-scms trans-scm))
         
         ;; close the transaction

Modified: gnucash/trunk/src/import-export/qif-import/qif-to-gnc.scm
===================================================================
--- gnucash/trunk/src/import-export/qif-import/qif-to-gnc.scm	2006-10-21 13:26:46 UTC (rev 15052)
+++ gnucash/trunk/src/import-export/qif-import/qif-to-gnc.scm	2006-10-21 13:26:59 UTC (rev 15053)
@@ -481,13 +481,13 @@
                    
                    ;; finally, plug the split into the account 
                    (xaccSplitSetAccount gnc-far-split far-acct)
-                   (xaccTransAppendSplit gnc-xtn gnc-far-split))))
+                   (xaccSplitSetParent gnc-far-split gnc-xtn))))
            splits)
           
           ;; the value of the near split is the total of the far splits.
           (xaccSplitSetValue gnc-near-split near-split-total)
           (xaccSplitSetAmount gnc-near-split near-split-total)
-          (xaccTransAppendSplit gnc-xtn gnc-near-split)
+          (xaccSplitSetParent gnc-near-split gnc-xtn)
           (xaccSplitSetAccount gnc-near-split near-acct))
         
         ;; STOCK TRANSACTIONS: the near/far accounts depend on the
@@ -631,15 +631,15 @@
 
           (if (and qif-near-acct qif-far-acct)
               (begin 
-                (xaccTransAppendSplit gnc-xtn gnc-near-split)
+                (xaccSplitSetParent gnc-near-split gnc-xtn)
                 (xaccSplitSetAccount gnc-near-split near-acct)
                 
-                (xaccTransAppendSplit gnc-xtn gnc-far-split)
+                (xaccSplitSetParent gnc-far-split gnc-xtn)
                 (xaccSplitSetAccount gnc-far-split far-acct)
                 
                 (if commission-split
                     (begin 
-                      (xaccTransAppendSplit gnc-xtn commission-split)
+                      (xaccSplitSetParent commission-split gnc-xtn)
                       (xaccSplitSetAccount commission-split
                                            commission-acct)))))))
     ;; return the modified transaction (though it's ignored).

Modified: gnucash/trunk/src/import-export/qif-io-core/qif-bank-xtn-import.scm
===================================================================
--- gnucash/trunk/src/import-export/qif-io-core/qif-bank-xtn-import.scm	2006-10-21 13:26:46 UTC (rev 15052)
+++ gnucash/trunk/src/import-export/qif-io-core/qif-bank-xtn-import.scm	2006-10-21 13:26:59 UTC (rev 15053)
@@ -74,7 +74,7 @@
         (xaccAccountBeginEdit acct)
         (xaccSplitSetAccount split acct)
         (xaccAccountCommitEdit acct)
-        (xaccTransAppendSplit gnc-xtn split)
+        (xaccSplitSetParent split gnc-xtn)
         split))
 
     (xaccTransBeginEdit gnc-xtn)

Modified: gnucash/trunk/src/import-export/qif-io-core/qif-invst-xtn-import.scm
===================================================================
--- gnucash/trunk/src/import-export/qif-io-core/qif-invst-xtn-import.scm	2006-10-21 13:26:46 UTC (rev 15052)
+++ gnucash/trunk/src/import-export/qif-io-core/qif-invst-xtn-import.scm	2006-10-21 13:26:59 UTC (rev 15053)
@@ -172,7 +172,7 @@
         (xaccAccountBeginEdit acct)
         (xaccSplitSetAccount split acct)
         (xaccAccountCommitEdit acct)
-        (xaccTransAppendSplit gnc-xtn split)
+        (xaccSplitSetParent split gnc-xtn)
         split))
 
     (define (lookup-balance acct-info)