X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=vhost%2Fwebpac2.cgi;h=f0f82154c1102cf708858257977bf7a52e72d1f2;hb=2ceba5270fd538ac0279ab3868dc73c8b59f9ef0;hp=3825fe227c5fa690a312262772e4ea9bdccff18a;hpb=91fc3eea6fe1625d47fb126d6199baa169f8e70b;p=webpac2

diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi
index 3825fe2..f0f8215 100755
--- a/vhost/webpac2.cgi
+++ b/vhost/webpac2.cgi
@@ -12,7 +12,8 @@ use Search::Estraier;
 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};
@@ -51,7 +52,7 @@ print	end_form;
 
 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,
@@ -64,9 +65,13 @@ if ( my $search = param('search') ) {
 
 	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>|;
@@ -74,12 +79,12 @@ if ( my $search = param('search') ) {
 				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;