Author: richter
Date: Tue Nov 11 05:17:29 2014
New Revision: 1638027
URL: http://svn.apache.org/r1638027
Log:
Fix selectdyn with static constrains
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=1638027&r1=1638026&r2=1638027&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm Tue Nov 11 05:17:29
2014
@@ -108,6 +108,7 @@ if ($datasrc)
{
my %doctypes ;
my $datasource = $self -> {datasrcobj} ||= CouchDB::AppServ::DataSource ->
get_datasource ($datasrc) ;
+ $datasrc = $datasource -> datasource ;
if (!$self -> {no_new})
{
my $docclasses = $datasource -> get_doctypes_for_datasrc (undef,
['no_new', 'indirect']) ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
