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

[richter]

Author: richter
Date: Fri Jul 18 08:23:01 2014
New Revision: 1611553

URL: http://svn.apache.org/r1611553
Log:
Option for Down/up/del Link disable

Modified:
    perl/embperl/trunk/Embperl/Form/Control/attachment.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=1611553&r1=1611552&r2=1611553&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/attachment.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/attachment.pm Fri Jul 18 08:23:01 
2014
@@ -80,9 +80,9 @@ 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 +]">
-    <a class="ef-attachment-download" href="#">Download</a>&nbsp;  
-    <a class="ef-attachment-upload" href="#">Upload</a>&nbsp;  
-    <a class="ef-attachment-delete" href="#">L&ouml;schen</a>&nbsp;  
+    [$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$]
     <input type="file" multiple style="display: none" name=[+ $name +]>&nbsp;
     <div _ef_divname="[+ $name +]" class="ef-attachment-info"></div>
 </div>
@@ -99,7 +99,7 @@ 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 +]">
-    <a class="ef-attachment-download" href="#">Download</a>&nbsp;  
+    [$if !$self -> {no_download} $]<a class="ef-attachment-download" 
href="#">Download</a>&nbsp;[$endif$]
     <input type="file" multiple style="display: none" name=[+ $name +]>&nbsp;
     <div _ef_divname="[+ $name +]" class="ef-attachment-info"></div>
 </div>



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