web commit by hb

diff --git a/doc/bugs/pagestats_plugin_broken.mdwn b/doc/bugs/pagestats_plugin_broken.mdwn
index 0db501f47c3f8c491fcf54a0ebddab04998206a0..cad68fa06c7782b13d197af8301c5182d836f096 100644 (file)
--- 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...
 
 
 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
 
 --[[users/hb]]
\ No newline at end of file