Replace xaccTransAppendSplit by xaccSplitSetParent in a few scheme

files.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@15053 57a11ea4-9604-0410-9ed3-97b8803252fd

src/engine/engine-interface.scm

@@ -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

src/import-export/qif-import/qif-to-gnc.scm

@@ -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).

src/import-export/qif-io-core/qif-bank-xtn-import.scm

@@ -74,7 +74,7 @@
         (xaccAccountBeginEdit acct)
         (xaccSplitSetAccount split acct)
         (xaccAccountCommitEdit acct)
-        (xaccTransAppendSplit gnc-xtn split)
+        (xaccSplitSetParent split gnc-xtn)
         split))
 
     (xaccTransBeginEdit gnc-xtn)

src/import-export/qif-io-core/qif-invst-xtn-import.scm

@@ -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)