IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Christian Stimming's report patch.

Browse Source 
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
This commit is contained in:
Dave Peticolas 2001-02-12 22:27:29 +00:00
parent f5ead6d71d
commit 520d406352
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/scm/commodity-utilities.scm
View File

@ -108,10 +108,10 @@
;; resolve the exchange rate to this currency. ;; resolve the exchange rate to this currency.
(warn "can't calculate rate for " (warn "can't calculate rate for "
(gnc:commodity-value->string (gnc:commodity-value->string
(list (car pair) (caadr pair))) (list (car pair) ((caadr pair) 'total #f)))
" = " " = "
(gnc:commodity-value->string (gnc:commodity-value->string
(list (car otherlist) (cdadr pair))) (list (car otherlist) ((cdadr pair) 'total #f)))
" to " " to "
(gnc:commodity-value->string (gnc:commodity-value->string
(list report-commodity (gnc:numeric-zero)))) (list report-commodity (gnc:numeric-zero))))
@ -122,10 +122,11 @@
;; better thing to do in this case. ;; better thing to do in this case.
(warn "Oops - exchange rate ambiguity error: " (warn "Oops - exchange rate ambiguity error: "
(gnc:commodity-value->string (gnc:commodity-value->string
(list (car pair) (caadr pair))) (list (car pair) ((caadr pair) 'total #f)))
" = " " = "
(gnc:commodity-value->string (gnc:commodity-value->string
(list (car otherlist) (cdadr pair)))) (list (car otherlist)
((cdadr pair) 'total #f))))
(let (let
;; Usual case: one of pair-{a,b} was found ;; Usual case: one of pair-{a,b} was found
;; in reportlist, i.e. this transaction ;; in reportlist, i.e. this transaction