projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bcbd0db
)
20 rows of Implementation IDs.
author
Mike Taylor
<mike@indexdata.com>
Fri, 2 Nov 2007 12:49:28 +0000
(12:49 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Fri, 2 Nov 2007 12:49:28 +0000
(12:49 +0000)
web/htdocs/details/stats.mc
patch
|
blob
|
history
diff --git
a/web/htdocs/details/stats.mc
b/web/htdocs/details/stats.mc
index
10ab325
..
31a4fe5
100644
(file)
--- a/
web/htdocs/details/stats.mc
+++ b/
web/htdocs/details/stats.mc
@@
-1,4
+1,4
@@
-%# $Id: stats.mc,v 1.8 2007-10-31 16:45:20 mike Exp $
+%# $Id: stats.mc,v 1.9 2007-11-02 12:49:28 mike Exp $
<%doc>
Here are the headings in the Z-Spy version:
The ten most commonly supported Bib-1 Use attributes
<%doc>
Here are the headings in the Z-Spy version:
The ten most commonly supported Bib-1 Use attributes
@@
-57,7
+57,7
@@
if (!defined $stats || $reload) {
headings => [ "Top Domain"] &>
<& table, stats => $stats, data => "implementation",
title => "Implementation",
headings => [ "Top Domain"] &>
<& table, stats => $stats, data => "implementation",
title => "Implementation",
- headings => [ "Name" ] &>
+ headings => [ "Name" ], maxrows => 20 &>
%#
%#
<%def table>
%#
%#
<%def table>
@@
-65,6
+65,7
@@
if (!defined $stats || $reload) {
$stats
$data
$title
$stats
$data
$title
+$maxrows => 10
@headings
$col3 => undef
</%args>
@headings
$col3 => undef
</%args>
@@
-82,7
+83,7
@@
$col3 => undef
my $hr;
$hr = $stats->{$data};
my @sorted = sort { $hr->{$b} <=> $hr->{$a} || $a <=> $b } keys %$hr;
my $hr;
$hr = $stats->{$data};
my @sorted = sort { $hr->{$b} <=> $hr->{$a} || $a <=> $b } keys %$hr;
-my $n = @sorted; $n = 10 if @sorted > 10;
+my $n = @sorted; $n = $maxrows if @sorted > 10;
foreach my $i (1..$n) {
my $key = $sorted[$i-1];
</%perl>
foreach my $i (1..$n) {
my $key = $sorted[$i-1];
</%perl>