Mailing List Archive

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