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> - <a class="ef-attachment-upload" href="#">Upload</a> - <a class="ef-attachment-delete" href="#">Löschen</a> + [$if !$self -> {no_download} $]<a class="ef-attachment-download" href="#">Download</a> [$endif$] + [$if !$self -> {no_upload} $]<a class="ef-attachment-upload" href="#">Upload</a> [$endif$] + [$if !$self -> {no_delete} $]<a class="ef-attachment-delete" href="#">Löschen</a> [$endif$] <input type="file" multiple style="display: none" name=[+ $name +]> <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> + [$if !$self -> {no_download} $]<a class="ef-attachment-download" href="#">Download</a> [$endif$] <input type="file" multiple style="display: none" name=[+ $name +]> <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