diff options
| author | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2007-05-12 14:49:49 +0000 |
|---|---|---|
| committer | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2007-05-12 14:49:49 +0000 |
| commit | 1fa80e15a164f3b2e2cdd88cdcee697d62b2891e (patch) | |
| tree | f1da4064f263cb5024441b6bb750a1c6c4fe78e9 /doc/bugs | |
| parent | 7fc3a41cfde7328d26145ff7127782fc03c62d91 (diff) | |
web commit by hb
Diffstat (limited to 'doc/bugs')
| -rw-r--r-- | doc/bugs/pagestats_plugin_broken.mdwn | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/doc/bugs/pagestats_plugin_broken.mdwn b/doc/bugs/pagestats_plugin_broken.mdwn index 0db501f47..cad68fa06 100644 --- a/doc/bugs/pagestats_plugin_broken.mdwn +++ b/doc/bugs/pagestats_plugin_broken.mdwn @@ -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]]
\ No newline at end of file |