Mailing List Archive

svn commit: r1723933 - in /perl/embperl/trunk/Embperl/Form: Control/selectdyn.pm ControlMultValue.pm DataSource.pm
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-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org