From 520d406352544c9418f0ded3700753228b96fbbc Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Mon, 12 Feb 2001 22:27:29 +0000 Subject: [PATCH] Christian Stimming's report patch. Fixes bug with warnings in commodity-utilities.scm. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3642 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/commodity-utilities.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/scm/commodity-utilities.scm b/src/scm/commodity-utilities.scm index 598e7eee02..c16e73b54c 100644 --- a/src/scm/commodity-utilities.scm +++ b/src/scm/commodity-utilities.scm @@ -108,10 +108,10 @@ ;; resolve the exchange rate to this currency. (warn "can't calculate rate for " (gnc:commodity-value->string - (list (car pair) (caadr pair))) + (list (car pair) ((caadr pair) 'total #f))) " = " (gnc:commodity-value->string - (list (car otherlist) (cdadr pair))) + (list (car otherlist) ((cdadr pair) 'total #f))) " to " (gnc:commodity-value->string (list report-commodity (gnc:numeric-zero)))) @@ -122,10 +122,11 @@ ;; better thing to do in this case. (warn "Oops - exchange rate ambiguity error: " (gnc:commodity-value->string - (list (car pair) (caadr pair))) + (list (car pair) ((caadr pair) 'total #f))) " = " (gnc:commodity-value->string - (list (car otherlist) (cdadr pair)))) + (list (car otherlist) + ((cdadr pair) 'total #f)))) (let ;; Usual case: one of pair-{a,b} was found ;; in reportlist, i.e. this transaction