Fixed interwiki bug

[lhc/web/wiklou.git] / includes / SpecialCategories.php

diff --git a/includes/SpecialCategories.php b/includes/SpecialCategories.php
index 1a3efca..977484b 100644 (file)
--- a/includes/SpecialCategories.php
+++ b/includes/SpecialCategories.php
@@ -1,45 +1,66 @@
 <?php
+/**
+ *
+ * @package MediaWiki
+ * @subpackage SpecialPage
+ */
 
-function wfSpecialCategories()
-{
-       global $wgUser, $wgOut , $wgLang;
-
-       $sk = $wgUser->getSkin() ;
-       $sc = "Special:Categories" ;
-
-       # List all existant categories.
-       # Note: this list could become *very large*
-       $r = "<ol>\n" ;
-       $sql = "SELECT cur_title FROM cur WHERE cur_namespace=".Namespace::getCategory() ;
-       $res = wfQuery ( $sql, DB_READ ) ;
-       while ( $x = wfFetchObject ( $res ) ) {
-               $title =& Title::makeTitle( NS_CATEGORY, $x->cur_title );
-           $r .= "<li>" ;
-           $r .= $sk->makeKnownLinkObj ( $title, $title->getText() ) ;
-           $r .= "</li>\n" ;
-         }
-       wfFreeResult ( $res ) ;
-       $r .= "</ol>\n" ;
-
-       $r .= "<hr />\n" ;
+/**
+ *
+ */
+require_once("QueryPage.php");
+
+/**
+ *
+ * @package MediaWiki
+ * @subpackage SpecialPage
+ */
+class CategoriesPage extends QueryPage {
+
+       function getName() {
+               return "Categories";
+       }
+
+       function isExpensive() {
+               return false;
+       }
+
+       function isSyndicated() { return false; }
+
+       function getPageHeader() {
+               return '<p>'.wfMsg('categoriespagetext')."</p><br />\n";
+       }
+       function getSQL() {
+               $NScat = NS_CATEGORY;
+               $dbr =& wfGetDB( DB_SLAVE );
+               $categorylinks = $dbr->tableName( 'categorylinks' );
+               return "SELECT DISTINCT 'Categories' as type, 
+                               {$NScat} as namespace,
+                               cl_to as title,
+                               1 as value
+                          FROM $categorylinks";
+       }
        
-       # Links to category pages that haven't been created.
-       # FIXME: This could be slow if there are a lot, but the title index should
-       # make it reasonably snappy since we're using an index.
-       $cat = wfStrencode( $wgLang->getNsText( NS_CATEGORY ) );
-       $sql = "SELECT DISTINCT bl_to FROM brokenlinks WHERE bl_to LIKE \"{$cat}:%\"" ;
-       $res = wfQuery ( $sql, DB_READ ) ;
-       $r .= "<ol>\n" ;
-       while ( $x = wfFetchObject ( $res ) ) {
-               $title = Title::newFromDBkey( $x->bl_to );
-           $r .= "<li>" ;
-           $r .= $sk->makeBrokenLinkObj( $title, $title->getText() ) ;
-           $r .= "</li>\n" ;
-         }
-       wfFreeResult ( $res ) ;
-       $r .= "</ol>\n" ;
-
-       $wgOut->addHTML ( $r ) ;
+       function sortDescending() {
+               return false;
+       }
+
+       function formatResult( $skin, $result ) {
+               global $wgLang;
+               $title = Title::makeTitle( NS_CATEGORY, $result->title );
+               return $skin->makeLinkObj( $title, $title->getText() );
+       }
+}
+
+/**
+ *
+ */
+function wfSpecialCategories() {
+       list( $limit, $offset ) = wfCheckLimits();
+
+       $cap = new CategoriesPage();
+
+       return $cap->doQuery( $offset, $limit );
 }
 
 ?>