Author: richter Date: Mon Feb 2 07:43:01 2015 New Revision: 1656396 URL: http://svn.apache.org/r1656396 Log: Allow to change url of selectdyn control
Modified: perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm perl/embperl/trunk/Embperl/Form/ControlMultValue.pm perl/embperl/trunk/Embperl/Form/DataSource.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=1656396&r1=1656395&r2=1656396&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm Mon Feb 2 07:43:01 2015 @@ -134,6 +134,8 @@ 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) ; + + ($self -> {url_from}, $self -> {url_to}) = $datasource -> get_url_modifier ($req, $self) ; } } @@ -160,6 +162,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 -> {url_from} $]_ef_url_from="[+ $self -> {url_from} +]" [$endif$] +[$if $self -> {url_to} $]_ef_url_to="[+ $self -> {url_to} +]" [$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$] Modified: perl/embperl/trunk/Embperl/Form/ControlMultValue.pm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/ControlMultValue.pm?rev=1656396&r1=1656395&r2=1656396&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/ControlMultValue.pm (original) +++ perl/embperl/trunk/Embperl/Form/ControlMultValue.pm Mon Feb 2 07:43:01 2015 @@ -39,6 +39,7 @@ sub init { my $name = $self -> {datasrc} ; $name =~ s/[#\/].+$// ; + $name =~ s/^.+?\.// ; my $form = $self -> form ; my $packages = $form -> get_datasrc_packages ; $self -> {datasrcobj} = $form -> new_object ($packages, $name, $self, { datarsc => $self -> {datasrc}}) ; Modified: perl/embperl/trunk/Embperl/Form/DataSource.pm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/DataSource.pm?rev=1656396&r1=1656395&r2=1656396&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/DataSource.pm (original) +++ perl/embperl/trunk/Embperl/Form/DataSource.pm Mon Feb 2 07:43:01 2015 @@ -75,6 +75,45 @@ sub constrain_attrs # --------------------------------------------------------------------------- # +# get_constrain_value - returns the constrain value that is need for a +# search or undef if there is no constrain +# +# in $req request data +# $ctrl control that will display the value +# ret $constrain contrain value if any +# $without_contrain true if also values that have no contrain value +# are part of the resultset +# + +sub get_constrain_value + + { + my ($self, $req, $ctrl) = @_ ; + + return ; + } + + +# --------------------------------------------------------------------------- +# +# get_url_modifier - returns modifier for url for requesting datasrc values (selectdyn) +# +# in $req request data +# $ctrl control that will display the value +# ret $search +# $replace +# + +sub get_url_modifier + + { + my ($self, $req, $ctrl) = @_ ; + + return ; + } + +# --------------------------------------------------------------------------- +# # sorttype - returns information how to sort this datasource values for displaying # --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org