somewhat better design of results
git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1135
07558da8-63fa-0310-ba24-
9fe276d99e06
+#results ol li {
+ margin-bottom: 1em;
+}
+
pre {
border-top: 1px solid #888;
clear: left;
pre {
border-top: 1px solid #888;
clear: left;
.error {
background-color: #fcc;
.error {
background-color: #fcc;
+ color: 000;
+}
+
+.message {
+ background-color: #ffc;
+ color: #000;
+ padding: 0.5em;
+ margin: 0.5em;
print header;
sub dump_yaml {
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};
}
my $path = $ENV{PATH_INFO};
if ( my $search = param('search') ) {
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,
my $node = Search::Estraier::Node->new(
url => $config->{hyperestraier}->{masterurl} . '/node/' . $database,
if ( ! $nres ) {
my $no_results = "No results for search '%s'";
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;
+ 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 my $i ( 1 .. $nres->doc_num ) {
my $rdoc = $nres->get_doc( $i - 1 );
print qq|<li>|;
foreach @attr;
print qq|</li>\n|;
}
foreach @attr;
print qq|</li>\n|;
}
-dump_yaml( $estraier );
-dump_yaml( $db );
+dump_yaml( 'estraier', $estraier );
+dump_yaml( 'db', $db );