includes/SpecialCategories.php

   1 <?
   2
   3 function wfSpecialCategories()
   4 {
   5         global $wgUser, $wgOut , $wgLang ;
   6         global $article , $category ;
   7         $sk = $wgUser->getSkin() ;
   8         $sc = "Special:Categories" ;
   9         $r = "" ;
  10         $r .= "<OL>\n" ;
  11         $cat = ucfirst ( wfMsg ( "category" ) ) ;
  12         $sql = "SELECT cur_title FROM cur WHERE cur_title LIKE \"{$cat}:%\"" ;
  13         $res = wfQuery ( $sql, DB_READ ) ;
  14         while ( $x = wfFetchObject ( $res ) )
  15           {
  16             $t = explode ( ":" , $x->cur_title , 2 ) ;
  17             $t = $t[1] ;
  18             $r .= "<li>" ;
  19             $r .= $sk->makeKnownLink ( $x->cur_title , $t ) ;
  20             $r .= "</li>\n" ;
  21           }
  22         wfFreeResult ( $res ) ;
  23         $r .= "</OL>\n" ;
  24
  25         $r .= "<hr>\n" ;
  26         $sql = "SELECT DISTINCT bl_to FROM brokenlinks WHERE bl_to LIKE \"{$cat}:%\"" ;
  27         $res = wfQuery ( $sql, DB_READ ) ;
  28         $r .= "<OL>\n" ;
  29         while ( $x = wfFetchObject ( $res ) )
  30           {
  31             $t = explode ( ":" , $x->bl_to , 2 ) ;
  32             $t = $t[1] ;
  33             $r .= "<li>" ;
  34             $r .= $sk->makeBrokenLink ( $x->bl_to , $t ) ;
  35             $r .= "</li>\n" ;
  36           }
  37         wfFreeResult ( $res ) ;
  38         $r .= "</OL>\n" ;
  39
  40         $wgOut->addHTML ( $r ) ;
  41 }
  42
  43 ?>