web commit by hb

master
joey 2007-05-12 14:49:49 +00:00
parent 7fc3a41cfd
commit 1fa80e15a1
1 changed files with 15 additions and 1 deletions

View File

@ -8,6 +8,20 @@ My perl knowledge is very limited, but the call :
return allways 2, which seems to me "obvious", because the backlinks() function is returning two array of links...
Did I forget something ?
Patch is :
--- /usr/share/perl5/IkiWiki/Plugin/pagestats.pm 2007-04-27 04:33:43.000000000 +0200
+++ ./pagestats.pm 2007-05-12 16:47:14.000000000 +0200
@@ -36,7 +36,7 @@
if (pagespec_match($page, $params{pages}, location => $params{page})) {
use IkiWiki::Render;
my @bl = IkiWiki::backlinks($page);
- $counts{$page} = scalar(@bl);
+ $counts{$page} = scalar(@{$bl[0]})+scalar(@{$bl[1]});
$max = $counts{$page} if $counts{$page} > $max;
}
}
--[[users/hb]]