svn commit: r1760886 - in /perl/embperl/trunk/Embperl/Form/Control: attachment.pm icon.pm

[richter]

Author: richter
Date: Thu Sep 15 07:41:51 2016
New Revision: 1760886

URL: http://svn.apache.org/viewvc?rev=1760886&view=rev
Log:
Enhancements form controls

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

Modified: perl/embperl/trunk/Embperl/Form/Control/attachment.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/attachment.pm?rev=1760886&r1=1760885&r2=1760886&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/attachment.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/attachment.pm Thu Sep 15 07:41:51 
2016
@@ -120,7 +120,6 @@ my $name     = $self -> {name};
 $]
 <div [+ do { local $escmode = 0 ; $self -> get_std_control_attr($req) } +] 
_ef_attach="ef_attachment" _ef_dynid="<_id>"  _ef_attr="[+ $name +]" 
_ef_always_download="[+ $self -> {always_download} +]" 
_ef_download_url_append="[+ $self -> {download_url_append} +]">
     [$if !$self -> {no_show} $]<a class="ef-attachment-show" 
href="#">Anzeigen</a>&nbsp;[$endif$]
-    [$if !$self -> {no_show} $]<a class="ef-attachment-show" 
href="#">Anzeigen</a>&nbsp;[$endif$]
     [$if !$self -> {no_download} $]<a class="ef-attachment-download" 
href="#">Download</a>&nbsp;[$endif$]
     [$if !$self -> {no_upload} $]<a class="ef-attachment-upload" 
href="#">Upload</a>&nbsp;[$endif$]
     [$if !$self -> {no_delete} $]<a class="ef-attachment-delete" 
href="#">L&ouml;schen</a>&nbsp;[$endif$]

Modified: perl/embperl/trunk/Embperl/Form/Control/icon.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/icon.pm?rev=1760886&r1=1760885&r2=1760886&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/icon.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/icon.pm Thu Sep 15 07:41:51 2016
@@ -37,7 +37,7 @@ my $span = ($self->{width_percent});
 my $section = $self->{section};
 my $class   = $self -> {class} ;
 my $state   = $self -> {state} ;
-$]<table class="ef-element ef-element-width-[+ $self -> {width_percent} +] 
ef-element-[+ $self -> {type} +]  [+ $state +]">
+$]<table class="ef-element ef-element-width-[+ $self -> {width_percent} +] 
ef-element-[+ $self -> {type} +] [+ ' ' . $state +]">
   <tr>
     <td class="ef-control-box">
       <div [+ do { local $escmode = 0 ; $self -> get_std_control_attr($req) } 
+]>



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