[svn:p5ee] r11629 - p5ee/trunk/App-Widget/lib/App
[email protected] Tue, 5 Aug 2008 12:23:44 -0700 (PDT)
| Newsgroups | perl.cvs.p5ee |
|---|---|
| Message-ID | <[email protected]> |
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) {