web commit by hb
authorjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Sat, 12 May 2007 14:49:49 +0000 (14:49 +0000)
committerjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Sat, 12 May 2007 14:49:49 +0000 (14:49 +0000)
doc/bugs/pagestats_plugin_broken.mdwn

index 0db501f47c3f8c491fcf54a0ebddab04998206a0..cad68fa06c7782b13d197af8301c5182d836f096 100644 (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...
 
 
 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