r15042 - gnucash/trunk/src - Replace xaccTransGetSplits with xaccTransGetSplitList.

[Chris Shoemaker]

Author: chris
Date: 2006-10-18 21:00:17 -0400 (Wed, 18 Oct 2006)
New Revision: 15042
Trac: http://svn.gnucash.org/trac/changeset/15042

Modified:
   gnucash/trunk/src/business/business-core/business-core.scm
   gnucash/trunk/src/engine/engine-interface.scm
   gnucash/trunk/src/import-export/qif-import/qif-merge-groups.scm
   gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
   gnucash/trunk/src/report/standard-reports/cash-flow.scm
   gnucash/trunk/src/report/standard-reports/transaction.scm
Log:
Replace xaccTransGetSplits with xaccTransGetSplitList.

'xaccTransGetSplits' doesn't exist.  It was a result of an incorrect 
ordering of sed substitutions:

s/gnc:transaction-get-split/xaccTransGetSplit/g
s/gnc:transaction-get-splits/xaccTransGetSplitList/g



Modified: gnucash/trunk/src/business/business-core/business-core.scm
===================================================================
--- gnucash/trunk/src/business/business-core/business-core.scm	2006-10-18 21:08:26 UTC (rev 15041)
+++ gnucash/trunk/src/business/business-core/business-core.scm	2006-10-19 01:00:17 UTC (rev 15042)
@@ -95,7 +95,7 @@
 
     (if invoice
 	(set! owner (gncInvoiceGetOwner invoice))
-	(let ((split-list (xaccTransGetSplits trans)))
+	(let ((split-list (xaccTransGetSplitList trans)))
 	  (define (check-splits splits)
 	    (if (and splits (not (null? splits)))
 		(let* ((split (car splits))

Modified: gnucash/trunk/src/engine/engine-interface.scm
===================================================================
--- gnucash/trunk/src/engine/engine-interface.scm	2006-10-18 21:08:26 UTC (rev 15041)
+++ gnucash/trunk/src/engine/engine-interface.scm	2006-10-19 01:00:17 UTC (rev 15042)
@@ -265,7 +265,7 @@
         ;; strip off the old splits
         (for-each (lambda (split)
                     (xaccSplitDestroy split))
-                  (xaccTransGetSplits trans))
+                  (xaccTransGetSplitList trans))
 
         ;; and put on the new ones! Please note they go in the *same*
         ;; order as in the original transaction. This is important.

Modified: gnucash/trunk/src/import-export/qif-import/qif-merge-groups.scm
===================================================================
--- gnucash/trunk/src/import-export/qif-import/qif-merge-groups.scm	2006-10-18 21:08:26 UTC (rev 15041)
+++ gnucash/trunk/src/import-export/qif-import/qif-merge-groups.scm	2006-10-19 01:00:17 UTC (rev 15042)
@@ -108,7 +108,7 @@
                   (qof-query-destroy q-splits)
                   (qof-query-destroy sq)
                   (set! q-splits q-new))))
-            (xaccTransGetSplits xtn))
+            (xaccTransGetSplitList xtn))
            
            ;; now q-splits will match any split that is the same as one
            ;; split in the old-group xtn.  Merge it in.

Modified: gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2006-10-18 21:08:26 UTC (rev 15041)
+++ gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2006-10-19 01:00:17 UTC (rev 15042)
@@ -361,7 +361,7 @@
 			      )
 			  )
 
-			(xaccTransGetSplits parent))
+			(xaccTransGetSplitList parent))
 
 
 		       ;; go build the basis-list
@@ -417,7 +417,7 @@
 			     (dividendcoll 'add commod-currency (xaccSplitGetValue s)))
 			   )
 			  )
-			(xaccTransGetSplits parent)
+			(xaccTransGetSplitList parent)
 			)
 		       )
 		     )

Modified: gnucash/trunk/src/report/standard-reports/cash-flow.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/cash-flow.scm	2006-10-18 21:08:26 UTC (rev 15041)
+++ gnucash/trunk/src/report/standard-reports/cash-flow.scm	2006-10-19 01:00:17 UTC (rev 15042)
@@ -339,7 +339,7 @@
 				      )
 				  )
 				)
-                              (xaccTransGetSplits parent)
+                              (xaccTransGetSplitList parent)
                             )
                           )
                         )

Modified: gnucash/trunk/src/report/standard-reports/transaction.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/transaction.scm	2006-10-18 21:08:26 UTC (rev 15041)
+++ gnucash/trunk/src/report/standard-reports/transaction.scm	2006-10-19 01:00:17 UTC (rev 15042)
@@ -1228,7 +1228,7 @@
 
 	  (if splits-ok?
 	      (let* ((txn (xaccSplitGetParent split))
-		     (splits (xaccTransGetSplits txn)))
+		     (splits (xaccTransGetSplitList txn)))
 
 		;; Walk through the list of splits.
 		;; if we reach the end, return #f