41 |
|
|
42 |
$c->stash->{template_filename} = $template_filename; |
$c->stash->{template_filename} = $template_filename; |
43 |
|
|
44 |
# get databases from config |
$c->stash->{databases} = $c->comp('Model::Databases')->list_inputs; |
|
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} || next; |
|
|
$inputs = [ $inputs ] if (ref($inputs) ne 'ARRAY'); |
|
|
|
|
|
foreach my $i ( @{ $inputs } ) { |
|
|
my $el = { |
|
|
input => $i->{name}, |
|
|
name => $d->{name} || $d, |
|
|
prefix => $db . '/' . $i->{name}, |
|
|
}; |
|
|
push @databases, $el; |
|
|
} |
|
|
} |
|
|
} |
|
|
|
|
|
$c->stash->{databases} = \@databases; |
|
45 |
|
|
46 |
$c->stash->{template} = 'editor.tt'; |
$c->stash->{template} = 'editor.tt'; |
47 |
} |
} |