+ <h2>Statistics for <% $stats->{conn}->option("host") %></h2>
+ <h3><% $stats->{n} %> targets analysed
+ <% defined $query ? "for '" . xml_encode($query) . "'" : "" %></h3>
+% if ($from_cache) {
+ <p>Reusing cached result</p>
+% } else {
+ <p>Recalculating stats</p>
+% }
+
+ <h3>Top 10 Bib-1 Attributes</h3>
+ <table border="1">
+ <tr>
+ <th>Attribute</th>
+ <th>Name</th>
+ <th># Db</th>
+ </tr>
+<%perl>
+my $hr;
+$hr = $stats->{bib1AccessPoints};
+foreach my $key ((sort { $hr->{$b} <=> $hr->{$a}
+ || $a <=> $b } keys %$hr)[0..9]) {
+</%perl>
+ <tr>
+ <td><% xml_encode($key) %></td>
+ <td><i>unknown</i></td>
+ <td><% xml_encode($hr->{$key}) . " (" .
+ 100*$hr->{$key}/$stats->{n} . "%)" %></td>
+ </tr>
+% }
+</table>
+
+<%doc>
+ print "\nRECORD SYNTAXES\n";
+ $hr = $stats->{recordSyntaxes};
+ foreach my $key (sort { $hr->{$b} <=> $hr->{$a}
+ || $a cmp $b } keys %$hr) {
+ print sprintf("%-26s%5d (%d%%)\n",
+ $key, $hr->{$key}, 100*$hr->{$key}/$stats->{n});
+ }
+
+ print "\nEXPLAIN SUPPORT\n";
+ $hr = $stats->{explain};
+ foreach my $key (sort { $hr->{$b} <=> $hr->{$a}
+ || $a cmp $b } keys %$hr) {
+ print sprintf("%-26s%5d (%d%%)\n",
+ $key, $hr->{$key}, 100*$hr->{$key}/$stats->{n});
+ }
+
+ print "\nTOP-LEVEL DOMAINS\n";
+ $hr = $stats->{domains};
+ foreach my $key (sort { $hr->{$b} <=> $hr->{$a}
+ || $a cmp $b } keys %$hr) {
+ print sprintf("%-26s%5d (%d%%)\n",
+ $key, $hr->{$key}, 100*$hr->{$key}/$stats->{n});
+ }
+</%doc>