[svn:p5ee] r14558 - p5ee/trunk/App-Widget/lib/App/Widget

[spadkins]

Author: spadkins
Date: Tue Nov 30 11:47:34 2010
New Revision: 14558

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

Log:
if necessary inhibit commas and percents in formated values

Modified: p5ee/trunk/App-Widget/lib/App/Widget/Graph.pm
==============================================================================
--- p5ee/trunk/App-Widget/lib/App/Widget/Graph.pm       (original)
+++ p5ee/trunk/App-Widget/lib/App/Widget/Graph.pm       Tue Nov 30 11:47:34 2010
@@ -237,13 +237,12 @@
 
                 if ($format && $format =~ /%/) {
                     if ($yn_val ne "") {
-                        $yn_val = App::Widget->format($yn_val, 
$column_defs->{$column});
-                        $yn_val =~ s/%//;
+                        $yn_val = App::Widget->format($yn_val, 
$column_defs->{$column}, undef, {inhibit_pct => 1});
                     }
                 }
                 elsif ($format && $format =~ /\s+\((?:\/)?\d+\)/) {
                     if ($yn_val ne "") {
-                        $yn_val = App::Widget->format($yn_val, 
$column_defs->{$column});
+                        $yn_val = App::Widget->format($yn_val, 
$column_defs->{$column}, undef, {inhibit_comma => 1});
                     }
                 }
 
@@ -391,13 +390,12 @@
 
             if ($format && $format =~ /%/) {
                 if ($yn_val ne "") {
-                    $yn_val = App::Widget->format($yn_val, 
$column_defs->{$column});
-                    $yn_val =~ s/%//;
+                    $yn_val = App::Widget->format($yn_val, 
$column_defs->{$column}, undef, {inhibit_pct => 1});
                 }
             }
             elsif ($format && $format =~ /\s+\((?:\/)?\d+\)/) {
                 if ($yn_val ne "") {
-                    $yn_val = App::Widget->format($yn_val, 
$column_defs->{$column});
+                    $yn_val = App::Widget->format($yn_val, 
$column_defs->{$column}, undef, {inhibit_comma => 1});
                 }
             }