List-Cat.php
<?
- Append article content with a list of article-names from category specified in properties
global $wgContLang; $db =& wfGetDB( DB_MASTER ); $subdb =& wfGetDB( DB_SLAVE ); $cl = $db->tableName('categorylinks'); $cur = $db->tableName('cur'); xwGetProperty($properties, 'list-cat', $cat); $cat = str_replace(' ', '_', $cat); $article = trim($article)."\n"; $result = $db->query("SELECT cl_from,cl_sortkey FROM $cl WHERE cl_to = '$cat' ORDER BY cl_sortkey"); while ($row = mysql_fetch_assoc($result)) { $id = $row['cl_from']; $subresult = $subdb->query("SELECT cur_title,cur_namespace FROM $cur WHERE cur_id=$id"); if ($subrow = mysql_fetch_assoc($subresult)) { $title = str_replace('_', ' ', $subrow['cur_title']); $title = str_replace('Category:', ':Category:', $title); if ($ns = $wgContLang->getNsText( $subrow['cur_namespace'] )) $title = "$ns:$title"; $anchor = str_replace('_', ' ', $row['cl_sortkey']); $anchor = ($title != $anchor) ? "|$anchor" : ; $article .= "*$title$anchor\n"; xwMessage("t=$title, a=$anchor"); } } ?>
