+ my $database = uc $this->{DATABASES}->[0];
+ my $module = $databases->{$database};
+ if ( ! defined $module ) {
+ $this->{ERR_CODE} = 108;
+ warn $this->{ERR_STR} = "unknown database $database - available: " . keys %$databases;
+ return;
+ }
+
+ my $from = $module->new( $database );
+
+diag "using $module for $database ", Dumper( $from );
+
+ eval { $query = $rpn->{query}->render( $from->usemap ); };
+ warn "ERROR: $@" if $@;