modules/glossary/glossary.module

<?php
// $Id: glossary.module,v 1.121 2007/12/19 23:01:57 nancyw Exp $

function glossary_help($section) {
  $output = '';

  switch ($section) {
    case 'admin/help#glossary':
      return t('<p>Glossary helps newbies understand the jargon which always crops up when specialists talk about a topic. Doctors discuss CBC and EKG and CCs. Web developers keep talking about CSS, P2P, XSLT, etc. This is all intimidating for newbies.</p>
      <p>The Glossary module scans posts for glossary terms (and their synonyms) in the body. If found, the glossary indicator is inserted after the term, or the term is turned into an indicator link depending on the settings. By hovering over the indicator, users may learn the definition of that term. Clicking leads the user to that term presented within the whole glossary.</p>
      <p>Glossary terms are managed as vocabularies within the taxonomy.module. To get started with glossary, create a new vocabulary on the !taxonomy_admin page. The vocabulary need not be associated with any modules, although you can add detailed description to terms by attaching (story or other type of) nodes to them. Add a few terms to the vocabulary. The term title should be the glossary entry and the description should be its definition. You can make use of the hierarchy, synonym, and related terms features. These features impact the display of the glossary when viewed in an overview.</p>
      <p>Next, you have to setup the input formats you want to use the glossary with. At the !input_formats page select an input format to configure. Select the Glossary filter checkbox and press Save configuration. Now select the configure filters tab and select the vocabulary and apply other settings.</p>
      <p>You can see how a vocabulary would function as a glossary by going to the !glossaries page and selecting the vocabulary to view.</p>
      <p>Administration of glossary requires <em>%permissions</em> permissions.</p>',
      array('%permissions' => join(', ',
        array(t('administer taxonomy'), t('access administration pages'), t('administer filters'))),
        '!taxonomy_admin' => l(t('administer') .' &raquo; '. t('content') .' &raquo; '. t('categories'), 'admin/content/taxonomy', array(), null, null, false, true),
        '!input_formats' => l(t('administer') .' &raquo; '. t('site configuration') .' &raquo; '. t('Glossary'), 'admin/settings/glossary', array(), null, null, false, true),
        '!glossaries' => l(t('glossaries'), 'glossary')));
      break;

    case 'admin/settings/glossary':
      return '<p><big>'. t('This page and its tabs allow you to control how the Glossary module functions') .'</big></p>';
      break;

    case 'admin/modules#description':
      return t('Maintain a glossary on your site.');
      break;

    case 'filter#long-tip':
    case 'filter#short-tip':
      return t('Glossary terms will be automatically marked with links to their descriptions');
  }
}

/**
 * Implementation of hook_block().
 */
function glossary_block($op = 'list', $delta = 0, $edit = array()) {
  if ($op == 'list') {
    $blocks = array();
    $blocks[0]['info'] = t('Search for glossary terms');
    return $blocks;
  }
  else if ($op == 'view') {
    if ($delta == 0) {
      $block['subject'] = t('Search Glossary');
      $block['content'] = drupal_get_form('glossary_search_form');
    }
    return $block;
  }
}

/**
 * Implementation of hook_menu().
 *
 * This is also the place where we add a link to the CSS sheet.
 * We need the glossary filter to be a caching filter, because it is
 * relatively slow. If content is cached, no calls at all are made to
 * this module for that content. That means we can not detect when the
 * CSS sheet is actually needed. Therefore, we simply link it in always.
 * This should really happen always, so we do it when $may_cache == false.
 */
function glossary_menu($may_cache) {
  if ($may_cache) {
    $items[] = array(
      'path' => 'glossary/search',
      'title' => t('Glossary'),
      'callback' => 'glossary_search_results',
      'access' => user_access('access content'),
      'type' => MENU_CALLBACK,
      );

    $items[] = array(
      'path' => 'glossary',
      'title' => t('Glossary'),
      'callback' => 'glossary_page',
      'access' => user_access('access content'),
      'type' => MENU_SUGGESTED_ITEM,
      );

    $items[] = array(
      'path' => 'admin/settings/glossary',
      'title' => t('Glossary'),
      'callback' => 'glossary_settings_page',
      'description' => t('Select how you want the Glossary module to behave.'),
      'access' => user_access('administer filters'),
      'type' => MENU_NORMAL_ITEM,
      );

    $items[] = array(
      'path' => 'admin/settings/glossary/general',
      'title' => t('General'),
      'description' => t('General settings'),
      'callback' => 'drupal_get_form',
      'callback arguments' => array('glossary_general_settings_form'),
      'access' => user_access('administer filters'),
      'type' => MENU_DEFAULT_LOCAL_TASK,
      );

    $result = db_query('SELECT format, name FROM {filter_formats}');
    while ($filter = db_fetch_array($result)) {
      $items[] = array(
        'path' => 'admin/settings/glossary/filter'. $filter['format'],
        'title' => $filter['name'],
        'access' => user_access('administer filters'),
        'callback' => 'drupal_get_form',
        'callback arguments' => array('glossary_filter_form', $filter['format']),
        'description' => t('Settings for the !name input format.', array('!name' => $filter['name'])),
        'weight' => 2,
        'type' => MENU_LOCAL_TASK,
      );
    }
  }
  else {
    drupal_add_css(drupal_get_path('module', 'glossary') .'/glossary.css');
    if (arg(2) ) {
      $items[] = array(
        'path' => 'glossary/term/'. arg(2),
        'title' => t('Glossary'),
        'callback' => 'glossary_term',
        'callback arguments' => array(arg(2)),
        'access' => user_access('access content'),
        'type' => MENU_CALLBACK,
      );      
    }   
  }
  return $items;
}

function glossary_search_form($keys = '') {
  $form['#action'] = url('glossary/search');
  $form['#attributes'] = array('class' => 'glossary search-form');
  $form['keys'] = array(
    '#type' => 'textfield',
    '#title' => '',
    '#default_value' => $keys,
    '#size' => 20,
    '#maxlength' => 255,
    );
  $form['submit'] = array(
    '#type' => 'submit',
    '#value' => t('Search'),
    );
  return $form;
}

function glossary_search_form_submit($form_id, $form_values) {
  $keys = trim($form_values['keys']);
  return "glossary/search/$keys";
}

function glossary_search_results($keys = null) {
  $vids = _glossary_get_filter_vids();
  $output = '';

  $sql = "SELECT tid FROM {term_data} WHERE vid IN (%s) AND (description LIKE '%%%s%%' OR name LIKE '%%%s%%')";
  $result = db_query($sql, implode(',', $vids), $keys, $keys);
  while ($row = db_fetch_object($result)) {
    $term = taxonomy_get_term($row->tid);
    $output .= theme('glossary_overview_item', $term);
  }
  return $output;
}

function theme_glossary_search_form($form) {
  return '<div class="container-inline">'. drupal_render($form) .'</div>';
}

function glossary_term($tid) {
  $result = db_query('SELECT * FROM {term_data} WHERE tid = %d', $tid);
  $output .= '<dl class="glossary-list">'."\n";
  while ($row = db_fetch_object($result)) {
    $term = taxonomy_get_term($row->tid);
    $output .= theme('glossary_overview_item', $term);
    $vid = $row->vid;
  } 
  $output .= "</dl>\n";
 
  $tree = taxonomy_get_tree($vid);
  $alphabar = _glossary_alphabar($vid, $tree);   
  $output = $alphabar .'<br/>'. $output;
  return $output;
}

/*
 *  This is the introductory stuff for the settings.
 */
function glossary_settings_page() {
  $output .= drupal_get_form(glossary_general_settings_form);
  return $output;
}

function glossary_general_settings_form() {
  $form = array();
 
  $form['general'] = array(
    '#type' => 'fieldset',
    '#title' => t('General settings'),
    '#collapsible' => true,
    '#collapsed' => false,
    '#description' => $cache_msg,
    );

  $form['general']['glossary_disable_indicator'] = array(
    '#type' => 'checkbox',
    '#title' => t('Allow the user to disable glossary links'),
    '#default_value' => variable_get('glossary_disable_indicator', false),
    '#description' => t('Determines whether or not the individual user may disable the Glossary indicators.'),
    );

  // This next setting cannot vary by format since the glossary overview doesn't care or know about input formats
  $form['general']["glossary_page_per_letter"] = array(
    '#type' => 'checkbox',
    '#title' => t('Show glossary across many smaller pages'),
    '#default_value' => variable_get("glossary_page_per_letter", false),
    '#description' => t('Do you want to show all terms on one glossary page or break up the glossary into a page for each first letter (i.e. many pages).'),
    );

  return system_settings_form($form);
}

/*
 *  This is the form for the settings for an individual input format.
 */
function glossary_filter_form($format = 1) {
  $form = array();
 
  $options = array(t('<none>'));
  foreach (taxonomy_get_vocabularies() as $vocabulary) {
    $options[$vocabulary->vid] = $vocabulary->name;
  }

  // Make sure we know if we need to clear the cache.
  variable_del('glossary_need_to_clear_cache', true);

  // Get information about this filter.
  $filter = db_fetch_array(db_query('SELECT * FROM {filter_formats} WHERE format=%d LIMIT 1', $format));
  // See if we are enabled for this input format.
  $enabled = db_result(db_query("SELECT COUNT(delta) FROM {filters} WHERE format=%d AND module='glossary'", $format));
  if ($enabled) {
    $enabled_msg = null;
  }
  else {
    $enabled_msg = '<p><big>'. t('The Glossary module is not enabled for this input format. <a href="!url">Change the settings</a>.', array('!url' => url('admin/settings/filters/'. $format))) .'</big></p>';
  }

  if ($filter['cache']) {
    $cache_msg = t('This filter may be cached.');

    // Is there anything in the cache now?
    // We can't use cache_get because we would need the md5 hash of the text. 
    $cached_content = db_result(db_query("SELECT COUNT(cid) FROM {cache_filter} WHERE cid LIKE ('%d:%%')", $format));
    if ($cached_content == 0) { $cache_exist = false; }
    else {
      $cache_exist = true;
      $cache_msg .= ' '. t('There is currently cached data for this input format.');
      $dest = drupal_get_destination();
      $cache_msg .= ' '. t('<a href="!url">Clear it now.</a>', array('!url' => url('glossary/clearcache', $dest)));
    }
    $cache_lifetime = variable_get('cache_lifetime', 0);
    if ($cache_lifetime) {
      $cache_msg .= ' '. t('You are using a minimum cache lifetime of !life.', array('!life' => format_interval($cache_lifetime, 1)));
    }
    else {
      $cache_msg .= ' '. t('You do not have a minimum cache lifetime.');
    }
  }
  else {
    $cache_msg = t('This filter may not be cached.');
  }

  $form['format'] = array(
    '#type' => 'value',
    '#value' => $format,
    );

  $form['indicator'] = array(
    '#type' => 'fieldset',
    '#title' => t('Indicator settings'),
    '#collapsible' => true,
    '#collapsed' => false,
    '#description' => $enabled_msg . $cache_msg,
    );

  $form['indicator']["glossary_vids_$format"] = array(
    '#type' => 'select',
    '#title' => t('Select Vocabulary'),
    '#default_value' => variable_get("glossary_vids_$format", array()),
    '#options' => $options,
    '#description' => t('Select one or more vocabularies which hold all terms for your glossary. When enabled, posts will be scanned for glossary terms. An icon or a superscripted link is inserted beside each term. Hover over the icon or link to learn the meaning of that term.'),
    '#multiple' => true,
    '#required' => true,
    );

  $form['indicator']["glossary_absolute_$format"] = array(   /* <<============================== */
    '#type' => 'checkbox',
    '#title' => t('Make Glossary links absolute'),
    '#default_value' => variable_get("glossary_absolute_$format", false),
    '#description' => t('RSS feeds need absolute links to ensure they point back to this site. If you are not providing RSS feeds, it is better to leave this turned off.'),
    );
   
  $form['indicator']["glossary_match_$format"] = array(
    '#type' => 'select',
    '#title' => t('Match type'),
    '#default_value' => variable_get("glossary_match_$format", 'match'),
    '#options' => array(
      'b' => t('word'),
      'lr' => t('right or left substring'),
      'l' => t('left substring'),
      'r' => t('right substring'),
      's' => t('any substring'),
      ),
    '#description' => t('Choose the match type of glossary links.'),
    );

  $form['indicator']["glossary_case_$format"] = array(
    '#type' => 'select',
    '#title' => t('Case sensitivity'),
    '#default_value' => variable_get("glossary_case_$format", '1'),
    '#options' => array(
      t('case insensitive'),
      t('case sensitive')
      ),
    '#description' => t('Match either case sensitive or not. Case sensitive matches are not very resource intensive.'),
    );

  $form['indicator']["glossary_replace_all_$format"] = array(
    '#type' => 'select',
    '#title' => t('Replace matches'),
    '#default_value' => variable_get("glossary_replace_all_$format", 0),
    '#options' => array(
      t('only the first match'),
      t('all matches')
      ),
    '#description' => t('Whether only the first match should be replaced or all matches.'),
    );

  $form['indicator']["glossary_replace_$format"] = array(
    '#type' => 'select',
    '#title' => t('Term Indicator'),
    '#default_value' => variable_get("glossary_replace_$format", 'superscript'),
    '#options' => array(
      'superscript' => t('superscript'),
      'icon' => t('icon'),
      'acronym link' => t('replace with acronym link'),
      ),
    '#description' => t('Display terms using either a superscript formatted link, an icon, or an &lt;acronym&gt; tag.'),
    '#validate' => array('glossary_indicator_intercept' => array()),
    );

  $form['indicator']["glossary_superscript_$format"] = array(
    '#type' => 'textfield',
    '#title' => t('Superscript'),
    '#default_value' =>  variable_get("glossary_superscript_$format", 'i'),
    '#size' => 15,
    '#maxlength' => 255,
    '#description' => t('If you choose !superscript above, enter the superscript text.',
      array('!superscript' => '<strong>'. t('superscript') .'</strong>')),
    '#validate' => array('glossary_indicator_intercept' => array()),
    );

  $mypath = '/'. drupal_get_path('module', 'glossary');
  $form['indicator']["glossary_icon_$format"] = array(
    '#type' => 'textfield',
    '#title' => t('Glossary Icon URL'),
    '#default_value' => variable_get("glossary_icon_$format", $mypath .'/glossary.gif'),
    '#size' => 50,
    '#maxlength' => 255,
    '#description' => t('If you choose !icon above, enter the URL of the glossary icon relative to the root of your Drupal site.',
      array('!icon' => '<strong>'. t('icon') .'</strong>')),
    '#validate' => array('glossary_indicator_intercept' => array()),
    );

// Update Button
  $form['save']['attach'] = array(
    '#type' => 'submit',
    '#value' => t('Save configuration'),
    '#weight' => 5,
  );

  return $form;
}

// This function checks to see if a value has changed; if so we need to clear the filter cache.
function glossary_indicator_intercept($form) {
  if ($form['#value'] != $form['#default_value']) {
    variable_set('glossary_need_to_clear_cache', true);
  };
}

function glossary_filter_form_submit($form_id, $form_values) {
  $need_to_clear_cache = variable_get('glossary_need_to_clear_cache', false);
  if ($need_to_clear_cache) {
    _glossary_clear_cache(null, $object->vid);
  }

  $format = $form_values['format'];
  $vids_name = "glossary_vids_$format";
  $absolute_name = "glossary_absolute_$format";
  $match_name = "glossary_match_$format";
  $case_name = "glossary_case_$format";
  $replace_all_name = "glossary_replace_all_$format";
  $replace_name = "glossary_replace_$format";
  $superscript_name = "glossary_superscript_$format";
  $icon_name = "glossary_icon_$format";
  variable_set($vids_name, $form_values[$vids_name]);
  variable_set($absolute_name, $form_values[$absolute_name]);
  variable_set($match_name, $form_values[$match_name]);
  variable_set($case_name, $form_values[$case_name]);
  variable_set($replace_all_name, $form_values[$replace_all_name]);
  variable_set($replace_name, $form_values[$replace_name]);
  variable_set($superscript_name, $form_values[$superscript_name]);
  variable_set($icon_name, $form_values[$icon_name]);
  
  return;
}

function glossary_filter_tips($delta, $format, $long = false) {
  return $long ? glossary_help('filter#long-tip') : glossary_help('filter#short-tip');
}

function glossary_filter($op, $delta = 0, $format = -1, $text = "") {
  switch ($op) {
    case 'list':
      return array(0 => t('Glossary filter'));
    case 'description':
      return glossary_help('admin/modules#description');
    case 'process':
      return _glossary_filter_process($format, $text);
//    case 'settings':
//      return _glossary_filter_settings($format);
    default:
      return $text;
  }
}

function glossary_taxonomy($op, $type, $object = null) {
  if ($object) {
    _glossary_clear_cache($object->vid);
  }
}

/**
 * Implementation of hook_user().
 */
function glossary_user($type, $edit, $user) {
  switch ($type) {
    case 'form':
      // Note: this requires a setting. Do we also need to clear cache if selected?
      if (variable_get('glossary_disable_indicator', false)) {
        $form['content_glossary'] = array(
          '#type' => 'fieldset',
          '#title' => t('Glossary Indicators'),
        );
        $form['content_glossary']['glossary_disable_indicator'] = array(
          '#type' => 'checkbox',
          '#title' => t('Disable Glossary indicators'),
          '#return_value' => 1,
          '#default_value' => $user->glossary_disable_indicator,
          '#description' => t('Check this box to disable the display of Glossary indicators.'),
        );
        return $form;
      }
      break;
  }
}

function _glossary_filter_process($format, $text) {
  global $user;
  if ($user->glossary_disable_indicator) {
    return $text;
  }

  if (variable_get("glossary_vids_$format", 0)) {

    $text = ' '. $text .' ';
    $replace_mode = variable_get("glossary_replace_$format", 'superscript');
    $absolute_link = variable_get("glossary_absolute_$format", false);
    $terms = _glossary_get_terms($format);
    $vids = _glossary_get_filter_vids();

    foreach ($terms as $term) {
      $term_title = $term->name .': '. strip_tags($term->description);
      if ($term->nodes > 0) {
        $linkto = "taxonomy/term/$term->tid";
      }
      elseif (!empty($vids)) {
        $linkto = 'glossary/'. $term->vid;
      }
      else {
        $linkto = 'glossary/term/'. $term->tid;
      }
      $ins_before = $ins_after = '';
     
      switch ($replace_mode) {
        case 'superscript':
          $ins_after = l(variable_get("glossary_superscript_$format", 'i'),
            $linkto, array('title' => $term_title, 'class' => 'glossary-indicator'),
            null, null, $absolute_link);
          break;
        case 'acronym link':
          $ins_before = '<a class="glossary-term" href="'. url($linkto, null, null, $absolute_link) .'">';
          $ins_before .= '<acronym title="'. check_plain($term_title) .'">';
          $ins_after = '</acronym></a>';
          break;
        default:
          $img = "<img src=\"". variable_get("glossary_icon_$format", "glossary.gif") ."\" />";
          $ins_after = l($img, $linkto, array('title' => $term_title, 'class' => 'glossary-icon'),
            null, null, $absolute_link, true);
          break;
      }
     
      // replace term and synonyms with the desired new HTML code
      foreach ($term->synonyms as $candidate) {
        $text = _glossary_insertlink($format, $text, $candidate, $ins_before, $ins_after);
      }
    }
  }
  return $text;
}

/**
 * Insert glossary links to $text after every $match that is not inside a link.
 * $ins_before is prepended to the matches, $_insafter is appended to them.
 * Match type and replace mode all depend on user settings.
 *
 * TODO: improve performance with not keeping *2.5 copies* of the string in memory:
 *         $text                 - original
 *         $newtext              - transformed
 *         $before . $this_match - for checking stuff
 */
function _glossary_insertlink($format, &$text, $match, $ins_before, $ins_after) {

  $findfunc = (variable_get("glossary_case_$format", "1") ? 'strpos' : 'stripos');
  $next = $findfunc($text, $match);
 
  if ($next === false) { // no match at all
    return $text;
  }
  else { // at least one match
    $prevend    = 0;
    $newtext    = '';
    $matchlen   = strlen($match);
    $textlen    = strlen($text);
    $replaceall = variable_get("glossary_replace_all_$format", 0);
   
    while ($next && ($next <= $textlen)) {
     
      // get parts of the match for further investigation
      $before     = substr($text, 0, $next);
      $this_match = substr($text, $next, $matchlen);
     
      // see if we have a proper match or not
      $open  = substr_count($before, '<');
      $close = substr_count($before, '>');
      $opena  = substr_count($before, '<a ');
      $closea = substr_count($before, '</a>');
      $openacro  = substr_count($before, '<acronym');
      $closeacro = substr_count($before, '</acronym>');
      $proper_match = false;
      if ($opena <= $closea && $open <= $close && $openacro <= $closeacro) { // Not in an open link
        switch (variable_get("glossary_match_$format", 'b')) {
          case 'lr': // require word break left or right
            $proper_match = (_glossary_is_boundary($text {$next - 1}) || _glossary_is_boundary($text {$next + $matchlen}));
            break;
          case 'b': // require word break left and right
            $proper_match = (_glossary_is_boundary($text {$next - 1}) && _glossary_is_boundary($text {$next + $matchlen}));
            break;
          case 'l':  // require word break left
            $proper_match = _glossary_is_boundary($text {$next - 1});
            break;
          case 'r': // require word break right
            $proper_match = _glossary_is_boundary($text {$next + $matchlen});
            break;
          case 's': // match any substring
          default:
            $proper_match = true;
            break;
        }
      }
     
      if ($proper_match) { // found match
        $newtext .= substr($text, $prevend, ($next - $prevend)) . $ins_before . $this_match . $ins_after;
        if ($replaceall == 0) {
          return $newtext . substr($text, $next + $matchlen);
        }
      }
      else { // not applicable match
        $newtext .= substr($text, $prevend, ($next - $prevend)) . $this_match;
      }
     
      // Step further in finding the next match
      $prevend = $next + $matchlen;
      $next = $findfunc($text, $match, $prevend);
    }
    // Append remaining part
    return $newtext . substr($text, $prevend);
  }
}

function glossary_page($vid = null, $letter = null) {
  $vids = _glossary_get_filter_vids();
  $found = false;

  if (!$vid) {
    if (count($vids) == 1) {
      $vid = $vids[0];
      $found = true;
    }
  }
  else {
    $found = array_search($vid, _glossary_get_filter_vids());
  }
  if (!$vid || $found === false) {
    $breadcrumb = array(l(t('Home'), null));
    drupal_set_title(t('Glossaries'));
    drupal_set_breadcrumb($breadcrumb);
    return _glossary_list();
  }
  else {
    $voc = taxonomy_get_vocabulary($vid);
    $breadcrumb = array(l(t('Home'), null));
    if (count($vids) > 1) {
      $breadcrumb[] = l(t('Glossaries'), 'glossary');
    }
    drupal_set_title(ucwords($voc->name));
    drupal_set_breadcrumb($breadcrumb);
    return glossary_overview($voc, $letter);
  }
}

function _glossary_alphabar($vid, &$tree) {
  $blocks = array(range('0', '9'), range('a', 'z'));
  $vids = _glossary_get_filter_vids();
  $page_per_letter = variable_get('glossary_page_per_letter', false);
   
  $found_letters = array();
  foreach ($tree as $key => $term) {
    if ($term->depth == 0) {
      $firstletter = strtolower($term->name[0]);
      if (! array_key_exists($firstletter, $found_letters)) {
        $found_letters[$firstletter] = 1;
        $tree[$key]->firstletter = $firstletter;
      }
    }
  }
 
  foreach ($blocks as $block) {
    $found = false;
    foreach ($block as $entry) {
      if (array_key_exists($entry, $found_letters)) {
        $found = true;
        break;
      }
    }
    if ($found) {
      foreach ($block as $entry) {
        if (! array_key_exists($entry, $found_letters)) {
          $found_letters[$entry] = 0;
        }
      }
    }
  }

  $output = '<div class="glossary-links">';  
  $letters = array_keys($found_letters);
  sort($letters, SORT_STRING);
  $href = "glossary/$vid";
  foreach ($letters as $letter) {
    $letter_link = 'letter'. $letter;
    if ($page_per_letter) {
      $href_append .= "/$letter_link";
    }
    else {
      $fragment = $letter_link;
    }
 
    if ($found_letters[$letter]) {
      $links[] = l($letter, $href . $href_append, null, null, $fragment, false, true);
    }
    else {
      $links[] = $letter;
    }
    unset($href_append);
  }
  if (count($links)) {
    $output .= join(' ', $links);
  }
  $output .= "</div>\n";
  return $output;
}

function glossary_overview($vocab, $letter = null) {
  if ($vocab->description) { $output = '<h3>'. $vocab->description .'</h3>'; }
  else { $output = null; }
  $vid = $vocab->vid;
  if ($letter) { $first_let = substr($letter, 6); }
  else { $first_let = ''; }

  $tree = taxonomy_get_tree($vid);
  $output .= _glossary_alphabar($vid, $tree);
  $output .= '<dl class="glossary-list">';
  if ($tree) {
    foreach ($tree as $term) {
      if (!$letter || strtolower($term->name[0]) == $first_let) {
        $output .= theme('glossary_overview_item', $term);
      }
    }
  }
  $output .= '</dl>';
  $output .= glossary_admin_links($vid);
  return $output;
}

function theme_glossary_overview_item($term) {
  if (isset($term->firstletter)) {
    $output .= '<a id="letter'. $term->firstletter .'"></a>';
  }
  $output .= '<a id="term'. $term->tid .'"></a>';
  if (module_exists('taxonomy_image')) {
    $img = taxonomy_image_display($term->tid);
  }
  else {
    $img = null;
  }
  $output .= '<dt class="depth'. $term->depth .'">'. $img . $term->name;
  if (user_access('administer taxonomy')) {
    $output .= l(t('edit term'), "admin/content/taxonomy/edit/term/$term->tid",
      array('title' => t('edit this term and definition.'), 'class' => 'glossary-edit-term'));
  }
  $output .= "</dt><dd class=\"depth$term->depth\">";
  $detailed_exists = db_result(db_query('SELECT COUNT(t.nid) FROM {term_node} t JOIN {node} n USING (nid) WHERE t.tid=%d AND n.status=1', $term->tid));
  if ($detailed_exists) {
    $output .= l(t('Detailed definition'), "taxonomy/term/$term->tid");
  }
  else {
    $output .= $term->description;
  }
 
  if ($relations = taxonomy_get_related($term->tid, "name")) {
    $output .= "<span class=\"glossary-related\">". t("See also") .": ";
    foreach ($relations as $related) {
      $items[] .= l($related->name, 'glossary/'. $term->vid, null, null, "term". $related->tid);
    }
    $output .= implode(', ', $items) ."</span>\n";
    unset($items);
  }
  $output .= "</dd>\n";
  return $output;
}

function glossary_admin_links($vid) {
  $output = "";
  if (user_access('administer taxonomy')) {
    $links['glossary_add_term'] = array(
      'title' => t('add term'),
      'href' => "admin/content/taxonomy/$vid/add/term",
    );
    $links['glossary_edit'] = array(
      'title' => t('edit glossary'),
      'href' => "admin/content/taxonomy/$vid",
    );
    return theme('links', $links);
  } 
}

function _glossary_list() {
  $output = "";
  $vids = _glossary_get_filter_vids();
  $vocs = array();
  foreach ($vids as $vid) {
    $voc = taxonomy_get_vocabulary($vid);
    $vocs[$voc->name] = $voc;
  }
  uksort($vocs, _glossary_cmp_strcase);

  $header = array(t("Glossary"), t('Operations'));
  $rows = array();
  foreach ($vocs as $voc) {
    $row = array();
    $row[0] = $voc->name;
    $row[1] = l(t('view'), "glossary/". $voc->vid);
    if (user_access('administer taxonomy')) {
      $row[1] .= " ". l(t('edit'), "admin/content/taxonomy");
    }
    $rows[] = $row;
  }

  $output = theme('table', $header, $rows);
  return $output;
}

function _glossary_get_terms($format) {
  static $terms = false;
 
  if ($terms === false) {
    $terms = $synonyms = array();
    $vids = variable_get("glossary_vids_$format", 0);
   
    foreach ($vids as $vid) {
      $synonyms = _glossary_get_synonyms($vid);
   
      // Get all glossary terms and attach synonyms.
      // omit terms without a description. those are usually container terms.
      $result = db_query("SELECT t.name, t.description, t.tid, COUNT(tn.nid) as nodes FROM {term_data} t LEFT JOIN {term_node} tn ON t.tid = tn.tid WHERE t.vid = %d GROUP BY t.tid, t.name, t.description ORDER BY LENGTH(t.name) DESC", $vid);
      while ($term = db_fetch_object($result)) {
        if ($term->description) {
          $term->synonyms = $synonyms[$term->tid];
          $term->synonyms[] = $term->name;
          $term->vid = $vid;
          $terms[] = $term;
        }
      }
    }
  }
 
  return $terms;
}

// Get all synonyms for all glossary terms
function _glossary_get_synonyms($vid) {
  $result = db_query("SELECT ts.tid, ts.name FROM {term_synonym} ts, {term_data} t WHERE ts.tid = t.tid AND t.vid = %d", $vid);
  while ($synonym = db_fetch_object($result)) {
    $synonyms[$synonym->tid][] = $synonym->name;
  }
  return $synonyms;
}

// This seems to be 1.2 times faster in fine-grained testing then
// the ereg solution used before. The chars used here are from the
// grep info page.
function _glossary_is_boundary($char) {
  return (strpos("!\"#\$%&'()*+,-./:;<=>?@[\]^_`{|}~ \t\n\r", $char) !== false);
}

// Natively only available in PHP 5+
// WARNING: Eats a tremendous amount of memory!
if (!function_exists("stripos")) {
  function stripos($haystack, $needle, $offset = 0) {
    return strpos(strtoupper($haystack), strtoupper($needle), $offset);
  }
}

function _glossary_clear_cache($vid) {
  // We could throw less things away if we checked which filter formats
  // used the glossary filter, and we only threw those away. In practice,
  // most if not all formats would use the glossary filter, so we just
  // get rid of them all.
  cache_clear_all('*', 'cache_filter', true);
}

function _glossary_get_filter_vids() {
  // We can't use filter_formats() here, because we need all input formats,
  // not just those we are allowed to post in.

  $vids = array();
  $result = db_query('SELECT format FROM {filter_formats}');
  while ($format = db_fetch_object($result)) {
    $filters = filter_list_format($format->format);
    foreach ($filters as $filter) {
      if ($filter->module == "glossary") {
        $vids = array_merge($vids, variable_get("glossary_vids_". $format->format, array()));
      }
    }
  }
  return array_unique($vids);
}

function _glossary_cmp_strcase($a, $b) {
  return strcmp(strtolower($a), strtolower($b));
}