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

[richter]

Author: richter
Date: Sun Feb  2 09:24:12 2014
New Revision: 1563585

URL: http://svn.apache.org/r1563585
Log:
Css Class info Control

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

Modified: perl/embperl/trunk/Embperl/Form/Control/info.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/info.pm?rev=1563585&r1=1563584&r2=1563585&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/info.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/info.pm Sun Feb  2 09:24:12 2014
@@ -38,7 +38,7 @@ my $state   = $self -> {state} ;
 $state =~ s/[^-a-zA-Z0-9_]/_/g ;
 $]<table class="ef-element ef-element-width-[+ $self -> {width_percent} +][+ ' 
'+][+ $state +]">
   <tr>
-<td [+ do { local $escmode = 0 ; $self -> get_std_control_attr($req, '', 
'readonly') } +] >[$ if $self -> {image} $]<img class="cControlButtonSymbol" 
src="[+ $self -> {image} +]">[$endif$][+ $self -> 
{showtext}?($self->{text}):$self -> form -> convert_text ($self, undef, undef, 
$req) +]&nbsp;</td>
+<td [+ do { local $escmode = 0 ; $self -> get_std_control_attr($req, undef, 
'readonly', 'ef-control-info') } +] >[$ if $self -> {image} $]<img 
class="cControlButtonSymbol" src="[+ $self -> {image} +]">[$endif$][+ $self -> 
{showtext}?($self->{text}):$self -> form -> convert_text ($self, undef, undef, 
$req) +]&nbsp;</td>
 </tr>
   </table>[$endsub$]
 



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