--- trunk/vhost/webpac2.cgi	2009/04/21 23:17:19	1133
+++ trunk/vhost/webpac2.cgi	2009/04/21 23:17:21	1135
@@ -12,7 +12,8 @@
 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 @@
 
 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 ( ! $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 @@
 				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;