93 |
undef $html_markup; |
undef $html_markup; |
94 |
} |
} |
95 |
|
|
96 |
my $estraier = YAML::LoadFile( "$dir/../var/estraier/$database.yaml" ); |
my $stats; |
97 |
|
{ |
98 |
|
my $path = "$dir/../var/swish/$database.yaml"; |
99 |
|
$stats = YAML::LoadFile( $path ); |
100 |
|
dump_yaml( "stats $path", $stats ); |
101 |
|
} |
102 |
|
|
103 |
my $db = $config->{databases}->{$database}; |
my $db = $config->{databases}->{$database}; |
104 |
|
|
105 |
my @attr = keys %{ $estraier->{attr} }; # FIXME replace with real gnerated lookup |
my @attr = keys %{ $stats->{attr} }; # FIXME replace with real gnerated lookup |
106 |
|
|
107 |
# XXX pipe delimit list! |
# XXX pipe delimit list! |
108 |
my $select_attr_operators = << '__ATTR_OPERATORS__'; |
my $select_attr_operators = << '__ATTR_OPERATORS__'; |
163 |
|
|
164 |
; |
; |
165 |
|
|
|
dump_yaml( 'inputs', $db->{input} ); |
|
|
dump_yaml( 'input names', map { $_->{name} } @{ $db->{input} } ); |
|
|
|
|
166 |
print end_form; |
print end_form; |
167 |
|
|
168 |
if ( my $search = param('search') ) { |
if ( my $search = param('search') ) { |
262 |
|
|
263 |
} |
} |
264 |
|
|
265 |
dump_yaml( 'db', $db ); |
dump_yaml( "config databases $database", $db ); |
266 |
dump_yaml( 'html_markup_skip', $html_markup_skip ); |
dump_yaml( 'html_markup_skip', $html_markup_skip ); |
267 |
|
|
268 |
print end_html; |
print end_html; |