Mailing List Archive

Author: richter
Date: Mon Dec 30 15:23:19 2013
New Revision: 1554257

URL: http://svn.apache.org/r1554257
Log:
use lowercase units for lookup

Modified:
perl/embperl/trunk/Embperl/Form/Control/number.pm

Modified: perl/embperl/trunk/Embperl/Form/Control/number.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/number.pm?rev=1554257&r1=1554256&r2=1554257&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/number.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/number.pm Mon Dec 30 15:23:19 2013
@@ -42,7 +42,7 @@ sub show_control_readonly
my ($self, $req, $value) = @_ ;

my $unit = $self->{unit} ;
- my $unittext = !$unit?'':$self -> form -> convert_text ($self, ($unit =~ /:/)?$unit:"unit:$unit", $unit, $req) ;
+ my $unittext = !$unit?'':$self -> form -> convert_text ($self, ($unit =~ /:/)?$unit:'unit:' . lc($unit), $unit, $req) ;
$unittext =~ s/^unit:// ;
$value = $self -> {value} || $Embperl::fdat{$self -> {name}} if (!defined($value)) ;
$value .= $unittext if ($unit && $value ne '') ;
@@ -77,7 +77,7 @@ __EMBPERL__
$self->{size} ||= 10 ;

my $unit = $self->{unit} ;
- my $unittext = !$unit?'':$self -> form -> convert_text ($self, ($unit =~ /:/)?$unit:"unit:$unit", $unit, $req) ;
+ my $unittext = !$unit?'':$self -> form -> convert_text ($self, ($unit =~ /:/)?$unit:'unit:' . lc($unit), $unit, $req) ;
$unittext =~ s/^unit:// ;
$]
[- $self -> SUPER::show_control ; -]



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org