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-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
