Mailing List Archive

Author: richter
Date: Mon Nov 10 07:05:24 2014
New Revision: 1637800

URL: http://svn.apache.org/r1637800
Log:
addtop & addbottom fuer selectdyn

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

Modified: perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm?rev=1637800&r1=1637799&r2=1637800&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm Mon Nov 10 07:05:24 2014
@@ -124,6 +124,20 @@ if ($datasrc)
my ($constrain, $without_constrain) = $datasource -> get_constrain_value ($req, $self) ;
$datasrc .= '&constrain=' . $epreq->Escape ($constrain,6) . '&without_constrain=' . ($without_constrain?1:0) if ($constrain) ;
}
+
+my $addtop = $self -> {addtop} ;
+my $addbottom = $self -> {addbottom} ;
+my $append = $self -> {datasrcurl_append} ;
+if ($addtop)
+ {
+ $append .= '&' if ($append) ;
+ $append .= '&addtop=' . $epreq->Escape ($req -> {json} -> encode($addtop), 6) ;
+ }
+if ($addbottom)
+ {
+ $append .= '&' if ($append) ;
+ $append .= '&addbottom=' . $epreq->Escape ($req -> {json} -> encode($addbottom), 6) ;
+ }

$]
<input name="_opt_[+ $name +]" [.+ do { local $escmode = 0 ; $self -> get_std_control_attr($req, undef, undef, 'ef-context-menu ' . ($self -> {no_button}?'':'ef-control-selectdyn-has-ctrl' )) } +]
@@ -133,8 +147,8 @@ type="text" _ef_attach="ef_selectdyn"
[$if $self -> {showurl_append} $]_ef_show_url_append="[+ $self -> {showurl_append} +]" [$endif$]
[$if $self -> {popupurl} $]_ef_popup_url="[+ $self -> {popupurl} +]" [$endif$]
[$if $self -> {datasrcurl} $]_ef_datasrc_url="[+ $self -> {datasrcurl} +]" [$endif$]
-[$if $self -> {datasrcurl_append} $]_ef_datasrc_url_append="[+ $self -> {datasrcurl_append} +]" [$endif$]
-[$if $self -> {datasrc} $]_ef_datasrc_nam="[+ $datasrc +]" [$endif$]
+[$if $append $]_ef_datasrc_url_append="[+ $append +]" [$endif$]
+[$if $datasrc $]_ef_datasrc_nam="[+ $datasrc +]" [$endif$]
[$if $self -> {datasrctermmax} $]_ef_datasrc_term_max="[+ $self -> {datasrctermmax} +]" [$endif$]
[$if $self -> {use_ajax} $]_ef_use_ajax="[+ $self -> {use_ajax} +]" [$endif$]
[$if $self -> {show_on_select} $]_ef_show_on_select="[+ $self -> {show_on_select}?'1':'' +]" [$endif$]



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