print header;
sub dump_yaml {
- print qq|<pre>|, YAML::Dump( @_ ), qq|</pre>|;
+ my $name = shift;
+ print qq|<pre># $name\n|, YAML::Dump( @_ ), qq|</pre>|;
}
my $path = $ENV{PATH_INFO};
if ( my $search = param('search') ) {
- print qq|<div id="results">search: $search|;
+ print qq|<div id="results">|;
my $node = Search::Estraier::Node->new(
url => $config->{hyperestraier}->{masterurl} . '/node/' . $database,
if ( ! $nres ) {
my $no_results = "No results for search '%s'";
- printf qq|<div class="error">$no_results</a>|, $search;
+ printf qq|<div class="error">$no_results</div>|, $search;
} else {
- print qq|<ul>|;
+ my $results = "Got %d results for search '%s'";
+ printf qq|<div class="message">$results</div>|, $nres->hits, $search;
+
+ print qq|<ol>|;
+
foreach my $i ( 1 .. $nres->doc_num ) {
my $rdoc = $nres->get_doc( $i - 1 );
print qq|<li>|;
foreach @attr;
print qq|</li>\n|;
}
- print qq|</ul>|;
+ print qq|</ol>|;
}
print qq|</div>|;
}
-dump_yaml( $estraier );
-dump_yaml( $db );
+dump_yaml( 'estraier', $estraier );
+dump_yaml( 'db', $db );
print end_html;