Mailing List Archive

Author: richter
Date: Sun Jan 5 13:52:55 2014
New Revision: 1555505

URL: http://svn.apache.org/r1555505
Log:
Embperl::Forms attachments

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=1555505&r1=1555504&r2=1555505&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/attachment.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/attachment.pm Sun Jan 5 13:52:55 2014
@@ -37,7 +37,7 @@ __EMBPERL__
# show_control - output the control
#]

-[.$ sub show_control ($self)
+[.$ sub show_control ($self, $req)

my $name = $self->{name};
my $form = $self -> form ;
@@ -52,4 +52,24 @@ $]
<input type="file" multiple style="display: none">&nbsp;
<span class="ef-attachment-info"></span>
</div>
-__END__
+[$ endsub $]
+
+[# ---------------------------------------------------------------------------
+#
+# show_control - output the control
+#]
+
+[.$ sub show_control_readonly ($self, $req)
+
+my $name = $self->{name};
+my $form = $self -> form ;
+my $showoptions = $self -> {showoptions} ;
+my $state = $self -> {state} ;
+
+$]
+<div class="[+ $state +]" [.+ 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;
+ <input type="file" multiple style="display: none">&nbsp;
+ <span class="ef-attachment-info"></span>
+</div>
+[$ endsub $]



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