41 |
|
|
42 |
$c->stash->{template_filename} = $template_filename; |
$c->stash->{template_filename} = $template_filename; |
43 |
|
|
44 |
$c->stash->{databases} = $c->config->{databases} or |
# get databases from config |
45 |
|
my @databases; |
46 |
|
my $config_dbs = $c->config->{databases}; |
47 |
|
|
48 |
|
if (! $config_dbs) { |
49 |
$c->log->fail("didn't find databases in config"); |
$c->log->fail("didn't find databases in config"); |
50 |
|
} else { |
51 |
|
# convert to resonable format for TT |
52 |
|
foreach my $db (keys %{ $config_dbs }) { |
53 |
|
my $d = $config_dbs->{$db} || die; |
54 |
|
my $inputs = $d->{input}; |
55 |
|
$c->log->debug("inputs [1]: ", Dumper($inputs)); |
56 |
|
$inputs = [ $inputs ] if (ref($inputs) ne 'ARRAY'); |
57 |
|
$c->log->debug("inputs [2]: ", Dumper($inputs)); |
58 |
|
|
59 |
|
foreach my $i ( @{ $inputs } ) { |
60 |
|
my $el = { |
61 |
|
input => $i->{name}, |
62 |
|
name => $d->{name} || $d, |
63 |
|
prefix => $db . '/' . $i->{name}, |
64 |
|
}; |
65 |
|
push @databases, $el; |
66 |
|
} |
67 |
|
} |
68 |
|
} |
69 |
|
|
70 |
|
$c->stash->{databases} = \@databases; |
71 |
|
|
72 |
$c->stash->{template} = 'editor.tt'; |
$c->stash->{template} = 'editor.tt'; |
73 |
} |
} |