From 2cd782b451ae4d7c89eed22318da9e962b5b42b1 Mon Sep 17 00:00:00 2001 From: Chris Shoemaker Date: Thu, 19 Oct 2006 01:00:17 +0000 Subject: [PATCH] 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 git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@15042 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/business/business-core/business-core.scm | 2 +- src/engine/engine-interface.scm | 2 +- src/import-export/qif-import/qif-merge-groups.scm | 2 +- src/report/standard-reports/advanced-portfolio.scm | 4 ++-- src/report/standard-reports/cash-flow.scm | 2 +- src/report/standard-reports/transaction.scm | 2 +- 6 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/business/business-core/business-core.scm b/src/business/business-core/business-core.scm index 3d706896cd..25bb734c00 100644 --- a/src/business/business-core/business-core.scm +++ b/src/business/business-core/business-core.scm @@ -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)) diff --git a/src/engine/engine-interface.scm b/src/engine/engine-interface.scm index 4fc3c26d93..2fd398f64f 100644 --- a/src/engine/engine-interface.scm +++ b/src/engine/engine-interface.scm @@ -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. diff --git a/src/import-export/qif-import/qif-merge-groups.scm b/src/import-export/qif-import/qif-merge-groups.scm index 74c9837de8..8c3bd94458 100644 --- a/src/import-export/qif-import/qif-merge-groups.scm +++ b/src/import-export/qif-import/qif-merge-groups.scm @@ -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. diff --git a/src/report/standard-reports/advanced-portfolio.scm b/src/report/standard-reports/advanced-portfolio.scm index 9d443820ec..a760c0d640 100644 --- a/src/report/standard-reports/advanced-portfolio.scm +++ b/src/report/standard-reports/advanced-portfolio.scm @@ -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) ) ) ) diff --git a/src/report/standard-reports/cash-flow.scm b/src/report/standard-reports/cash-flow.scm index 59ecd0cca2..c14bf61f54 100644 --- a/src/report/standard-reports/cash-flow.scm +++ b/src/report/standard-reports/cash-flow.scm @@ -339,7 +339,7 @@ ) ) ) - (xaccTransGetSplits parent) + (xaccTransGetSplitList parent) ) ) ) diff --git a/src/report/standard-reports/transaction.scm b/src/report/standard-reports/transaction.scm index 8084550376..5c31d91121 100644 --- a/src/report/standard-reports/transaction.scm +++ b/src/report/standard-reports/transaction.scm @@ -1228,7 +1228,7 @@ Credit Card, and Income accounts"))))) (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