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});
}
}
-
[svn:p5ee] r14558 - p5ee/trunk/App-Widget/lib/App/Widget
by spadkins