Got rid of the MagicWord indexing constants (MAG_xxx), replaced them by string indexi...

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

diff --git a/includes/SpecialListredirects.php b/includes/SpecialListredirects.php
index acd1a6d..3cbdeda 100644 (file)
--- a/includes/SpecialListredirects.php
+++ b/includes/SpecialListredirects.php
@@ -4,13 +4,10 @@
  * @subpackage SpecialPage
  *
  * @author Rob Church <robchur@gmail.com>
- * @copyright © 2006 Rob Church
+ * @copyright © 2006 Rob Church
  * @license http://www.gnu.org/copyleft/gpl.html GNU General Public License 2.0 or later
  */
 
-/* */
-require_once 'QueryPage.php';
-
 /**
  * @package MediaWiki
  * @subpackage SpecialPage
@@ -18,36 +15,47 @@ require_once 'QueryPage.php';
 
 class ListredirectsPage extends QueryPage {
 
-       function getName() { return( 'listredirects' ); }
+       function getName() { return( 'Listredirects' ); }
        function isExpensive() { return( true ); }
        function isSyndicated() { return( false ); }
        function sortDescending() { return( false ); }
-       
+
        function getSQL() {
                $dbr =& wfGetDB( DB_SLAVE );
-               extract( $dbr->tableNames( 'page' ) );
-               return( 'SELECT page_title AS title, page_namespace AS namespace, page_namespace AS value FROM ' . $page . ' WHERE page_is_redirect = 1' );
+               $page = $dbr->tableName( 'page' );
+               $sql = "SELECT 'Listredirects' AS type, page_title AS title, page_namespace AS namespace, 0 AS value FROM $page WHERE page_is_redirect = 1";
+               return( $sql );
        }
-       
+
        function formatResult( $skin, $result ) {
                global $wgContLang;
-               
+       
                # Make a link to the redirect itself
                $rd_title = Title::makeTitle( $result->namespace, $result->title );
-               $rd_link_text = htmlspecialchars( $wgContLang->convert( $rd_title->getPrefixedText() ) );
-               $rd_link = $skin->makeKnownLink( $rd_title->getPrefixedText(), $rd_link_text, 'redirect=no' );
-               
+               $rd_link = $skin->makeKnownLinkObj( $rd_title, '', 'redirect=no' );
+
                # Find out where the redirect leads
-               $rd_page = new Article( &$rd_title, 0 );
-               $rd_text = $rd_page->getContent( true ); # Don't follow the redirect
-               
-               # Make a link to the destination page
-               $tp_title = Title::newFromRedirect( $rd_text );
-               $tp_link_text = htmlspecialchars( $tp_title->getPrefixedText() );
-               $tp_link = $skin->makeKnownLink( $tp_title->getPrefixedText(), $tp_link_text );
-               
+               $revision = Revision::newFromTitle( $rd_title );
+               if( $revision ) {
+                       # Make a link to the destination page
+                       $target = Title::newFromRedirect( $revision->getText() );
+                       if( $target ) {
+                               $targetLink = $skin->makeLinkObj( $target );
+                       } else {
+                               /** @todo Put in some decent error display here */
+                               $targetLink = '*';
+                       }
+               } else {
+                       /** @todo Put in some decent error display here */
+                       $targetLink = '*';
+               }
+
+               # Check the language; RTL wikis need a &larr;
+               $arr = $wgContLang->isRTL() ? ' &larr; ' : ' &rarr; ';
+
                # Format the whole thing and return it
-               return( $rd_link . ' &rarr; ' . $tp_link );
+               return( $rd_link . $arr . $targetLink );
+
        }
 
 }
@@ -58,4 +66,4 @@ function wfSpecialListredirects() {
        $lrp->doQuery( $offset, $limit );
 }
 
-?>
\ No newline at end of file
+?>