Mailing List Archive

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