--- trunk/lib/Sack/Server.pm	2009/11/23 23:15:31	232
+++ trunk/lib/Sack/Server.pm	2009/11/23 23:52:53	233
@@ -191,7 +191,9 @@
 								my $shard = 0;
 								foreach my $path ( sort keys %{ $s->{$node} } ) {
 									my $affected = $s->{$node}->{$path};
-									$h .= qq|<span title="$affected $path">*</span>|;
+									my $n = '?';
+									$n = $1 if $path =~ m{/(\w)\w+/\d+};
+									$h .= qq|<tt title="$affected $path">$n</tt>|;
 									$shard += $affected;
 									$total += $affected;
 								}
@@ -228,8 +230,12 @@
 				}
 				print $send qq|</ul>|;
 
-				print $send '<pre>', dump($info), '</pre>' if $param->{debug};
-
+				if ( $param->{info} ) {
+					print $send qq|<a href="?info=0">hide info</a>|;
+					print $send '<pre>', dump($info), '</pre>'
+				} else {
+					print $send qq|<a href="?info=1">show info</a>|;
+				}
 				return 1;
 			} );
 		} else {