Christian Stimming's report patch for better currency support.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2757 57a11ea4-9604-0410-9ed3-97b8803252fd

AUTHORS

@@ -110,6 +110,7 @@ Mike Simons <msimons@fsimons01.erols.com> misc configure.in patches
 Richard Skelton <rich@brake.demon.co.uk> for Solaris cleanup
 Henning Spruth <spruth@bigfoot.com> for German text & euro date rework
 Robby Stephenson <robby.stephenson@usa.net> register & file history patches
+Christian Stimming <stimming@uclink.berkeley.edu> report patch
 Herbert Thoma <tma@iis.fhg.de> gnome register & euro support patches
 Diane Trout <detrout@earthlink.net> scheme qif import patch
 Richard Wackerbarth <rkw@dataplex.net> patch to gnc-prices, qif import fixes

doc/sgml/C/xacc-about.sgml

@@ -760,6 +760,7 @@ Motif as a school project, taking it to version 0.9 by October
 <PARA>for German text and euro date rework</PARA>
 </GLOSSDEF>
 </GLOSSENTRY>
+
 <GLOSSENTRY>
 <GLOSSTERM><email> robby.stephenson@usa.net</email> Robby
       Stephenson</GLOSSTERM>
@@ -767,6 +768,15 @@ Motif as a school project, taking it to version 0.9 by October
 <PARA>register &amp; file history patches</PARA>
 </GLOSSDEF>
 </GLOSSENTRY>
+
+<GLOSSENTRY>
+<GLOSSTERM><email> stimming@uclink.berkeley.edu></email> Christian
+      Stimming</GLOSSTERM>
+<GLOSSDEF>
+<PARA>report patch</PARA>
+</GLOSSDEF>
+</GLOSSENTRY>
+
 <GLOSSENTRY>
 <GLOSSTERM><email> tma@iis.fhg.de</email> Herbert Thoma</GLOSSTERM>
 <GLOSSDEF>

src/scm/report-utilities.scm

@@ -32,6 +32,12 @@
 (define (gnc:amount->formatted-string amount shares_value?)
   (gnc:amount->string amount #t #t shares_value?))
 
+(define (gnc:amount->formatted-currency-string amount 
+					       this_currency shares_value?)
+  (gnc:amount->string-helper (exact->inexact amount)
+			     #t #t shares_value?
+                             this_currency))
+
 (define (gnc:account-has-shares? account)
   (let ((type (gnc:account-type->symbol (gnc:account-get-type account))))
     (member type '(STOCK MUTUAL CURRENCY))))

src/scm/report/balance-and-pnl.scm

@@ -93,7 +93,9 @@
                       (gnc:account-get-type level-2-account))))
       (html-table-row-align
        (list
-	account-name type-name (gnc:amount->formatted-string l2-value #f))
+	account-name type-name 
+	(gnc:amount->formatted-currency-string 
+	 l2-value (gnc:account-get-currency level-2-account) #f))
        (list "left" "center" "right"))))
 
   (define (render-level-1-account account l1-value)
@@ -101,7 +103,8 @@
           (type (gnc:account-get-type-string (gnc:account-get-type account))))
       (html-table-row-align
        (list name type NBSP 
-             (gnc:amount->formatted-string l1-value #f)
+             (gnc:amount->formatted-currency-string 
+ 	      l1-value (gnc:account-get-currency account) #f)
 	     NBSP NBSP)
        (list "left" "center" "right" "right" "right" "right"))))