web commit by http://jeremie.koenig.myopenid.com/: precision

[ikiwiki.git] / doc / bugs / pagestats_plugin_broken.mdwn

diff --git a/doc/bugs/pagestats_plugin_broken.mdwn b/doc/bugs/pagestats_plugin_broken.mdwn
index 0db501f47c3f8c491fcf54a0ebddab04998206a0..0ae74b4eeae16b64fe7564d2cfbe56535824f79f 100644 (file)
--- 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...
 
 
 return allways 2, which seems to me "obvious", because the backlinks() function is returning two array of links...
 

-Did I forget something ?
+Patch is :

 
 

---[[users/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]]