function wfSpecialCategories()
{
global $wgUser, $wgOut , $wgLang ;
global $article , $category ;
$sk = $wgUser->getSkin() ;
$sc = "Special:Categories" ;
$r = "" ;
$r .= "
\n" ;
$cat = ucfirst ( wfMsg ( "category" ) ) ;
$sql = "SELECT cur_title FROM cur WHERE cur_title LIKE \"{$cat}:%\"" ;
$res = wfQuery ( $sql, DB_READ ) ;
while ( $x = wfFetchObject ( $res ) )
{
$t = explode ( ":" , $x->cur_title , 2 ) ;
$t = $t[1] ;
$r .= "- " ;
$r .= $sk->makeKnownLink ( $x->cur_title , $t ) ;
$r .= "
\n" ;
}
wfFreeResult ( $res ) ;
$r .= "
\n" ;
$r .= "
\n" ;
$sql = "SELECT DISTINCT bl_to FROM brokenlinks WHERE bl_to LIKE \"{$cat}:%\"" ;
$res = wfQuery ( $sql, DB_READ ) ;
$r .= "\n" ;
while ( $x = wfFetchObject ( $res ) )
{
$t = explode ( ":" , $x->bl_to , 2 ) ;
$t = $t[1] ;
$r .= "- " ;
$r .= $sk->makeBrokenLink ( $x->bl_to , $t ) ;
$r .= "
\n" ;
}
wfFreeResult ( $res ) ;
$r .= "
\n" ;
$wgOut->addHTML ( $r ) ;
}
?>