Author: richter Date: Sun Jan 10 14:49:03 2016 New Revision: 1723933 URL: http://svn.apache.org/viewvc?rev=1723933&view=rev Log: Add support for replacing the databasename in the url
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=1723933&r1=1723932&r2=1723933&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm Sun Jan 10 14:49:03 2016 @@ -146,6 +146,7 @@ if ($datasrc) $datasrc .= $self -> add_query_param ($req, $datasource) ; ($self -> {url_from}, $self -> {url_to}) = $datasource -> get_url_modifier ($req, $self) ; + $self -> {dbname} = $datasource -> get_dbname ($req, $self) ; } } @@ -174,6 +175,7 @@ type="text" _ef_attach="ef_selectdyn" [$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 $self -> {dbname} $][+ '_ef_dbname' +]="[+ $self -> {dbname} +]" [$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=1723933&r1=1723932&r2=1723933&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/ControlMultValue.pm (original) +++ perl/embperl/trunk/Embperl/Form/ControlMultValue.pm Sun Jan 10 14:49:03 2016 @@ -222,6 +222,25 @@ sub get_id_from_value # --------------------------------------------------------------------------- # +# get_dbname - returns dbname to pass to control (selectdyn) +# +# in $req request data +# ret $dbname if any +# + +sub get_dbname + + { + my ($self, $req, $ctrl) = @_ ; + + return if (!$self -> {datasrcobj}) ; + + return $self -> {datasrcobj} -> get_dbname ($req, $self) ; + } + + +# --------------------------------------------------------------------------- +# # get_option_form_value - returns the option for a given value # # in $value value Modified: perl/embperl/trunk/Embperl/Form/DataSource.pm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/DataSource.pm?rev=1723933&r1=1723932&r2=1723933&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/DataSource.pm (original) +++ perl/embperl/trunk/Embperl/Form/DataSource.pm Sun Jan 10 14:49:03 2016 @@ -112,6 +112,23 @@ sub get_url_modifier return ; } +# --------------------------------------------------------------------------- +# +# get_dbname - returns dbname to pass to control (selectdyn) +# +# in $req request data +# $ctrl control that will display the value +# ret $dbname if any +# + +sub get_dbname + + { + 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