develooper Front page | perl.cvs.p5ee | Postings from November 2010

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

From:
spadkins
Date:
November 30, 2010 11:47
Subject:
[svn:p5ee] r14558 - p5ee/trunk/App-Widget/lib/App/Widget
Message ID:
20101130194734.C4E35184AF5@xx12.develooper.com
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});
                 }
             }
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About