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

[richter]

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