X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/ffae58a97865d24796826f4b4ff9da82aef93116..844e3a549a1b9b96b4424af90dacd82ec18a8fa4:/doc/bugs/pagestats_plugin_broken.mdwn

diff --git a/doc/bugs/pagestats_plugin_broken.mdwn b/doc/bugs/pagestats_plugin_broken.mdwn
index 12eb1a50e..0ae74b4ee 100644
--- a/doc/bugs/pagestats_plugin_broken.mdwn
+++ b/doc/bugs/pagestats_plugin_broken.mdwn
@@ -8,6 +8,22 @@ 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 :
 
---[hb]
\ No newline at end of file
+    --- /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]]
+
+thanks, [[done]] --[[Joey]]