# HG changeset patch
# User Dan
# Date 1218810331 14400
# Node ID 70fa9fdd6f25db1f946ea138885e8854585c0a18

First commit - plugin seems to be in a working state.

diff -r 000000000000 -r 70fa9fdd6f25 plugins/CategoryList.php
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plugins/CategoryList.php	Fri Aug 15 10:25:31 2008 -0400
@@ -0,0 +1,189 @@
+<?php
+/*
+Plugin Name: Category list
+Plugin URI: http://enanocms.org/
+Description: A simple parser hook to display the contents of a category within another page. Syntax is {{Category:<cat name>|sub=(on|off)|pages=(on|off)}}. (Both sub [subcategories] and pages default to on)
+Author: Dan Fuhry
+Version: 1.0
+Author URI: http://enanocms.org/
+*/
+
+// attach parser hook
+$plugins->attachHook('render_wikiformat_pre', 'catlist_parser_hook($text);');
+
+function catlist_parser_hook(&$text)
+{
+  if ( preg_match_all('/\{\{
+                         Category:
+                         ([^|\r\n\a\t]+?)                                              # category name
+                         (\|(?:(?:[a-z0-9_]+)(?:[\s]*)=(?:[\s]*)(?:[^\}\r\n\a\t]+)))   # parameters
+                       \}\}/x', $text, $matches) )
+  {
+    foreach ( $matches[0] as $i => $match )
+    {
+      $cat_name =& $matches[1][$i];
+      $params =& $matches[2][$i];
+      $params = catlist_parse_params($params);
+      
+      $do_subs = ( isset($params['sub']) && $params['sub'] === 'off' ) ? false : true;
+      $do_pages = ( isset($params['pages']) && $params['pages'] === 'off' ) ? false : true;
+      
+      $result = catlist_print_category($cat_name, $do_subs, $do_pages);
+      $text = str_replace($match, $result, $text);
+    }
+  }
+}
+
+function catlist_parse_params($params)
+{
+  $params = trim($params, '|');
+  $params = explode('|', $params);
+  $return = array();
+  foreach ( $params as $val )
+  {
+    if ( preg_match('/^([a-z0-9_]+)(?:[\s]*)=(?:[\s]*)([^\}\r\n\a\t]+)$/', $val, $match) )
+    {
+      $return[ $match[1] ] = $match[2];
+    }
+  }
+  return $return;
+}
+
+function catlist_print_category($cat_name, $do_subs, $do_pages)
+{
+  // nicely format and print the category out, then return HTML
+  global $db, $session, $paths, $template, $plugins; // Common objects
+  
+  // make sane the category ID
+  $cat_id = $db->escape(sanitize_page_id($cat_name));
+  
+  // if we're doing both, use the more complicated query
+  if ( $do_subs && $do_pages )
+  {
+    
+    $q = $db->sql_query('SELECT c.page_id, c.namespace, p.name, ( c.namespace = \'Category\' ) AS is_subcategory FROM ' . table_prefix . "categories AS c\n"
+                      . "  LEFT JOIN " . table_prefix . "pages AS p\n"
+                      . "    ON ( p.urlname = c.page_id AND p.namespace = c.namespace )\n"
+                      . "  WHERE c.category_id = '$cat_id'\n"
+                      . "  ORDER BY is_subcategory DESC;");
+  }
+  else
+  {
+    // nice little where clause...
+    if ( $do_subs && !$do_pages )
+    {
+      $where = 'c.namespace = \'Category\'';
+    }
+    else if ( $do_pages && !$do_subs )
+    {
+      $where = 'c.namespace != \'Category\'';
+    }
+    else
+    {
+      // ok, subs = off AND pages = off. some people are dummies.
+      return '';
+    }
+    $q = $db->sql_query('SELECT c.page_id, c.namespace, p.name, ( c.namespace = \'Category\' ) AS is_subcategory FROM ' . table_prefix . "categories AS c\n"
+                      . "  LEFT JOIN " . table_prefix . "pages AS p\n"
+                      . "    ON ( p.urlname = c.page_id AND p.namespace = c.namespace )\n"
+                      . "  WHERE c.category_id = '$cat_id' AND $where\n"
+                      . "  ORDER BY is_subcategory DESC;");
+  }
+  if ( !$q )
+    $db->_die();
+  
+  $html = '';
+  if ( $do_subs && $do_pages )
+  {
+    $html .= '<h3>Subcategories</h3>';
+  }
+  if ( $do_subs )
+  {
+    // LIST: subcategories
+    $html .= '<div class="tblholder">';
+    $html .= '<table border="0" cellspacing="1" cellpadding="4">';
+    $html .= '<tr>';
+    $ticker = 0;
+    $have_subcats = false;
+    $class = 'row1';
+    while ( $row = $db->fetchrow() )
+    {
+      if ( empty($row['is_subcategory']) )
+        break;
+      
+      $have_subcats = true;
+      
+      $ticker++;
+      if ( $ticker == 3 )
+      {
+        $ticker = 0;
+        $html = '</tr><tr>';
+        $class = ( $class == 'row1' ) ? 'row2' : 'row1';
+      }
+      $inner = '<a href="' . makeUrlNS($row['namespace'], $row['page_id'], false, true) . '">' . htmlspecialchars($row['name']) . '</a>';
+      $html .= '<td style="width: 33.3%;" class="' . $class . '">' . $inner . '</td>';
+    }
+    if ( !$have_subcats )
+    {
+      $ticker++;
+      $html .= '<td style="width: 33.3%;" class="' . $class . '">No subcategories.</td>';
+    }
+    // fill in the rest of the table
+    while ( $ticker < 3 )
+    {
+      $ticker++;
+      $html .= '<td style="width: 33.3%;" class="' . $class . '"></td>';
+    }
+    $html .= '</table></div>';
+  }
+  if ( $do_subs && $do_pages )
+  {
+    $html .= '<h3>Pages</h3>';
+  }
+  if ( $do_pages )
+  {
+    // LIST: member pages
+    $html .= '<div class="tblholder">';
+    $html .= '<table border="0" cellspacing="1" cellpadding="4">';
+    $html .= '<tr>';
+    $ticker = 0;
+    $have_pages = false;
+    $class = 'row1';
+    // using do-while because the last row was already fetched if we had to do subcategories
+    do
+    {
+      if ( !$do_subs && !isset($row) )
+        $row = $db->fetchrow();
+      
+      if ( !$row )
+        break;
+      
+      $have_pages = true;
+      
+      $ticker++;
+      if ( $ticker == 3 )
+      {
+        $ticker = 0;
+        $html = '</tr><tr>';
+        $class = ( $class == 'row1' ) ? 'row2' : 'row1';
+      }
+      $inner = '<a href="' . makeUrlNS($row['namespace'], $row['page_id'], false, true) . '">' . htmlspecialchars($row['name']) . '</a>';
+      $html .= '<td style="width: 33.3%;" class="' . $class . '">' . $inner . '</td>';
+    }
+    while ( $row = $db->fetchrow() );
+    
+    if ( !$have_pages )
+    {
+      $ticker++;
+      $html .= '<td style="width: 33.3%;" class="' . $class . '">No pages in this category.</td>';
+    }
+    // fill in the rest of the table
+    while ( $ticker < 3 )
+    {
+      $ticker++;
+      $html .= '<td style="width: 33.3%;" class="' . $class . '"></td>';
+    }
+    $html .= '</table></div>';
+  }
+  return $html;
+}