count;
$sections = ceil( $count / $indexMaxperpage );
$sql = "SELECT cur_title $fromwhere $order LIMIT 1";
$res = wfQuery( $sql, $fname );
$s = wfFetchObject( $res );
$inpoint = $s->cur_title;
$out .= "\n";
# There's got to be a cleaner way to do this!
for( $i = 1; $i < $sections; $i++ ) {
$from = $i * $indexMaxperpage;
$sql = "SELECT cur_title $fromwhere $order LIMIT $from,2";
$res = wfQuery( $sql, $fname );
$s = wfFetchObject( $res );
$outpoint = $s->cur_title;
$out .= indexShowline( $inpoint, $outpoint );
$s = wfFetchObject( $res );
$inpoint = $s->cur_title;
wfFreeResult( $res );
}
$from = $i * $indexMaxperpage;
$sql = "SELECT cur_title $fromwhere $order LIMIT " . ($count-1) . ",1";
$res = wfQuery( $sql, $fname );
$s = wfFetchObject( $res );
$outpoint = $s->cur_title;
$out .= indexShowline( $inpoint, $outpoint );
$out .= "
\n";
$wgOut->addHtml( $out );
}
function indexShowline( $inpoint, $outpoint )
{
global $wgOut, $wgLang, $wgUser;
$sk = $wgUser->getSkin();
# Fixme: this is ugly
$out = wfMsg(
"alphaindexline",
$sk->makeKnownLink( $wgLang->specialPage( "Allpages" ),
str_replace( "_", " ", $inpoint ),
"from=" . wfStrencode( $inpoint ) ) . "",
" | " .
str_replace( "_", " ", $outpoint )
);
return " | | {$out} |
\n";
}
function indexShowChunk( $from )
{
global $wgOut, $wgUser, $indexMaxperpage;
$sk = $wgUser->getSkin();
$out = "";
$sql = "SELECT cur_title
FROM cur
WHERE cur_namespace=0 AND cur_title >= '" . wfStrencode( $from ) . "'
ORDER BY cur_title
LIMIT {$indexMaxperpage}";
$res = wfQuery( $sql, "indexShowChunk" );
# FIXME: Dynamic column widths, backlink to main list,
# side links to next and previous
$n = 0;
$out = "\n";
while( $s = wfFetchObject( $res ) ) {
$out .= "| " .
$sk->makeKnownLink( $s->cur_title ) .
" | ";
$n = ++$n % 3;
if( $n == 0 ) {
$out .= "\n";
}
}
if( $n != 0 ) {
$out .= "
\n";
}
$out .= "
";
#return $out;
$wgOut->addHtml( $out );
}
?>