Mailing List Archive

Author: richter
Date: Tue Apr 2 11:05:39 2013
New Revision: 1463481

URL: http://svn.apache.org/r1463481
Log:
dynlink

Modified:
perl/embperl/trunk/Embperl/Form/Control/dynlink.pm

Modified: perl/embperl/trunk/Embperl/Form/Control/dynlink.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/dynlink.pm?rev=1463481&r1=1463480&r2=1463481&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/dynlink.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/dynlink.pm Tue Apr 2 11:05:39 2013
@@ -55,13 +55,19 @@ $]
<div [.+ do { local $escmode = 0 ; $self -> get_std_control_attr($req) } +]>
[$ foreach $field (@$fields) $]
<a class="[+ $state +]" [.+ do { local $escmode = 0 ; $self -> {eventattrs} } +] _ef_attach="ef_dynlink"
- _dyntext="[+ $field -> {dyntext} +]"
+ _ef_text="[+ $field -> {dyntext} +]"
+ _ef_name="[+ $name +]"
+ _ef_linkname="[+ $field -> {name} +]"
[$if $field -> {target} $]target="[+ $field -> {target} +]" [$endif$]
- [$if $field -> {href} $]href="[.+ do { local $escmode = 0 ; $field -> {href} } +]" _hreforg="[.+ do { local $escmode = 0 ; $field -> {href} } +]" [$endif$]
+ [$if $field -> {href} $]href="[.+ do { local $escmode = 0 ; $field -> {href} } +]" _ef_xref="[.+ do { local $escmode = 0 ; $field -> {href} } +]" [$endif$]
+ [$if $field -> {click} $]_ef_click="[.+ do { local $escmode = 0 ; $field -> {click} } +]" [$if !$field -> {href} $]href="#"[$endif$][$endif$]
[.+ do { local $escmode = 0 ; $self -> {eventattrs} } +]>
- [$ if $showoptions < 0 $][.+ do { local $escmode = 0 ; $field -> {text} } +][$else$][.+ $showoptions?$field -> {text}:$form -> convert_text ($self, $field -> {name}) +][$endif$]
+ [$ if $showoptions < 0 $][.+ do { local $escmode = 0 ; $field -> {text} } +][$else$][.+ $showoptions?$field -> {text}:$form -> convert_text ($self, $field -> {name}) +][$endif$]
</a>&nbsp;
[$endforeach$]
+[$ if $self->{hidden} $]
+<input type="hidden" name="[+ $name +]">
+[$endif$]
</div>
__END__

@@ -114,13 +120,13 @@ Text to display for the link

=head4 dyntext

-Dynamic text to display for the link. Same replacements as for href take place.
+Dynamic text to display for the link. Same replacements as for href takes place.

=head4 href

Link destination

-<name> is replaced by with the content of the field inside the same form with name name.
+<name> is replaced by with the content of the field inside the same form with name <name>.
This is done when the link is clicked, so modifing the content of the input field,
will modify the link. The content is url escaped before it it inserted inside the link.

@@ -128,10 +134,33 @@ will modify the link. The content is url

Link target

-<name> is replaced by with the content of the field inside the same form with name name.
-This is done when the link is clicked, so modifing the content of the input field,
-will modify the link. The content is url escaped before it it inserted inside the link.
+=head4 click
+
+Javascript code that should be executed when the link is clicked. It get passed the three
+variables 'name', 'linkname' and 'formelement' which represents the name of the control,
+the name of the link and the dhtml form object.
+
+=head4 hidden
+
+Adds a hidden field
+
+=head4 showoptions
+
+=over
+
+=item -1
+
+Show unescaped text. Can be used to embbed HTML
+
+=item 0 (default)
+
+Translate text
+
+=item 1
+
+Show untranslated text

+=back

=head1 Author




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