svn commit: r1617502 - /perl/embperl/trunk/Embperl/Form/Control.pm

[ri...@apache.org]

Author: richter
Date: Tue Aug 12 15:08:30 2014
New Revision: 1617502

URL: http://svn.apache.org/r1617502
Log:
Allow multiple states per control (space separated)

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

Modified: perl/embperl/trunk/Embperl/Form/Control.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control.pm?rev=1617502&r1=1617501&r2=1617502&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control.pm Tue Aug 12 15:08:30 2014
@@ -425,7 +425,7 @@ sub get_std_control_attr
     my $events  = $self -> {eventattrs} ;
     $type     ||= $self -> {type} ;
     my $state   = $self -> {state} ;
-    $state =~ s/[^-a-zA-Z0-9_]/_/g ;
+    $state =~ s/[^-a-zA-Z0-9_ ]/_/g ;
     
     my $attrs = qq{class="ef-control ef-control-width-$width ef-control-$type ef-control-$type-width-$width $addclass $class $state"  id="$ctrlid" $events} ;
     return wantarray?($attrs, $ctrlid, $name):$attrs ;
@@ -491,7 +491,7 @@ __EMBPERL__
 $fdat{$self -> {name}} = $self -> {default} if ($fdat{$self -> {name}} eq '' && exists ($self -> {default})) ;
 my $span = 0 ;
 my $state   = $self -> {state} ;
-$state =~ s/[^-a-zA-Z0-9_]/_/g ;
+$state =~ s/[^-a-zA-Z0-9_ ]/_/g ;
 
 $]<table class="ef-element ef-element-width-[+ $self -> {width_percent} +] ef-element-[+ $self -> {type} +] [+ $state +]">
   <tr>



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