modules/taxonomy_browser/taxonomy_browser.module

<?php
// $Id: taxonomy_browser.module,v 1.19.2.11.2.19 2008/06/20 04:07:50 nancyw Exp $
// Original by Moshe Weitzman (weitzmna@tejasa.com)

/**
 * @file
 * Enables users to construct their own view of content from terms across 
 * multiple vocabularies.
 */

//*******************************************************************
//* Drupal Hooks : General Overview
//*******************************************************************

/**
 * Implementation of hook_menu().
 */
function taxonomy_browser_menu() {
  $items = array();

  $items['taxonomy_browser'] = array(
    'title' => 'Category Browser',
    'page callback' => 'taxonomy_browser_page',
    'access arguments' => array('access content'),
    'description' => 'Find content on your own terms.',
    );
      
  $items['admin/settings/taxonomy-browser'] = array(
    'title' => 'Taxonomy Browser',
    'description' => 'Set usage guidelines and included vocabularies.',
    'page callback' => 'drupal_get_form',
    'page arguments' => array('taxonomy_browser_admin_settings'),
    'access arguments' => array('administer site configuration'),    
    );

  return $items;
}

/**
 * Implementation of hook_init().
 */
function taxonomy_browser_init() {
  drupal_add_css(drupal_get_path('module', 'taxonomy_browser') .'/taxonomy_browser.css');
}

/**
 * Implementation of hook_help().
 */
function taxonomy_browser_help($path, $arg) {
  switch ($path) {
    case 'admin/modules#description':
      return t('An interface for viewing content grouped by arbitrary taxonomy terms.');
    case 'taxonomy_browser':
      $output = check_markup(variable_get('taxonomy_browser_guidelines', _taxonomy_browser_guidelines_default()));
      if (user_access('administer site configuration')) {
        $output .= '<p class="links">'. l(t('Go to Taxonomy Browser settings'), 'admin/settings/taxonomy-browser', array('query' => drupal_get_destination())) .'</p>';
      }
      return $output;
  }
}

/**
 * Implementation of hook_perm().
 */
function taxonomy_browser_perm() {
  if (variable_get('taxonomy_browser_need_perm', false)) {
    return array('access taxonomy browser');
  }
  else {
    return array();
  }
}

/**
 * Implementation of hook_menu_alter().
 */
function taxonomy_browser_menu_alter(&$callbacks) {
  $callbacks['taxonomy_browser']['access arguments'] = array(variable_get('taxonomy_browser_need_perm', false) ? 'access taxonomy browser' : 'access content');
}

//********************************************************************
//* Drupal Hooks : Core
//********************************************************************

/**
 * Implementation of hook_block().
 */
function taxonomy_browser_block($op = 'list', $delta = 0, $edit = array()) {
  $block = array();
  switch ($op) {
    case 'list':
      $block[0]['info'] = t('Category browser');
      return $block;

    case 'view':
      switch ($delta) {
        case 0:
          $block = _taxonomy_browser_block_view($delta);
          break;
      }
      return $block;
  }
}

/**
 * Settings form.
 */
function taxonomy_browser_admin_settings() {
  if (!module_exists('node_type_filter') && !drupal_set_message()) {
    drupal_set_message(t('You do not have the node_type_filter module installed. This means that the "restrict search by content type" option will not be available on the category browser page.'), 'status');
  }

  drupal_add_js(drupal_get_path('module', 'taxonomy_browser') .'/taxonomy_browser.js', 'module');

  $form['taxonomy_browser_guidelines'] = array(
    '#title' => t('Guidelines'),
    '#type' => 'textarea',
    '#default_value' => variable_get('taxonomy_browser_guidelines', _taxonomy_browser_guidelines_default()),
    '#rows' => 2,
    '#description' => t('Instructions which should appear at top of the category browser main page'),
    );

  $form['taxonomy_browser_select_type'] = array(
    '#title' => t('Selection type'),
    '#type' => 'radios',
    '#default_value' => variable_get('taxonomy_browser_select_type', 1),
    '#options' => array(t('Selection box'), t('Check boxes')),
    '#description' => t('This option determines whether the user will see a selection list or check boxes.'),
    '#prefix' => '<div class="taxonomy_browser_radios">',
    '#suffix' => '</div>',
    );

  $form['taxonomy_browser_default_op'] = array(
    '#title' => t('"Items containing" default'),
    '#type' => 'radios',
    '#default_value' => variable_get('taxonomy_browser_default_op', 0),
    '#options' => array(t('All'), t('Any')),
    '#description' => t('This option determines which "Items containing" choice is the default.'),
    '#prefix' => '<div class="taxonomy_browser_radios">',
    '#suffix' => '</div>',
    );

  $form['taxonomy_browser_count_nodes'] = array(
    '#title' => t('Show node count'),
    '#type' => 'checkbox',
    '#default_value' => variable_get('taxonomy_browser_count_nodes', false),
    '#description' => t('Do you want to display the count of nodes tagged with each term? This can be SQL-intensive.'),
    );

  $form['taxonomy_browser_show_unused'] = array(
    '#title' => t('Show unused terms'),
    '#type' => 'checkbox',
    '#default_value' => variable_get('taxonomy_browser_show_unused', false),
    '#description' => t('Do you want to display the term if no nodes are tagged with that term? This requires "Show node count" to be selected; if it is not seleted, all terms will be shown.'),
    );

  $form['taxonomy_browser_allow_children'] = array(
    '#title' => t('Allow child terms to be included'),
    '#type' => 'checkbox',
    '#default_value' => variable_get('taxonomy_browser_allow_children', false),
    '#description' => t('Do you want the user to see a check box to include child terms (sub-terms)?'),
    );

  $form['taxonomy_browser_need_perm'] = array(
    '#title' => t('Requires permission'),
    '#type' => 'checkbox',
    '#default_value' => variable_get('taxonomy_browser_need_perm', false),
    '#description' => t('Do you want to require permission to see the browser page? If you change this you need to clear the menu cache, such as at <a href="!clear">the Performance page</a>.', array('!clear' => url('admin/settings/performance'))),
    );

  $select = array();
  $vocabularies = taxonomy_get_vocabularies();
  foreach ($vocabularies as $vocabulary) {
    $select[$vocabulary->vid] = $vocabulary->name;
  }

  $form['taxonomy_browser_vocabularies'] = array(
    '#title' => t('Included Vocabularies'),
    '#type' => 'checkboxes',
    '#default_value' => variable_get('taxonomy_browser_vocabularies', array()),
    '#options' => $select,
    '#description' => t('Select the vocabularies the user can select from on the category browser page.'),
    '#prefix' => '<div class="taxonomy_browser_checkboxes">',
    '#suffix' => '</div>',
    );

  if (module_exists('node_type_filter')) {
    $filter_options = node_get_types('names'); 
    $form['taxonomy_browser_omit'] = array(
      '#type' => 'checkboxes',
      '#title' => t('Omit content types'),
      '#options' => $filter_options,
      '#default_value' => variable_get('taxonomy_browser_omit', array('')),
      '#description' => t('If any of these types is selected, it will be omitted from the list on the "Category Browser" page.'),
      '#prefix' => '<div class="taxonomy_browser_checkboxes">',
      '#suffix' => '</div>',
      );
  }

  return system_settings_form($form);
}

function taxonomy_browser_admin_settings_validate($form, &$form_state) {
  if ($form_state['values']['taxonomy_browser_count_nodes'] == false
    && $form_state['values']['taxonomy_browser_show_unused'] == true) {
    form_set_error('taxonomy_browser_show_unused', t('"Show unused" requires "count nodes."'));
  }
}

//********************************************************************
//* Module Functions : Public
//********************************************************************

/**
 * Menu callback: the query building interface for nodes selected based on 
 * taxonomy terms.
 */
function taxonomy_browser_page() {
  $output .= drupal_get_form('taxonomy_browser_form');
  return $output;
}

function taxonomy_browser_form() {
  $form = array();
  $selection_types = array('select', 'checkboxes');
  $select_type = $selection_types[variable_get('taxonomy_browser_select_type', 1)];
  $count_nodes = variable_get('taxonomy_browser_count_nodes', false);
  $show_unused = variable_get('taxonomy_browser_show_unused', false);
  $allow_children = variable_get('taxonomy_browser_allow_children', false);
  $node_types = node_get_types('names');

  $form['scope'] = array(
    '#type' => 'fieldset',
    '#title' => t('Scope'),
    '#collapsible' => true,
    '#collapsed' => false,
    '#attributes' => array('class' => 'taxonomy_browser_scope'),
    );

  if (module_exists('node_type_filter')) {
    if ($count_nodes) {
      $total_count = 0;
      $result = db_query('SELECT DISTINCT(type), COUNT(nid) AS count FROM {node} WHERE status=1 GROUP BY type ORDER BY type');
      while ($counter = db_fetch_array($result)) {
        // Check if we know about this type - a disabled module could have orphans.
        if (isset($node_types[$counter['type']])) {
          $node_types[$counter['type']] .= ' ('. $counter['count'] .')';
        }
        else {
          $node_types['unknown'] .= '<em>'. $counter['type'];
          $node_types['unknown'] .= '</em>??? ('. $counter['count'] .') ';
          watchdog('Taxonomy Browser', 'Unknown content type found: @type', array('@type' => $counter['type']), WATCHDOG_WARNING);
        }
        $total_count += $counter['count'];
      }
    }

    $omit = array_filter(variable_get('taxonomy_browser_omit', array()));
    if (!empty($omit)) {
      foreach ($omit as $omit_type) {
        unset($node_types[$omit_type]);
      }
    }
    $desc = t('Not selecting any type is the same as selecting all types.');
    if ($count_nodes) {
      $desc .= ' '. t('The total count of all types is !count.', array('!count' => $total_count));
    }
    $form['scope']['node_filter'] = array(
      '#type' => $select_type,
      '#title' => t('Restrict search by content type'),
      '#options' => $node_types,
      '#multiple' => true,
      '#prefix' => '<div class="taxonomy_browser_checkboxes">',
      '#suffix' => '</div>',
      '#description' => $desc,
      );
  }
  else {
    $form['scope']['node_filter'] = array(
      '#type' => value,
      '#value' => array(),
      );
  }
  
  $form['scope']['operator'] = array(
    '#type' => 'radios',
    '#title' => t('Items containing'),
    '#options' => array(t('<strong>all</strong> terms'), t('<strong>any</strong> terms')),
    '#default_value' => variable_get('taxonomy_browser_default_op', 0),
    '#prefix' => '<div class="taxonomy_browser_radios">',
    '#suffix' => '</div>',
    );

  $vocabularies = array_filter(variable_get('taxonomy_browser_vocabularies', array()));
  // Has the admin selected any vocabs?
  if (count($vocabularies) == 0) {
    $vocabs = taxonomy_get_vocabularies();
    foreach ($vocabs as $vocabulary) {
      $vocabularies[$vocabulary->vid] = 1;
    }
  }
  
  if ($allow_children) {
    $form['children'] = array(
      '#type' => 'fieldset',
      '#title' => t('Include Children'),
      '#collapsible' => true,
      '#collapsed' => false,
      );
    $form['children']['include_children'] = array(
      '#type' => 'checkbox',
      '#title' => t('Automatically include children (sub-terms)'),
      '#description' => t('If you select a term with children (sub-terms), do you want those child terms automatically included in the search? This requires that "Items containing" be "any."'),
      );
  }
  else {
    $form['include_children'] = array(
      '#type' => 'value',
      '#value' => false,
      );
  }

  $form['taxonomy'] = array(
    '#type' => 'fieldset',
    '#title' => t('Categories'),
    '#collapsible' => true,
    '#collapsed' => false,
    '#tree' => TRUE,
  );

  $selection_types = array('select', 'checkboxes');
  $i = 0;
  foreach ($vocabularies as $v => $sel) {
    $voc = taxonomy_vocabulary_load($v);

    $voc_node_types = array();
    if (isset($voc->nodes) && !empty($voc->nodes)) {
      foreach ($voc->nodes as $key => $type) {
        $voc_node_types[] = $node_types[$type];
      }
    }
    else {
      drupal_set_message(t('The %name vocabulary does not appear to be associated with any content types.', array('%name' => $voc->name)), 'warning');
    }

    $count_types = count($voc_node_types);
    if (count($voc_node_types) == 1) {
      $node_type_list = $voc_node_types[0];
    }
    else {
      $node_type_list = implode(', ', $voc_node_types);
    }

    $tree = taxonomy_get_tree($v);
    $term_opts = array();

    if ($tree) {
      foreach ($tree as $term) {
        $opt_string = null;
        if ($count_nodes) {
          $count = taxonomy_term_count_nodes($term->tid);
          if ($count > 0 || $show_unused) {
            $opt_string = decode_entities(check_plain($term->name)) .' ('. $count .')';
          }
        }
        else {
          $opt_string = decode_entities(check_plain($term->name));
        }
        if ($opt_string) {
          $term_opts[$term->tid] = str_repeat('-', $term->depth) . $opt_string;
        }
      }
    }

    $vocname = check_plain($voc->name);
    $description = $voc->description ? decode_entities(check_markup($voc->description)) : null;
    $description .= t('"!name" is used for: !types.', array('!name' => '<strong>'. $vocname .'</strong>', '!types' => (empty($node_type_list) ? '<em>'. t('nothing') .'</em>' : $node_type_list)));
    if (!empty($term_opts)) {
      $form['taxonomy'][$v] = array(
        '#type' => $select_type,
        '#title' => $vocname,
        '#options' => $term_opts,
        '#multiple' => true,
        '#description' => $description,
        '#size' => min(10, count($term_opts)),
        '#prefix' => '<div class="taxonomy_browser_'. $select_type .'">',
        '#suffix' => '</div>',
        '#field_suffix' => $node_type_list,
        '#weight' => $i,
        );
      ++$i;
    }
  }
  
  $form['submit'] = array(
    '#type' => 'submit',
    '#value' => t('Search'),
//    '#submit' => TRUE,
    );
  
  return $form;
}

/**
 * Implementation of hook_theme().
 */
function taxonomy_browser_theme() {
  return array(
    'taxonomy_browser_page' => array(
      'arguments' => array('form'),
    ),
  );
}

/**
 * Themable form output for the category browser page.
 */
function theme_taxonomy_browser_page($form) {
  $output = '';
  
  $vocabularies = variable_get('taxonomy_browser_vocabularies', array());
  if (empty($vocabularies)) {
    form_set_error('taxonomy_browser_page', t('You must select the vocabularies to display from the <a href="%link">taxonomy browser settings page</a>.', array('%link' => url('admin/settings/taxonomy_browser'))));
    return ' ';
  }
  
  $output .= drupal_render($form);
  return $output;
}

/**
 * Implementation of hook_form_validate().
 */
function taxonomy_browser_form_validate($form, &$form_state) {

  $include_children = $form_state['values']['include_children'];
  $tids = _taxonomy_browser_get_tid_list($form_state['values']['taxonomy'], $include_children);

  $operator = $form_state['values']['operator'] ? 'or' : 'and';

  if ($operator == 'and' && $include_children == true) {
    form_set_error('operator', t('You must use "Items containing <strong>any</strong>" to include child terms.'));
  }

  if (empty($tids)) {
    form_set_error('taxonomy', t('You must select at least one category in your search.'));
  }
  else {
//    $node_type = (isset($form_values['node_filter']) && $form_values['node_filter'] != 'all') ? $form_values['node_filter'] : NULL;
    $node_type = str_replace(',0', '', implode(',', $form_state['values']['node_filter']));

    if (!taxonomy_browser_count_nodes($tids, $operator, 0, $node_type)) {
      form_set_error('taxonomy', t('No posts match your criteria.'));
    }
  }
}

/**
 * Implementation of hook_form_submit().
 */
function taxonomy_browser_form_submit($form, &$form_state) {
  $tids = _taxonomy_browser_get_tid_list();

  $operator = $form_state['values']['operator'] ? 'or' : 'and';
  $str_tids = ($operator == 'and') ? implode(',', $tids) : implode('+', $tids);
  
  $types = array_filter($form_state['values']['node_filter']);
  $node_type = str_replace(',0', '', implode(',', $types));
  
  if ($types) {
    $redir = array('taxonomy/term/'. $str_tids, (isset($node_type) ? 'type='. $node_type : ''));
  }
  else {
    $redir = 'taxonomy/term/'. $str_tids;
  }
  
  $form_state['redirect'] = $redir;
}

//********************************************************************
//* Module Functions : Private
//********************************************************************

/**
 * Get the output to be displayed by the block.
 *
 * @param
 *   $delta - integer for the block number.
 *
 * @return
 *   array containing the title ("subject") and content of the block.
 */
function _taxonomy_browser_block_view($delta) {
  $block = array();
  switch ($delta) {
    case 0:
      $block = array(
        'content' => drupal_get_form('taxonomy_browser_form'),
        );
      break;
  }
  return $block;
}

/**
 * Private function to count the number of nodes found by the user's query.
 */
function taxonomy_browser_count_nodes($tids = array(), $operator = 'or', $depth = 0, $nodetype = NULL) {
  if (count($tids) > 0) {
    // For each term ID, generate an array of descendant term IDs to the right depth.
    $descendant_tids = array();
    if ($depth === 'all') {
      $depth = NULL;
    }
    foreach ($tids as $index => $tid) {
      $term = taxonomy_get_term($tid);
      $tree = taxonomy_get_tree($term->vid, $tid, -1, $depth);
      $descendant_tids[] = array_merge(array($tid), array_map('_taxonomy_get_tid_from_term', $tree));
    }

    $type_where = null;
    if ($nodetype) {
//      $type_where = "n.type = '". db_escape_string($nodetype) ."'";
      $type_where = "n.type IN ('". implode("', '", explode(',', db_escape_string($nodetype))) ."')";
    }

    if ($operator == 'or') {
      $str_tids = implode(',', call_user_func_array('array_merge', $descendant_tids));

      $sql_count = 'SELECT COUNT(n.nid) FROM {node} n INNER JOIN {term_node} tn USING(nid) WHERE '. ($type_where ? $type_where .' AND ' : null) ."tn.tid IN ($str_tids) ORDER BY n.sticky DESC, n.title ASC";
    }
    else {
      $joins = '';
      $wheres = array();
      if ($type_where) {
        $wheres[] = $type_where;
      }
      foreach ($descendant_tids as $index => $tids) {
        $joins .= 'INNER JOIN {term_node} tn'. $index .' ON n.nid = tn'. $index .'.nid ';
        $wheres[] = 'tn'. $index .'.tid IN ('. implode(',', $tids) .')';
      }
      $sql_count = 'SELECT COUNT(n.nid) FROM {node} n '. $joins .' WHERE '. implode(' AND ', $wheres);
    }

    return db_result(db_query(db_rewrite_sql($sql_count)));
  }

  return 0;
}

/**
 * Transforms an unpredictably and irregularly nested set of tids (as returned 
 * from a taxonomy form) into a linear array of tids.
 */
function _taxonomy_browser_get_tid_list($tids = null, $include_children = false) {
  static $tid_list;

  if (isset($tids) && is_array($tids)) {
    $tid_list = array();
    foreach ($tids as $key => $tid) {
      if (!empty($tid)) {
        if (is_array($tid)) {
          foreach ($tid as $key2 => $tid2) {
            if (!empty($tid2)) {
              $tid_list[$tid2] = $tid2;
            }
          }
        }
        else {
          $tid_list[$tid] = $tid;
        }
      } /* end !empty */
    } /* end foreach */
  }
  
  if ($include_children) {
    foreach ($tid_list as $tid) {
      _taxonomy_browser_get_kids($tid_list, $tid);
    }
  }

  return $tid_list;
}

function _taxonomy_browser_get_kids(&$tid_list, $tid) {
  $children = taxonomy_get_children($tid);
  if ($children) {
    foreach ($children as $child_tid => $child_term) {
      _taxonomy_browser_get_kids($tid_list, $child_tid);
    }
  }
  else {
    $tid_list[$tid] = $tid;
  }
}

/**
 * Provides default guideline text.
 */
function _taxonomy_browser_guidelines_default() {
  return t('<p>You may select multiple items from each list by holding down the <code>Ctrl</code> (Mac: <code>command</code>) key while left-clicking each item.</p>');
}
1	<?php
2	// $Id: taxonomy_browser.module,v 1.19.2.11.2.19 2008/06/20 04:07:50 nancyw Exp $
3	// Original by Moshe Weitzman (weitzmna@tejasa.com)
4
5	/**
6	* @file
7	* Enables users to construct their own view of content from terms across
8	* multiple vocabularies.
9	*/
10
11	//*******************************************************************
12	//* Drupal Hooks : General Overview
13	//*******************************************************************
14
15	/**
16	* Implementation of hook_menu().
17	*/
18	function taxonomy_browser_menu() {
19	$items = array();
20
21	$items['taxonomy_browser'] = array(
22	'title' => 'Category Browser',
23	'page callback' => 'taxonomy_browser_page',
24	'access arguments' => array('access content'),
25	'description' => 'Find content on your own terms.',
26	);
27
28	$items['admin/settings/taxonomy-browser'] = array(
29	'title' => 'Taxonomy Browser',
30	'description' => 'Set usage guidelines and included vocabularies.',
31	'page callback' => 'drupal_get_form',
32	'page arguments' => array('taxonomy_browser_admin_settings'),
33	'access arguments' => array('administer site configuration'),
34	);
35
36	return $items;
37	}
38
39	/**
40	* Implementation of hook_init().
41	*/
42	function taxonomy_browser_init() {
43	drupal_add_css(drupal_get_path('module', 'taxonomy_browser') .'/taxonomy_browser.css');
44	}
45
46	/**
47	* Implementation of hook_help().
48	*/
49	function taxonomy_browser_help($path, $arg) {
50	switch ($path) {
51	case 'admin/modules#description':
52	return t('An interface for viewing content grouped by arbitrary taxonomy terms.');
53	case 'taxonomy_browser':
54	$output = check_markup(variable_get('taxonomy_browser_guidelines', _taxonomy_browser_guidelines_default()));
55	if (user_access('administer site configuration')) {
56	$output .= '<p class="links">'. l(t('Go to Taxonomy Browser settings'), 'admin/settings/taxonomy-browser', array('query' => drupal_get_destination())) .'</p>';
57	}
58	return $output;
59	}
60	}
61
62	/**
63	* Implementation of hook_perm().
64	*/
65	function taxonomy_browser_perm() {
66	if (variable_get('taxonomy_browser_need_perm', false)) {
67	return array('access taxonomy browser');
68	}
69	else {
70	return array();
71	}
72	}
73
74	/**
75	* Implementation of hook_menu_alter().
76	*/
77	function taxonomy_browser_menu_alter(&$callbacks) {
78	$callbacks['taxonomy_browser']['access arguments'] = array(variable_get('taxonomy_browser_need_perm', false) ? 'access taxonomy browser' : 'access content');
79	}
80
81	//********************************************************************
82	//* Drupal Hooks : Core
83	//********************************************************************
84
85	/**
86	* Implementation of hook_block().
87	*/
88	function taxonomy_browser_block($op = 'list', $delta = 0, $edit = array()) {
89	$block = array();
90	switch ($op) {
91	case 'list':
92	$block[0]['info'] = t('Category browser');
93	return $block;
94
95	case 'view':
96	switch ($delta) {
97	case 0:
98	$block = _taxonomy_browser_block_view($delta);
99	break;
100	}
101	return $block;
102	}
103	}
104
105	/**
106	* Settings form.
107	*/
108	function taxonomy_browser_admin_settings() {
109	if (!module_exists('node_type_filter') && !drupal_set_message()) {
110	drupal_set_message(t('You do not have the node_type_filter module installed. This means that the "restrict search by content type" option will not be available on the category browser page.'), 'status');
111	}
112
113	drupal_add_js(drupal_get_path('module', 'taxonomy_browser') .'/taxonomy_browser.js', 'module');
114
115	$form['taxonomy_browser_guidelines'] = array(
116	'#title' => t('Guidelines'),
117	'#type' => 'textarea',
118	'#default_value' => variable_get('taxonomy_browser_guidelines', _taxonomy_browser_guidelines_default()),
119	'#rows' => 2,
120	'#description' => t('Instructions which should appear at top of the category browser main page'),
121	);
122
123	$form['taxonomy_browser_select_type'] = array(
124	'#title' => t('Selection type'),
125	'#type' => 'radios',
126	'#default_value' => variable_get('taxonomy_browser_select_type', 1),
127	'#options' => array(t('Selection box'), t('Check boxes')),
128	'#description' => t('This option determines whether the user will see a selection list or check boxes.'),
129	'#prefix' => '<div class="taxonomy_browser_radios">',
130	'#suffix' => '</div>',
131	);
132
133	$form['taxonomy_browser_default_op'] = array(
134	'#title' => t('"Items containing" default'),
135	'#type' => 'radios',
136	'#default_value' => variable_get('taxonomy_browser_default_op', 0),
137	'#options' => array(t('All'), t('Any')),
138	'#description' => t('This option determines which "Items containing" choice is the default.'),
139	'#prefix' => '<div class="taxonomy_browser_radios">',
140	'#suffix' => '</div>',
141	);
142
143	$form['taxonomy_browser_count_nodes'] = array(
144	'#title' => t('Show node count'),
145	'#type' => 'checkbox',
146	'#default_value' => variable_get('taxonomy_browser_count_nodes', false),
147	'#description' => t('Do you want to display the count of nodes tagged with each term? This can be SQL-intensive.'),
148	);
149
150	$form['taxonomy_browser_show_unused'] = array(
151	'#title' => t('Show unused terms'),
152	'#type' => 'checkbox',
153	'#default_value' => variable_get('taxonomy_browser_show_unused', false),
154	'#description' => t('Do you want to display the term if no nodes are tagged with that term? This requires "Show node count" to be selected; if it is not seleted, all terms will be shown.'),
155	);
156
157	$form['taxonomy_browser_allow_children'] = array(
158	'#title' => t('Allow child terms to be included'),
159	'#type' => 'checkbox',
160	'#default_value' => variable_get('taxonomy_browser_allow_children', false),
161	'#description' => t('Do you want the user to see a check box to include child terms (sub-terms)?'),
162	);
163
164	$form['taxonomy_browser_need_perm'] = array(
165	'#title' => t('Requires permission'),
166	'#type' => 'checkbox',
167	'#default_value' => variable_get('taxonomy_browser_need_perm', false),
168	'#description' => t('Do you want to require permission to see the browser page? If you change this you need to clear the menu cache, such as at <a href="!clear">the Performance page</a>.', array('!clear' => url('admin/settings/performance'))),
169	);
170
171	$select = array();
172	$vocabularies = taxonomy_get_vocabularies();
173	foreach ($vocabularies as $vocabulary) {
174	$select[$vocabulary->vid] = $vocabulary->name;
175	}
176
177	$form['taxonomy_browser_vocabularies'] = array(
178	'#title' => t('Included Vocabularies'),
179	'#type' => 'checkboxes',
180	'#default_value' => variable_get('taxonomy_browser_vocabularies', array()),
181	'#options' => $select,
182	'#description' => t('Select the vocabularies the user can select from on the category browser page.'),
183	'#prefix' => '<div class="taxonomy_browser_checkboxes">',
184	'#suffix' => '</div>',
185	);
186
187	if (module_exists('node_type_filter')) {
188	$filter_options = node_get_types('names');
189	$form['taxonomy_browser_omit'] = array(
190	'#type' => 'checkboxes',
191	'#title' => t('Omit content types'),
192	'#options' => $filter_options,
193	'#default_value' => variable_get('taxonomy_browser_omit', array('')),
194	'#description' => t('If any of these types is selected, it will be omitted from the list on the "Category Browser" page.'),
195	'#prefix' => '<div class="taxonomy_browser_checkboxes">',
196	'#suffix' => '</div>',
197	);
198	}
199
200	return system_settings_form($form);
201	}
202
203	function taxonomy_browser_admin_settings_validate($form, &$form_state) {
204	if ($form_state['values']['taxonomy_browser_count_nodes'] == false
205	&& $form_state['values']['taxonomy_browser_show_unused'] == true) {
206	form_set_error('taxonomy_browser_show_unused', t('"Show unused" requires "count nodes."'));
207	}
208	}
209
210	//********************************************************************
211	//* Module Functions : Public
212	//********************************************************************
213
214	/**
215	* Menu callback: the query building interface for nodes selected based on
216	* taxonomy terms.
217	*/
218	function taxonomy_browser_page() {
219	$output .= drupal_get_form('taxonomy_browser_form');
220	return $output;
221	}
222
223	function taxonomy_browser_form() {
224	$form = array();
225	$selection_types = array('select', 'checkboxes');
226	$select_type = $selection_types[variable_get('taxonomy_browser_select_type', 1)];
227	$count_nodes = variable_get('taxonomy_browser_count_nodes', false);
228	$show_unused = variable_get('taxonomy_browser_show_unused', false);
229	$allow_children = variable_get('taxonomy_browser_allow_children', false);
230	$node_types = node_get_types('names');
231
232	$form['scope'] = array(
233	'#type' => 'fieldset',
234	'#title' => t('Scope'),
235	'#collapsible' => true,
236	'#collapsed' => false,
237	'#attributes' => array('class' => 'taxonomy_browser_scope'),
238	);
239
240	if (module_exists('node_type_filter')) {
241	if ($count_nodes) {
242	$total_count = 0;
243	$result = db_query('SELECT DISTINCT(type), COUNT(nid) AS count FROM {node} WHERE status=1 GROUP BY type ORDER BY type');
244	while ($counter = db_fetch_array($result)) {
245	// Check if we know about this type - a disabled module could have orphans.
246	if (isset($node_types[$counter['type']])) {
247	$node_types[$counter['type']] .= ' ('. $counter['count'] .')';
248	}
249	else {
250	$node_types['unknown'] .= '<em>'. $counter['type'];
251	$node_types['unknown'] .= '</em>??? ('. $counter['count'] .') ';
252	watchdog('Taxonomy Browser', 'Unknown content type found: @type', array('@type' => $counter['type']), WATCHDOG_WARNING);
253	}
254	$total_count += $counter['count'];
255	}
256	}
257
258	$omit = array_filter(variable_get('taxonomy_browser_omit', array()));
259	if (!empty($omit)) {
260	foreach ($omit as $omit_type) {
261	unset($node_types[$omit_type]);
262	}
263	}
264	$desc = t('Not selecting any type is the same as selecting all types.');
265	if ($count_nodes) {
266	$desc .= ' '. t('The total count of all types is !count.', array('!count' => $total_count));
267	}
268	$form['scope']['node_filter'] = array(
269	'#type' => $select_type,
270	'#title' => t('Restrict search by content type'),
271	'#options' => $node_types,
272	'#multiple' => true,
273	'#prefix' => '<div class="taxonomy_browser_checkboxes">',
274	'#suffix' => '</div>',
275	'#description' => $desc,
276	);
277	}
278	else {
279	$form['scope']['node_filter'] = array(
280	'#type' => value,
281	'#value' => array(),
282	);
283	}
284
285	$form['scope']['operator'] = array(
286	'#type' => 'radios',
287	'#title' => t('Items containing'),
288	'#options' => array(t('<strong>all</strong> terms'), t('<strong>any</strong> terms')),
289	'#default_value' => variable_get('taxonomy_browser_default_op', 0),
290	'#prefix' => '<div class="taxonomy_browser_radios">',
291	'#suffix' => '</div>',
292	);
293
294	$vocabularies = array_filter(variable_get('taxonomy_browser_vocabularies', array()));
295	// Has the admin selected any vocabs?
296	if (count($vocabularies) == 0) {
297	$vocabs = taxonomy_get_vocabularies();
298	foreach ($vocabs as $vocabulary) {
299	$vocabularies[$vocabulary->vid] = 1;
300	}
301	}
302
303	if ($allow_children) {
304	$form['children'] = array(
305	'#type' => 'fieldset',
306	'#title' => t('Include Children'),
307	'#collapsible' => true,
308	'#collapsed' => false,
309	);
310	$form['children']['include_children'] = array(
311	'#type' => 'checkbox',
312	'#title' => t('Automatically include children (sub-terms)'),
313	'#description' => t('If you select a term with children (sub-terms), do you want those child terms automatically included in the search? This requires that "Items containing" be "any."'),
314	);
315	}
316	else {
317	$form['include_children'] = array(
318	'#type' => 'value',
319	'#value' => false,
320	);
321	}
322
323	$form['taxonomy'] = array(
324	'#type' => 'fieldset',
325	'#title' => t('Categories'),
326	'#collapsible' => true,
327	'#collapsed' => false,
328	'#tree' => TRUE,
329	);
330
331	$selection_types = array('select', 'checkboxes');
332	$i = 0;
333	foreach ($vocabularies as $v => $sel) {
334	$voc = taxonomy_vocabulary_load($v);
335
336	$voc_node_types = array();
337	if (isset($voc->nodes) && !empty($voc->nodes)) {
338	foreach ($voc->nodes as $key => $type) {
339	$voc_node_types[] = $node_types[$type];
340	}
341	}
342	else {
343	drupal_set_message(t('The %name vocabulary does not appear to be associated with any content types.', array('%name' => $voc->name)), 'warning');
344	}
345
346	$count_types = count($voc_node_types);
347	if (count($voc_node_types) == 1) {
348	$node_type_list = $voc_node_types[0];
349	}
350	else {
351	$node_type_list = implode(', ', $voc_node_types);
352	}
353
354	$tree = taxonomy_get_tree($v);
355	$term_opts = array();
356
357	if ($tree) {
358	foreach ($tree as $term) {
359	$opt_string = null;
360	if ($count_nodes) {
361	$count = taxonomy_term_count_nodes($term->tid);
362	if ($count > 0 \|\| $show_unused) {
363	$opt_string = decode_entities(check_plain($term->name)) .' ('. $count .')';
364	}
365	}
366	else {
367	$opt_string = decode_entities(check_plain($term->name));
368	}
369	if ($opt_string) {
370	$term_opts[$term->tid] = str_repeat('-', $term->depth) . $opt_string;
371	}
372	}
373	}
374
375	$vocname = check_plain($voc->name);
376	$description = $voc->description ? decode_entities(check_markup($voc->description)) : null;
377	$description .= t('"!name" is used for: !types.', array('!name' => '<strong>'. $vocname .'</strong>', '!types' => (empty($node_type_list) ? '<em>'. t('nothing') .'</em>' : $node_type_list)));
378	if (!empty($term_opts)) {
379	$form['taxonomy'][$v] = array(
380	'#type' => $select_type,
381	'#title' => $vocname,
382	'#options' => $term_opts,
383	'#multiple' => true,
384	'#description' => $description,
385	'#size' => min(10, count($term_opts)),
386	'#prefix' => '<div class="taxonomy_browser_'. $select_type .'">',
387	'#suffix' => '</div>',
388	'#field_suffix' => $node_type_list,
389	'#weight' => $i,
390	);
391	++$i;
392	}
393	}
394
395	$form['submit'] = array(
396	'#type' => 'submit',
397	'#value' => t('Search'),
398	// '#submit' => TRUE,
399	);
400
401	return $form;
402	}
403
404	/**
405	* Implementation of hook_theme().
406	*/
407	function taxonomy_browser_theme() {
408	return array(
409	'taxonomy_browser_page' => array(
410	'arguments' => array('form'),
411	),
412	);
413	}
414
415	/**
416	* Themable form output for the category browser page.
417	*/
418	function theme_taxonomy_browser_page($form) {
419	$output = '';
420
421	$vocabularies = variable_get('taxonomy_browser_vocabularies', array());
422	if (empty($vocabularies)) {
423	form_set_error('taxonomy_browser_page', t('You must select the vocabularies to display from the <a href="%link">taxonomy browser settings page</a>.', array('%link' => url('admin/settings/taxonomy_browser'))));
424	return ' ';
425	}
426
427	$output .= drupal_render($form);
428	return $output;
429	}
430
431	/**
432	* Implementation of hook_form_validate().
433	*/
434	function taxonomy_browser_form_validate($form, &$form_state) {
435
436	$include_children = $form_state['values']['include_children'];
437	$tids = _taxonomy_browser_get_tid_list($form_state['values']['taxonomy'], $include_children);
438
439	$operator = $form_state['values']['operator'] ? 'or' : 'and';
440
441	if ($operator == 'and' && $include_children == true) {
442	form_set_error('operator', t('You must use "Items containing <strong>any</strong>" to include child terms.'));
443	}
444
445	if (empty($tids)) {
446	form_set_error('taxonomy', t('You must select at least one category in your search.'));
447	}
448	else {
449	// $node_type = (isset($form_values['node_filter']) && $form_values['node_filter'] != 'all') ? $form_values['node_filter'] : NULL;
450	$node_type = str_replace(',0', '', implode(',', $form_state['values']['node_filter']));
451
452	if (!taxonomy_browser_count_nodes($tids, $operator, 0, $node_type)) {
453	form_set_error('taxonomy', t('No posts match your criteria.'));
454	}
455	}
456	}
457
458	/**
459	* Implementation of hook_form_submit().
460	*/
461	function taxonomy_browser_form_submit($form, &$form_state) {
462	$tids = _taxonomy_browser_get_tid_list();
463
464	$operator = $form_state['values']['operator'] ? 'or' : 'and';
465	$str_tids = ($operator == 'and') ? implode(',', $tids) : implode('+', $tids);
466
467	$types = array_filter($form_state['values']['node_filter']);
468	$node_type = str_replace(',0', '', implode(',', $types));
469
470	if ($types) {
471	$redir = array('taxonomy/term/'. $str_tids, (isset($node_type) ? 'type='. $node_type : ''));
472	}
473	else {
474	$redir = 'taxonomy/term/'. $str_tids;
475	}
476
477	$form_state['redirect'] = $redir;
478	}
479
480	//********************************************************************
481	//* Module Functions : Private
482	//********************************************************************
483
484	/**
485	* Get the output to be displayed by the block.
486	*
487	* @param
488	* $delta - integer for the block number.
489	*
490	* @return
491	* array containing the title ("subject") and content of the block.
492	*/
493	function _taxonomy_browser_block_view($delta) {
494	$block = array();
495	switch ($delta) {
496	case 0:
497	$block = array(
498	'content' => drupal_get_form('taxonomy_browser_form'),
499	);
500	break;
501	}
502	return $block;
503	}
504
505	/**
506	* Private function to count the number of nodes found by the user's query.
507	*/
508	function taxonomy_browser_count_nodes($tids = array(), $operator = 'or', $depth = 0, $nodetype = NULL) {
509	if (count($tids) > 0) {
510	// For each term ID, generate an array of descendant term IDs to the right depth.
511	$descendant_tids = array();
512	if ($depth === 'all') {
513	$depth = NULL;
514	}
515	foreach ($tids as $index => $tid) {
516	$term = taxonomy_get_term($tid);
517	$tree = taxonomy_get_tree($term->vid, $tid, -1, $depth);
518	$descendant_tids[] = array_merge(array($tid), array_map('_taxonomy_get_tid_from_term', $tree));
519	}
520
521	$type_where = null;
522	if ($nodetype) {
523	// $type_where = "n.type = '". db_escape_string($nodetype) ."'";
524	$type_where = "n.type IN ('". implode("', '", explode(',', db_escape_string($nodetype))) ."')";
525	}
526
527	if ($operator == 'or') {
528	$str_tids = implode(',', call_user_func_array('array_merge', $descendant_tids));
529
530	$sql_count = 'SELECT COUNT(n.nid) FROM {node} n INNER JOIN {term_node} tn USING(nid) WHERE '. ($type_where ? $type_where .' AND ' : null) ."tn.tid IN ($str_tids) ORDER BY n.sticky DESC, n.title ASC";
531	}
532	else {
533	$joins = '';
534	$wheres = array();
535	if ($type_where) {
536	$wheres[] = $type_where;
537	}
538	foreach ($descendant_tids as $index => $tids) {
539	$joins .= 'INNER JOIN {term_node} tn'. $index .' ON n.nid = tn'. $index .'.nid ';
540	$wheres[] = 'tn'. $index .'.tid IN ('. implode(',', $tids) .')';
541	}
542	$sql_count = 'SELECT COUNT(n.nid) FROM {node} n '. $joins .' WHERE '. implode(' AND ', $wheres);
543	}
544
545	return db_result(db_query(db_rewrite_sql($sql_count)));
546	}
547
548	return 0;
549	}
550
551	/**
552	* Transforms an unpredictably and irregularly nested set of tids (as returned
553	* from a taxonomy form) into a linear array of tids.
554	*/
555	function _taxonomy_browser_get_tid_list($tids = null, $include_children = false) {
556	static $tid_list;
557
558	if (isset($tids) && is_array($tids)) {
559	$tid_list = array();
560	foreach ($tids as $key => $tid) {
561	if (!empty($tid)) {
562	if (is_array($tid)) {
563	foreach ($tid as $key2 => $tid2) {
564	if (!empty($tid2)) {
565	$tid_list[$tid2] = $tid2;
566	}
567	}
568	}
569	else {
570	$tid_list[$tid] = $tid;
571	}
572	} /* end !empty */
573	} /* end foreach */
574	}
575
576	if ($include_children) {
577	foreach ($tid_list as $tid) {
578	_taxonomy_browser_get_kids($tid_list, $tid);
579	}
580	}
581
582	return $tid_list;
583	}
584
585	function _taxonomy_browser_get_kids(&$tid_list, $tid) {
586	$children = taxonomy_get_children($tid);
587	if ($children) {
588	foreach ($children as $child_tid => $child_term) {
589	_taxonomy_browser_get_kids($tid_list, $child_tid);
590	}
591	}
592	else {
593	$tid_list[$tid] = $tid;
594	}
595	}
596
597	/**
598	* Provides default guideline text.
599	*/
600	function _taxonomy_browser_guidelines_default() {
601	return t('<p>You may select multiple items from each list by holding down the <code>Ctrl</code> (Mac: <code>command</code>) key while left-clicking each item.</p>');
602	}