From:	spadkins@cvs.perl.org	Date:	Tue Aug  5 13:23:44 2008
Subject:	[svn:p5ee] r11629 - p5ee/trunk/App-Widget/lib/App

Author: spadkins
Date: Tue Aug  5 12:23:43 2008
New Revision: 11629

Modified:
   p5ee/trunk/App-Widget/lib/App/Widget.pm

Log:
Don't append currency symbol if report_currency_cd is not USD

Modified: p5ee/trunk/App-Widget/lib/App/Widget.pm
==============================================================================
--- p5ee/trunk/App-Widget/lib/App/Widget.pm	(original)
+++ p5ee/trunk/App-Widget/lib/App/Widget.pm	Tue Aug  5 12:23:43 2008
@@ -584,7 +584,13 @@
                     }
                 }
                 if ($curr) {
-                    $formatted_value = '$' . $formatted_value;
+                    my $report_currency_cd = $format_options->{report_currency_cd};
+                    if ($report_currency_cd && $report_currency_cd ne 'USD') {
+                        # do nothing for now. Just do not append the "$"
+                    }
+                    else {
+                       $formatted_value = '$' . $formatted_value;
+                    }
                 }
                 if ($negated) {
                     if ($paren) {