From 72e51a660e47d6d7bac83ac59f34c3461363cba6 Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Tue, 25 Apr 2000 10:13:05 +0000 Subject: [PATCH] Bug fixes. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2210 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/report/average-balance.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/scm/report/average-balance.scm b/src/scm/report/average-balance.scm index 43a1584935..30dceac569 100644 --- a/src/scm/report/average-balance.scm +++ b/src/scm/report/average-balance.scm @@ -6,8 +6,6 @@ ;; Author makes no implicit or explicit guarantee of accuracy of ;; these calculations and accepts no responsibility for direct ;; or indirect losses incurred as a result of using this software. -;; -;; Matt Martin (gnc:support "report/average-balance.scm") (use-modules (ice-9 regex)) @@ -170,7 +168,7 @@ (end (cadr delta))) (if (null? splits) (begin - (accbal start end) + (accbal prevdate end) '()) (let* ((split (car splits)) (now (gnc:split-get-transaction-date split))) @@ -210,9 +208,9 @@ end (/ (stat-accumulator 'total #f) (gnc:timepair-delta start end)) - (min-max-accumulator 'getmin #f) (min-max-accumulator 'getmax #f) - (- (gl-accumulator 'debits #f) + (min-max-accumulator 'getmin #f) + (- (gl-accumulator 'debits #f) (gl-accumulator 'credits #f)) (gl-accumulator 'debits #f) (gl-accumulator 'credits #f))