--- Webpacus/lib/Webpacus/Controller/Editor.pm 2005/12/14 23:11:59 249 +++ Webpacus/lib/Webpacus/Controller/Editor.pm 2005/12/15 02:03:25 250 @@ -41,8 +41,33 @@ $c->stash->{template_filename} = $template_filename; - $c->stash->{databases} = $c->config->{databases} or + # get databases from config + my @databases; + my $config_dbs = $c->config->{databases}; + + if (! $config_dbs) { $c->log->fail("didn't find databases in config"); + } else { + # convert to resonable format for TT + foreach my $db (keys %{ $config_dbs }) { + my $d = $config_dbs->{$db} || die; + my $inputs = $d->{input}; +$c->log->debug("inputs [1]: ", Dumper($inputs)); + $inputs = [ $inputs ] if (ref($inputs) ne 'ARRAY'); +$c->log->debug("inputs [2]: ", Dumper($inputs)); + + foreach my $i ( @{ $inputs } ) { + my $el = { + input => $i->{name}, + name => $d->{name} || $d, + prefix => $db . '/' . $i->{name}, + }; + push @databases, $el; + } + } + } + + $c->stash->{databases} = \@databases; $c->stash->{template} = 'editor.tt'; }