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