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