<?php
// $Id: faq.module,v 1.1.4.63.2.16 2008-02-19 10:38:39 snpower Exp $

/**
 * @file
 * The FAQ module allows users to create a FAQ page, with questions and answers
 * displayed in different styles, according to the settings.
 */

/**
 * Implementation of hook_help().
 */
function faq_help($section='') {

  $output = '';

  switch ($section) {
    case "admin/help#faq":
      $output .= '<p>'. t("This module allows users with the 'administer faq' permission to create question and answer pairs which will be displayed on the 'faq' page.  The 'faq' page is automatically generated from the FAQ nodes configured and the layout of this page can be modified on the settings page.  Users will need the 'view faq' permission in order to view the 'faq' page.") .'</p>'.
        '<p>'. t("To create a question and answer, the user must create a 'FAQ' node (Create content >> FAQ).  This screen allows the user to edit the question and answer text.  If the 'Taxonomy' module is enabled and there are some terms configured for the FAQ node type, it will also be possible to put the questions into different categories when editing.") .'</p>'.
        '<p>'. t("The 'Frequently Asked Questions' settings configuration screen will allow users with 'administer faq' permissions to specify different layouts of the questions and answers.") .'</p>'.
        '<p>'. t("All users with 'view faq' permissions will be able to view the generated FAQ page at 'www.example.com/faq'.") .'</p>';
      return $output;
    case "admin/modules#description":
      return t("Allows the user to configure the layout of questions and answers on a FAQ page.");
    case "node/add/faq":
      return t("Add a question and answer to a FAQ list.");
  }

}

/**
 * Implementation of hook_perm().
 */
function faq_perm() {
  return array('administer faq', 'view faq', 'edit own faq', 'edit faq', 'create faq');
}


/**
 * Implementation of hook_access().
 */
function faq_access($op, $node) {
  global $user;

  if ($op == 'create') {
    if (user_access('create faq') || user_access('administer faq')) {
      return TRUE;
    }
  }
  else if ($op == 'update' || $op == 'delete') {
    if (user_access('edit faq') || user_access('administer faq')) {
      return TRUE;
    }
    else if (user_access('edit own faq') && $user->uid == $node->uid) {
      return TRUE;
    }
  }
  else if ($op == 'view') {
    return user_access('view faq');
  }
}

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

  if ($may_cache) {
    $items[] = array('path' => 'admin/settings/faq',
      'title' => t('Frequently Asked Questions Settings'),
      'callback' => 'faq_settings_page',
      'access' => user_access('administer faq'),
      'description' => t('Allows the user to configure the layout of questions and answers on a FAQ page.'),
    );
    $items[] = array('path' => 'faq',
      'title' => variable_get('faq_title', t('Frequently Asked Questions')),
      'callback' => 'faq_page',
      'access' => user_access('view faq'),
      'weight' => 1
    );
    $items[] = array(
      'path' => 'admin/settings/faq/general',
      'title' => t('General'),
      'description' => t('Allows the user to configure the header and descriptive text for the FAQ page.'),
      'callback' => 'drupal_get_form',
      'callback arguments' => array('faq_general_settings_form'),
      'access' => user_access('administer faq'),
      'type' => MENU_DEFAULT_LOCAL_TASK,
      'weight' => -10,
    );
    $items[] = array(
      'path' => 'admin/settings/faq/questions',
      'title' => t('Questions'),
      'description' => t('Allows the user to configure the layout of questions and answers on a FAQ page.'),
      'callback' => 'drupal_get_form',
      'callback arguments' => array('faq_questions_settings_form'),
      'access' => user_access('administer faq'),
      'type' => MENU_LOCAL_TASK,
      'weight' => -9,
    );
    $items[] = array(
      'path' => 'admin/settings/faq/categories',
      'title' => t('Categories'),
      'description' => t('Allows the user to configure the layout of questions and answers using categories on a FAQ page.'),
      'callback' => 'drupal_get_form',
      'callback arguments' => array('faq_categories_settings_form'),
      'access' => user_access('administer faq'),
      'type' => MENU_LOCAL_TASK,
      'weight' => -8,
    );
    $items[] = array(
      'path' => 'admin/settings/faq/weight',
      'title' => t('Weight'),
      'description' => t('Allows the user to configure the order of questions and answers on a FAQ page.'),
      'callback' => 'drupal_get_form',
      'callback arguments' => array('faq_weight_settings_form'),
      'access' => user_access('administer faq'),
      'type' => MENU_LOCAL_TASK,
      'weight' => -8,
    );

    $items[] = array('path' => 'node/add/faq',
      'title' => t('FAQ'),
      'access' => user_access('create faq'),
    );
    $items[] = array('path' => 'faq',
      'title' => variable_get('faq_title', t('Frequently Asked Questions')),
      'callback' => 'faq_page',
      'access' => user_access('view faq'),
      'weight' => 1
    );

    if (arg(0) == 'faq' && is_numeric(arg(1))) {
      $items[] = array('path' => 'faq/'. arg(1),
        'title' => variable_get('faq_title', t('Frequently Asked Questions')),
        'callback' => 'faq_page',
        'callback arguments' => array(arg(1)),
        'access' => user_access('view faq'),
        'type' => MENU_CALLBACK,
      );
    }

  }

  return $items;
}

/**
 * Implementation of hook_node_info().
 *
 * Defines the FAQ node/content type.
 * @return
 *   An array, containing the title, module name and the description.
 */
function faq_node_info() {
  return array(
    'faq' => array(
      'name' => t('FAQ'),
      'module' => 'faq',
      'description' => t('A frequently asked question and its answer.'),
    )
  );
}

/**
 * Implementation of hook_node_name().
 */
function faq_node_name($node) {
  return t('FAQ');
}

/**
 * Defines the form where new questions and answers are written.
 *
 * @param &$node
 *   Current node id, if modifying existing one.
 * @return
 *   The form elements in the $form array.
 */
function faq_form(&$node) {
  $type = node_get_types('type', $node);

  // Question.
  $form['title'] = array(
    '#type' => 'textarea',
    '#title' => t('Question'),
    '#default_value' => empty($node->question) ? $node->title : $node->question,
    '#required' => TRUE,
    '#weight' => -1,
    '#rows' => 3,
    '#description' => t('Question to be answered'),
  );

  // Answer.
  $form['body_filter']['body'] = array(
    '#type' => 'textarea',
    '#title' => t('Answer'),
    '#default_value' => $node->body,
    '#rows' => 20,
    '#weight' => 0,
    '#required' => TRUE,
    '#description' => t('This is that answer to the question.  It will be filtered according to the input format.'),
  );
  $form['body_filter']['format'] = filter_form($node->format);

  return $form;
}

/**
 * Inserts the faq node question text into the 'faq_questions' table.
 *
 * @param $node
 *   The node object.
 */
function faq_insert($node) {
  $ret = db_query("INSERT INTO {faq_questions} (nid, vid, question) VALUES(%d, %d, '%s')", $node->nid, $node->vid, $node->title);
}

/**
 * Updates the faq node question text in the 'faq_questions' table.
 *
 * @param $node
 *   The node object.
 */
function faq_update($node) {
  if ($node->revision) {
    faq_insert($node);
  }
  else {
    db_query("UPDATE {faq_questions} SET question = '%s' WHERE nid = %d AND vid = %d", $node->title, $node->nid, $node->vid);
  }
}

/**
 * Deletes an FAQ node from the database.
 *
 * @param &$node
 *   Which node to delete.
 */
function faq_delete(&$node) {
  db_query('DELETE FROM {faq_weights} WHERE nid = %d', $node->nid);
  db_query('DELETE FROM {faq_questions} WHERE nid = %d', $node->nid);
}

/**
 * Initialises $node->question using the value in the 'faq_questions' table.
 *
 * @param $node
 *   The node object.
 */
function faq_load($node) {
  $result = db_fetch_object(db_query('SELECT question FROM {faq_questions} WHERE nid = %d', $node->nid));
  $node->question = $result->question;
  $node->title = $node->question;
}

/**
 * Implementation of hook_nodeapi().
 */
function faq_nodeapi(&$node, $op, $teaser, $page) {
  switch ($op) {
    case 'delete revision':
      db_query('DELETE FROM {faq_questions} WHERE nid = %d AND vid = %d', $node->nid, $node->vid);
      break;
  }
}

/**
 * Display a FAQ node.
 *
 * @param $node
 *   Which node to show.
 * @param $teaser
 *   Boolean variable, if set TRUE, it will show only a short part of the
 *   content; it should be opposite to $teaser.
 * @param $page
 *   Boolean variable, if set TRUE, it will show the entire answer of the
 *   FAQ entry.
 * @return
 *   The node object.
 */
function faq_view($node, $teaser = FALSE, $page = FALSE) {

  if ($page) {
    $breadcrumb = array();
    $breadcrumb[] = array('path' => 'node/'. $node->nid);

    if (module_exists("taxonomy") && $node->taxonomy) {
      foreach ($node->taxonomy as $term) {
        $current = $term;
        continue;
      }
      $breadcrumb[] = array(
        'path' => 'faq/'. $current->tid,
        'title' => $current->name,
      );
      while ($parents = taxonomy_get_parents($current->tid)) {
        $current = array_shift($parents);
        $breadcrumb[] = array(
          'path' => 'faq/'. $current->tid,
          'title' => $current->name,
        );
      }
    }
    $breadcrumb[] = array(
      'path' => 'faq',
      'title' => variable_get('faq_title', t('Frequently Asked Questions')),
    );
    $breadcrumb = array_reverse($breadcrumb);
    menu_set_location($breadcrumb);
  }

  $node = node_prepare($node, $teaser);

  return $node;
}

/**
 * Generates the settings form for the FAQ module.
 *
 * @param $op
 *  Default value is NULL; determines what are the permissions of the current
 *  user on the FAQ.
 * @return
 *   The output, which contains the html code for the settings form generated by *   drupal_get_form() function.
 */
function faq_settings_page($op = NULL) {

  $output .= drupal_get_form('faq_general_settings_form');

  return $output;
}

/**
 * Define a form to edit the page header and descriptive text.
 *
 * @return
 *   The general settings form code stored in the $form variable, before
 *   converted to html.
 */
function faq_general_settings_form() {
  $form['faq_title'] = array(
    '#type' => 'textfield',
    '#title' => t('Title'),
    '#default_value' => variable_get('faq_title', t('Frequently Asked Questions')),
  );

  $form['body_filter']['faq_description'] = array(
    '#type' => 'textarea',
    '#title' => t('FAQ Description'),
    '#default_value' => variable_get('faq_description', ''),
    '#description' => t('Your FAQ description.  This will be placed at the top of the page, above the questions and can serve as an introductory text.'),
    '#rows' => 5,
    );
  $form['body_filter']['faq_description_format'] = filter_form(variable_get('faq_description_format', ''));

  $form['update'] = array(
    '#type' => 'submit',
    '#value' => t('Save configuration'),
    '#weight' => 3,
  );

  return $form;
}


/**
 * Function saves the options set by the user in the FAQ Settings - General tab.
 *
 * @param $form_id
 *   The id of the form.
 * @param &$form_values
 *   Array reference containing the form values submitted.
 */
function faq_general_settings_form_submit($form_id, $form_values) {
  if ($form_values['op'] == t('Save configuration')) {
    variable_set('faq_title', $form_values['faq_title']);
    variable_set('faq_description', $form_values['faq_description']);
    variable_set('faq_description_format', $form_values['format']);

    drupal_set_message(t('Configuration has been updated.'));
  }
}

/**
 * Define the elements for the FAQ Settings page - Questions tab.
 *
 * @return
 *   The form code inside the $form array.
 */
function faq_questions_settings_form() {

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

  $display_options['questions_inline'] = t('Questions inline');
  $display_options['questions_top'] = t('Clicking on question takes user to answer further down the page');
  $display_options['hide_answer'] = t('Clicking on question opens/hides answer under question');
  $display_options['new_page'] = t('Clicking on question opens the answer in a new page');

  $form['faq_display'] = array('#type' => 'radios',
    '#options' => $display_options,
    '#title' => t('Page layout'),
    '#description' => t('This controls how the questions and answers are displayed on the page and what happens when someone clicks on the question.'),
    '#default_value' => variable_get('faq_display', 'questions_top'),
    );
  $form['faq_questions_misc'] = array(
    '#type' => 'fieldset',
    '#title' => t('Miscellaneous layout settings'),
    '#collapsible' => TRUE,
  );
  $form['faq_questions_misc']['faq_question_listing'] = array(
    '#type' => 'select',
    '#options' => array('ol' => 'Ordered list', 'ul' => 'Unordered list'),
    '#title' => t('Questions listing style'),
    '#description' => t("This allows to select how the questions listing is presented.  It only applies to the layouts: 'Clicking on question takes user to answer further down the page' and 'Clicking on question opens the answer in a new page'.  An ordered listing would number the questions, whereas an unordered list will have a bullet to the left of each question."),
    '#default_value' => variable_get('faq_question_listing', 'ul'),
    );

  $form['faq_questions_misc']['faq_qa_mark'] = array(
    '#type' => 'checkbox',
    '#title' => t('Label questions and answers'),
    '#description' => t('This option is only valid for the "Questions Inline" layout.  It labels all questions on the faq page with the "question label" setting and all answers with the "answer label" setting.  For example these could be set to "Q:" and "A:".'),
    '#default_value' => variable_get('faq_qa_mark', FALSE),
    );
  $form['faq_questions_misc']['faq_question_label'] = array(
    '#type' => 'textfield',
    '#title' => t('Question Label'),
    '#description' => t('The label to pre-pend to the question text in the "Questions Inline" layout if labelling is enabled.'),
    '#default_value' => variable_get('faq_question_label', 'Q:'),
    );
  $form['faq_questions_misc']['faq_answer_label'] = array(
    '#type' => 'textfield',
    '#title' => t('Answer Label'),
    '#description' => t('The label to pre-pend to the answer text in the "Questions Inline" layout if labelling is enabled.'),
    '#default_value' => variable_get('faq_answer_label', 'A:'),
    );

  $form['faq_questions_misc']['faq_use_teaser'] = array('#type' => 'checkbox',
    '#title' => t('Use answer teaser'),
    '#description' => t("This enables the display of the answer teaser text instead of the full answer when using the 'Questions inline' or 'Clicking on question takes user to answer further down the page' display options.  This is useful when you have long descriptive text.  The user can see the full answer by clicking on the question."),
    '#default_value' => variable_get('faq_use_teaser', FALSE),
    );

  $form['faq_questions_misc']['faq_more_link'] = array('#type' => 'textfield',
    '#title' => t('">> more" link text'),
    '#description' => t('This allows the user to change the text displayed for the links to the full answer text when teasers are used.  Leave blank to have no link.'),
    '#default_value' => variable_get('faq_more_link', '>> more'),
    );

  $form['faq_questions_misc']['faq_back_to_top'] = array('#type' => 'textfield',
    '#title' => t('"Back to Top" link text'),
    '#description' => t('This allows the user to change the text displayed for the links which return the user to the top of the page on certain page layouts.  Defaults to "Back to Top".  Leave blank to have no link.'),
    '#default_value' => variable_get('faq_back_to_top', 'Back to Top'),
    );

  return system_settings_form($form);
}

/**
 * Define the elements for the FAQ Settings page - categories tab.
 *
 * @return
 *   The form code inside the $form array.
 */
function faq_categories_settings_form() {
  if (!module_exists("taxonomy")) {
    drupal_set_message(t('Categorization of questions will not work without the "taxonomy" module being enabled.'), 'error');
  }
  drupal_add_js(drupal_get_path('module', 'faq') .'/faq.js', 'module');

  // Set up a hidden variable.
  $form['faq_display'] = array('#type' => 'hidden',
    '#value' => variable_get('faq_display', 'questions_top'),
  );

  $form['faq_use_categories'] = array('#type' => 'checkbox',
    '#title' => t('Categorize questions'),
    '#description' => t('This allows the user to display the questions according to the categories configured on the add/edit FAQ page.  Use of sub-categories is only recommended for large lists of questions.  The Taxonomy module must be enabled.'),
    '#default_value' => variable_get('faq_use_categories', FALSE),
  );

  $category_options['categories_inline'] = t('Categories inline');
  $category_options['hide_qa'] = t('Clicking on category opens/hides questions and answers under category');
  $category_options['new_page'] = t('Clicking on category opens the questions/answers in a new page');

  $form['faq_category_display'] = array('#type' => 'radios',
    '#options' => $category_options,
    '#title' => t('Categories layout'),
    '#description' => t('This controls now the categories are displayed on the page and what happens when someone clicks on the category.'),
    '#default_value' => variable_get('faq_category_display', 'categories_inline'),
    );

  $form['faq_category_misc'] = array(
    '#type' => 'fieldset',
    '#title' => t('Miscellaneous layout settings'),
    '#collapsible' => TRUE,
  );

  $form['faq_category_misc']['faq_category_listing'] = array(
    '#type' => 'select',
    '#options' => array('ol' => 'Ordered list', 'ul' => 'Unordered list'),
    '#title' => t('Categories listing style'),
    '#description' => t("This allows to select how the categories listing is presented.  It only applies to the 'Clicking on category opens the questions/answers in a new page' layout.  An ordered listing would number the categories, whereas an unordered list will have a bullet to the left of each category."),
    '#default_value' => variable_get('faq_category_listing', 'ul'),
    );

  $form['faq_category_misc']['faq_count'] = array(
    '#type' => 'checkbox',
    '#title' => t('Show FAQ count'),
    '#description' => t('This displays the number of questions in a category after the category name.'),
    '#default_value' => variable_get('faq_count', FALSE),
  );

  $form['faq_category_misc']['faq_answer_category_name'] = array('#type' => 'checkbox',
    '#title' => t('Display category name for answers'),
    '#description' => t("This allows the user to toggle the visibility of the category name above each answer section for the 'Clicking on question takes user to answer further down the page' question/answer display."),
    '#default_value' => variable_get('faq_answer_category_name', FALSE),
  );
  $form['faq_category_misc']['faq_group_questions_top'] = array('#type' => 'checkbox',
    '#title' => t("Group questions and answers for 'Categories inline'"),
    '#description' => t("This controls how categories are implemented with the 'Clicking on question takes user to answer further down the page' question/answer display."),
    '#default_value' => variable_get('faq_group_questions_top', FALSE),
  );
  $form['faq_category_misc']['faq_hide_sub_categories'] = array('#type' => 'checkbox',
    '#title' => t("Only show sub-categories when parent category is selected"),
    '#description' => t("This allows the user more control over how and when sub-categories are displayed.  It does not affect the 'Categories inline' display."),
    '#default_value' => variable_get('faq_hide_sub_categories', FALSE),
  );
  $form['faq_category_misc']['faq_show_cat_sub_cats'] = array('#type' => 'checkbox',
    '#title' => t("Show sub-categories on FAQ category pages"),
    '#description' => t("Sub-categories with 'faq' nodes will be displayed on the per category FAQ page.  This will also happen if 'Only show sub-categories when parent category is selected' is set."),
    '#default_value' => variable_get('faq_show_cat_sub_cats', FALSE),
  );


  $form['faq_category_advanced'] = array(
    '#type' => 'fieldset',
    '#title' => t('Advanced category settings'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
  );
  $vocab_options = array();
  $vocabularies = taxonomy_get_vocabularies('faq');
  foreach ($vocabularies as $vid => $vobj) {
    $vocab_options[$vid] = $vobj->name;
  }
  $form['faq_category_advanced']['faq_omit_vocabulary'] = array(
    '#type' => 'select',
    '#title' => t('Omit vocabulary'),
    '#description' => t("Terms from these vocabularies will be excluded from the FAQ pages."),
    '#default_value' => variable_get('faq_omit_vocabulary', 0),
    '#options' => $vocab_options,
    '#multiple' => TRUE,
  );

  return system_settings_form($form);
}

/**
 * Define the elements for the FAQ Settings page - weight tab.
 *
 * @param $form_values
 *   The submitted form values.
 * @return
 *   The form code, before being converted to html format.
 */
function faq_weight_settings_form($form_values = NULL) {

  drupal_add_js(drupal_get_path('module', 'faq') .'/faq.js', 'module');
  drupal_add_css(drupal_get_path('module', 'faq') .'/faq.css');

  $use_categories = variable_get('faq_use_categories', FALSE);
  if (!$use_categories) {
    $step = "order";
  }
  elseif (!isset($form_values)) {
    $step = "categories";
  }
  else {
    $step = "order";
  }
  $form['step'] = array(
    '#type' => 'value',
    '#value' => $step,
  );

  $form['#multistep'] = TRUE;
  $form['#redirect'] = FALSE;

  // Categorized q/a.
  if ($step == "categories") {

    // Get list of categories.
    $vocabularies = taxonomy_get_vocabularies('faq');
    $options = array();
    foreach ($vocabularies as $vid => $vobj) {
      $tree = taxonomy_get_tree($vid);
      foreach ($tree as $term) {
        if (!taxonomy_term_count_nodes($term->tid, 'faq')) {
          continue;
        }
        $options[$term->tid] = $term->name;
        $form['choose_cat']['faq_category'] = array(
          '#type' => 'select',
          '#title' => t("Choose a category"),
          '#description' => t("Choose a category that you wish to order the questions for."),
          '#options' => $options,
          '#multiple' => FALSE,
        );

        $form['choose_cat']['search'] = array(
          '#type' => 'submit',
          '#value' => t('Search'),
        );
      }
    }

  }

  else {
    $options = array();
    $category = $form_values['faq_category'];
    if (empty($category)) {
      $category = 0;
      $result = db_query(db_rewrite_sql("SELECT n.nid, n.title, if((w.weight IS NULL), 0, w.weight) as weight, n.sticky, n.created FROM {node} n LEFT JOIN {faq_weights} w ON n.nid = w.nid AND w.tid = %d WHERE n.type='faq' AND n.status = 1 ORDER BY weight ASC, n.sticky DESC, n.created DESC", "n", "nid"), $category);
      $date_result = db_query(db_rewrite_sql("SELECT n.nid, n.title, if((w.weight IS NULL), 0, w.weight) as weight, n.sticky, n.created FROM {node} n LEFT JOIN {faq_weights} w ON n.nid = w.nid AND w.tid = %d WHERE n.type='faq' AND n.status = 1 ORDER BY n.sticky DESC, n.created DESC", "n", "nid"), $category);
    }
    else {
      $result = db_query(db_rewrite_sql("SELECT n.nid, n.title, if((w.weight IS NULL), 0, w.weight) as weight, n.sticky, n.created FROM {node} n INNER JOIN {term_node} tn ON n.nid = tn.nid LEFT JOIN {faq_weights} w ON n.nid = w.nid AND w.tid = %d WHERE n.type='faq' AND n.status = 1 AND tn.tid = %d ORDER BY weight ASC, n.sticky DESC, n.created DESC", "n", "nid"), $category, $category);
      $date_result = db_query(db_rewrite_sql("SELECT n.nid, n.title, if((w.weight IS NULL), 0, w.weight) as weight, n.sticky, n.created FROM {node} n INNER JOIN {term_node} tn ON n.nid = tn.nid LEFT JOIN {faq_weights} w ON n.nid = w.nid AND w.tid = %d WHERE n.type='faq' AND n.status = 1 AND tn.tid = %d ORDER BY n.sticky DESC, n.created DESC", "n", "nid"), $category, $category);
    }


    while ($node = db_fetch_object($result)) {
      $title = (strlen($node->title) <= 64) ? $node->title : substr_replace($node->title, "...", 63);
      $options[$node->nid] = $title;
      $order .= "$node->nid,";
    }
    $order = rtrim($order, ",");

    while ($node = db_fetch_object($date_result)) {
      $date_options[$node->nid] = $node->title;
      $date_order .= "$node->nid,";
    }
    $date_order = rtrim($date_order, ",");

    $form['weight']['faq_node_order'] = array(
      '#type' => 'hidden',
      '#default_value' => $order,
    );
    $form['weight']['faq_node_date_order'] = array(
      '#type' => 'hidden',
      '#default_value' => $date_order,
    );
    $form['weight']['faq_category'] = array(
      '#type' => 'value',
      '#value' => $category,
    );
    $asc = '<a href="#" onclick="faq_order_by_date(\'ASC\');">ascending</a>';
    $desc = '<a href="#" onclick="faq_order_by_date(\'DESC\');">descending</a>';
    $form['weight']['order_no_cats'] = array(
      '#type' => 'select',
      '#title' => t("Question Order"),
      '#description' => t("This determines the order of the questions and answers on the FAQ page.  Just select one or more questions and use the arrows to change their position in the list.  You can also order the list by the question creation date !desc or !asc.", array('!desc' => $desc, '!asc' => $asc)),
      '#options' => $options,
      '#multiple' => TRUE,
      '#size' => min(20, count($options)),
    );
    $form['weight']['move_up'] = array(
      '#type' => 'markup',
      '#value' => '<input type="button" onclick="faq_move_selected_item_up();"
      value="&uarr;" class="faq_arrow"/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;',
    );
    $form['weight']['move_down'] = array(
      '#type' => 'markup',
      '#value' => '<input type="button" onclick="faq_move_selected_item_down();"
      value="&darr;" class="faq_arrow"/><br />',
    );

    $form['update']['attach'] = array(
      '#type' => 'submit',
      '#value' => t('Save order'),
      '#weight' => 3,
      '#attributes' => array('onclick' => 'faq_update_order();'),
    );
    $form['#redirect'] = "admin/settings/faq/weight";
  }


  return $form;
}


/**
 * Save the options set by the user in the FAQ Settings - Weight tab by writing
 * the corresponding sql queries that set the new items order, according to the
 * sql database system used.
 *
 * @param $form_id
 *   The id of the form.
 * @param &$form_values
 *   Array reference containing the form values submitted.
 */
function faq_weight_settings_form_submit($form_id, $form_values) {
  if ($form_values['op'] == t('Save order')) {

    $order = preg_split("/,/", $form_values['faq_node_order']);
    switch ($GLOBALS['db_type']) {
      case 'mysql':
      case 'mysqli':
        foreach ($order as $index => $nid) {
          $result = db_query("REPLACE INTO {faq_weights} (tid, nid, weight) VALUES(%d, %d, %d)", $form_values['faq_category'], $nid, $index);
        }
        break;

      case 'pgsql':
        foreach ($order as $index => $nid) {
          $result = db_query("DELETE FROM {faq_weights} WHERE tid = %d AND nid = %d", $form_values['faq_category'], $nid);
          $result = db_query("INSERT INTO {faq_weights} (tid, nid, weight) VALUES(%d, %d, %d)", $form_values['faq_category'], $nid, $index);
        }
        break;
    }

    drupal_set_message(t('Configuration has been updated.'));
  }
  else {
  }
}


/**
 * Function to display the faq page.
 *
 * @param $tid
 *  Default is 0, determines if the questions and answers on the page
 *  will be shown according to a category or non-categorized.
 * @return
 *  The output variable which contains an html formatted page with FAQ
 *  questions and answers.
 */
function faq_page($tid = 0) {
  // Things to provide translations for.
  $default_values = array(t('Frequently Asked Questions'), t('Back to Top'), t('>> more'), t('Q:'), t('A:'));

  drupal_add_css(drupal_get_path('module', 'faq') .'/faq.css');
  if (arg(0) == 'faq') {
    drupal_set_title(t(variable_get('faq_title', 'Frequently Asked Questions')));
  }
  if (!module_exists("taxonomy")) {
    $tid = 0;
  }

  // Configure the breadcrumb trail.
  $breadcrumb = array();

  if (!empty($tid)) {
    $current = taxonomy_get_term($tid);
    $breadcrumb[] = array('path' => 'faq/'. $tid, 'title' => $current->name);
    while ($parents = taxonomy_get_parents($current->tid)) {
      $current = array_shift($parents);
      $breadcrumb[] = array('path' => 'faq/'. $current->tid,
        'title' => $current->name,
      );
    }
    $breadcrumb[] = array('path' => 'faq',
      'title' => variable_get('faq_title', t('Frequently Asked Questions')),
    );
    $breadcrumb = array_reverse($breadcrumb);
    menu_set_location($breadcrumb);
  }


  $faq_display = variable_get('faq_display', 'questions_top');
  $display_vars['faq_qa_mark'] = variable_get('faq_qa_mark', FALSE);
  $display_vars['faq_question_label'] = variable_get('faq_question_label', "Q:");
  $display_vars['faq_answer_label'] = variable_get('faq_answer_label', "A:");
  $display_vars['back_to_top'] = variable_get('faq_back_to_top', 'Back to Top');
  $display_vars['use_teaser'] = variable_get('faq_use_teaser', FALSE);
  $display_vars['more_link'] = variable_get('faq_more_link', '>> more');
  $display_vars['faq_count'] = variable_get('faq_count', FALSE);
  $display_vars['hide_sub_categories'] = variable_get('faq_hide_sub_categories', FALSE);
  $display_vars['show_cat_sub_cats'] = variable_get('faq_show_cat_sub_cats', FALSE);
  $use_categories = variable_get('faq_use_categories', FALSE);
  if (!module_exists("taxonomy")) $use_categories = FALSE;


  // Non-categorized questions and answers.
  if (!$use_categories) {
    $result = db_query(db_rewrite_sql("SELECT n.nid, if((w.weight IS NULL), 0, w.weight) as weight, n.sticky, n.created FROM {node} n LEFT JOIN {faq_weights} w ON w.nid = n.nid WHERE n.type='faq' AND n.status = 1 AND (w.tid = 0 OR w.tid IS NULL) ORDER BY weight, n.sticky DESC, n.created DESC", "n", "nid"));

    switch ($faq_display) {
      case 'questions_top':
        $output = theme('questions_top', $result, $display_vars);
        break;

      case 'hide_answer':
        $output = theme('hide_answer', $result, $display_vars);
        break;

      case 'questions_inline':
        $output = theme('questions_inline', $result, $display_vars);
        break;

      case 'new_page':
        $output = theme('new_page', $result);
        break;

    } // End of switch.
  }


  // Categorize questions.
  else {
    $category_display = variable_get('faq_category_display', 'categories_inline');
    $hide_sub_categories = variable_get('faq_hide_sub_categories', FALSE);
    $output .= "<br />";


    // If we're viewing a specific category/term.
    if ($tid != 0) {
      $term = taxonomy_get_term($tid);
      $title = t(variable_get('faq_title', 'Frequently Asked Questions'));
      if (arg(0) == 'faq' && is_numeric(arg(1))) {
        drupal_set_title($title . ($title ? ' - ' : '') . check_plain($term->name));
      }
      if ($category_display == 'hide_qa') {
        drupal_add_js(drupal_get_path('module', 'faq') .'/faq.js', 'module');
      }
      _display_faq_by_category($faq_display, $category_display, $term, 0,
        $output, $output_answers);
      $output = '<div class="content"><div class="faq">'. $output;
      $output .= $output_answers .'</div></div>';
      return $output;
    }


    $list_style = variable_get('faq_category_listing', 'ul');
    $vocabularies = taxonomy_get_vocabularies('faq');
    $vocab_omit = variable_get('faq_omit_vocabulary', array());
    $vocabularies = array_diff_key($vocabularies, $vocab_omit);
    $items = array();
    $vocab_items = array();
    foreach ($vocabularies as $vid => $vobj) {

      if ($category_display == "new_page") {
        $vocab_items = _get_indented_faq_terms($vid, 0, $display_vars);
        $items = array_merge($items, $vocab_items);
      }

      // Not a new page.
      else {
        if ($hide_sub_categories && $category_display == 'hide_qa') {
          $tree = taxonomy_get_tree($vid, 0, -1, 1);
        }
        else {
          $tree = taxonomy_get_tree($vid);
        }
        foreach ($tree as $term) {

          switch ($category_display) {

            case 'hide_qa':
              drupal_add_js(drupal_get_path('module', 'faq') .'/faq.js', 'module');


            case 'categories_inline':
              if (taxonomy_term_count_nodes($term->tid, 'faq')) {
                _display_faq_by_category($faq_display, $category_display, $term,
                  1, $output, $output_answers);
              }
              break;


          } // End of switch (category_display).
        } // End of foreach term.
      } // End of foreach vocab.
    } // End of if $category_display != new_page.

    if ($category_display == "new_page") {
      $output = theme('item_list', $items, NULL, $list_style);
    }
  }

  $desc = '';
  $faq_description = t(variable_get('faq_description', ''));
  $format = variable_get('faq_description_format', 0);
  if ($format) {
    $faq_description = check_markup($faq_description, $format, FALSE);
  }
  if (!empty($faq_description)) {
    $desc = '<div class="faq_description">'. $faq_description ."</div>\n";
  }
  $output = '<div class="content"><div class="faq">'. $desc . $output;
  $output .= $output_answers ."</div></div>\n";

  return $output;
}


/**
 * Display FAQ questions and answers filtered by category.
 *
 *  @param $faq_display
 *    Define the way the FAQ is being shown; can have the values:
 *    'questions top',hide answers','questions inline','new page'.
 *  @param $category_display
 *    Contain which category layout should be used.
 *  @param $term
 *    Contain the category / term information.
 *  @param $display_header
 *    Set if the header will be shown or not.
 *  @param &$output
 *    Reference which holds the content of the page, html formatted.
 *  @param &$output_answer
 *    Reference which holds the answers from the FAQ, when showing questions
 *    on top.
 */
function _display_faq_by_category($faq_display, $category_display, $term, $display_header, &$output, &$output_answers) {

  $result = db_query(db_rewrite_sql("SELECT n.nid, if((w.weight IS NULL), 0, w.weight) as weight, n.sticky, n.created FROM {node} n INNER JOIN {term_node} tn ON n.nid = tn.nid LEFT JOIN {faq_weights} w ON w.tid = tn.tid AND n.nid = w.nid WHERE n.type='faq' AND n.status = 1 AND tn.tid = '%d' ORDER BY weight, n.sticky DESC, n.created DESC", "n", "nid"), $term->tid);

  $display_vars['display_header'] = $display_header;
  $display_vars['faq_display'] = $faq_display;
  $display_vars['category_display'] = $category_display;
  $display_vars['faq_qa_mark'] = variable_get('faq_qa_mark', FALSE);
  $display_vars['faq_question_label'] = variable_get('faq_question_label', "Q:");
  $display_vars['faq_answer_label'] = variable_get('faq_answer_label', "A:");
  $display_vars['use_teaser'] = variable_get('faq_use_teaser', FALSE);
  $display_vars['more_link'] = variable_get('faq_more_link', '>> more');
  $display_vars['back_to_top'] = variable_get('faq_back_to_top', 'Back to Top');
  $display_vars['faq_count'] = variable_get('faq_count', FALSE);
  $display_vars['group_questions_top'] = variable_get('faq_group_questions_top', FALSE);
  $display_vars['hide_sub_categories'] = variable_get('faq_hide_sub_categories', FALSE);
  $display_vars['show_cat_sub_cats'] = variable_get('faq_show_cat_sub_cats', FALSE);


  // Handle indenting of categories.
  $depth = 0;
  while ($depth < $term->depth) {
    $display_vars['display_header'] = 1;
    $indent = '<div class="faq_category_indent">';
    $output .= $indent;
    $depth++;
  }

  // Set up the class name for hiding the q/a for a category if required.
  $faq_class = "faq_qa";
  if ($category_display == "hide_qa") {
    $faq_class = "faq_qa_hide";
  }

  switch ($faq_display) {

    case 'questions_top':
      $data = theme('category_questions_top', $result, $display_vars, $term,
        $faq_class);
      $output .= $data["output"];
      $output_answers .= $data["output_answers"];
      break;


    case 'hide_answer':
      $output .= theme('category_hide_answer', $result, $display_vars, $term,
        $faq_class);
      break;


    case 'questions_inline':
      $output .= theme('category_questions_inline', $result, $display_vars,
        $term, $faq_class);
      break;


    case 'new_page':
      $output .= theme('category_new_page', $result, $display_vars, $term,
        $faq_class);
      break;

  } // End of switch (faq_display).


  // Handle indenting of categories.
  while ($depth > 0) {
    $output .= '</div>';
    $depth--;
  }

}

/**
 * Create the structure of the page, when the questions are to be shown on top.
 *
 * @param $result
 *   A database result object which holds a list of FAQ node ids to display.
 * @param $display_vars
 *   Structure of variables used for different settings in the aspect of the
 *   page.
 * @return
 *   A variable holding the HTML formatted page.
 */
function theme_questions_top($result, $display_vars) {

  // Configure "back to top" link.
  $back_to_top = '';
  if (!empty($display_vars['back_to_top'])) {
    $back_to_top = '<p class="faq_top_link">';
    $back_to_top .= l(t($display_vars['back_to_top']), 'faq', array(), NULL, '', FALSE, TRUE) .'</p>';
  }

  // Loop through results.
  $questions = array();
  while ($row = db_fetch_object($result)) {
    $node = node_load($row->nid);
    if (node_access("view", $node)) {
      $anchor = "n". $node->nid;

      $questions[] = l($node->question, 'faq', NULL, NULL, $anchor);

      $answers .= '<div class="faq_question">'. l($node->question,
      "node/$node->nid", array("name" => "$anchor")) ."</div>\n";

      // Should we display teaser or full text.
      if ($display_vars['use_teaser']) {
        $more_link = '';
        if (!empty($display_vars['more_link']) && strlen($node->teaser) < strlen($node->body)) {
          $more_link = '<p class="faq_more_link">';
          $more_link .= l(t($display_vars['more_link']), "node/$node->nid", array(), NULL, NULL, FALSE, TRUE) .'</p>';
        }
        $answers .= '<div class="faq_answer">';
        $answers .= check_markup($node->teaser, $node->format, FALSE);
        $answers .= $more_link . $back_to_top ."</div>\n";
      }

      // Full text.
      else {
        $answers .= '<div class="faq_answer">';
        $answers .= check_markup($node->body, $node->format, FALSE);
        $answers .= $back_to_top ."</div>\n";
      }
    }
  }

  $list_style = variable_get('faq_question_listing', 'ul');
  $output = theme('item_list', $questions, NULL, $list_style, array("class" => "faq_ul_questions_top"));
  $output .= "<div>\n". $answers ."</div>\n";

  return $output;
}

/**
 * Create the layout of the FAQ page if set to show the questions on top, all
 * sorted by categories.
 *
 * @param $result
 *   A database result object which holds a list of FAQ node ids to display.
 * @param $display_vars
 *   Structure of variables used for different settings in the aspect of the
 *   page.
 * @param $term
 *   Define the term which the taxonomy module will use.
 * @param $class
 *   CSS class which the html div will be using. A special class name is
 *   required in order to hide and questions / answers.
 * @return
 *   A variable holding the HTML formatted page.
 */
function theme_category_questions_top($result, $display_vars, $term, $class) {

  $output = '';
  $output_answers = '';
  $this_page = 'faq';
  $get_sub_terms = 0;
  if (arg(0) == 'faq' && is_numeric(arg(1))) {
    $this_page .= "/". arg(1);
    $get_sub_terms = arg(1);
  }

  // Configure "back to top" link.
  $back_to_top = '';
  if (!empty($display_vars['back_to_top'])) {
    $back_to_top = '<p class="faq_top_link">';
    $back_to_top .= l(t($display_vars['back_to_top']), $this_page, array(), NULL, '', FALSE, TRUE) .'</p>';
  }

  // Get number of questions, and account for hidden sub-cats.
  if ($display_vars['faq_count']) {
    $count = db_num_rows($result);
    if ($display_vars['hide_sub_categories']) {
      $count = taxonomy_term_count_nodes($term->tid, 'faq');
    }
  }

  // Get taxonomy image.
  $term_img = '';
  if (module_exists('taxonomy_image')) {
    $term_img = taxonomy_image_display($term->tid, 'class="faq_tax_image"');
  }

  // Configure header.
  $hdr = "h5";
  if ($term->depth > 0) $hdr = "h6";
  $header = "<$hdr class=\"faq_header\">";
  $header .= $term_img;
  if ($display_vars['category_display'] == 'hide_qa') {
    $header .= l($term->name, "faq/$term->tid");
  }
  else {
    $header .= check_plain($term->name);
  }
  if ($display_vars['faq_count']) $header .= " (%%FAQ_COUNT%%)";
  $header .= "</$hdr>\n";
  $ans_hdr = "<$hdr class=\"faq_header\">";
  $ans_hdr .= $term_img;
  $ans_hdr .= check_plain($term->name) ."</$hdr>\n";
  $ans_hdr .= '<div class="clear-block"></div>';

  // Configure category description.
  $answer_category_name = variable_get('faq_answer_category_name', FALSE);
  $desc = '';
  if (!empty($term->description)) {
    $desc = '<div class="faq_qa_description"><p>';
    $desc .= $term->description ."</p></div>\n";
  }
  $desc .= '<div class="clear-block"></div>';

  // Get list of sub-categories if necessary.
  $sub_cats = '';
  if (($display_vars['show_cat_sub_cats'] || $display_vars['hide_sub_categories']) && $display_vars['category_display'] == 'new_page') {
    $list = taxonomy_get_children($term->tid);

    $scats = array();
    foreach ($list as $tid => $sub_term) {
      $sub_count = taxonomy_term_count_nodes($sub_term->tid, 'faq');
      if ($sub_count) {

        // Configure sub cat description.
        $sub_cat_desc = '';
        if (!empty($sub_term->description)) {
          $sub_cat_desc = '<div class="faq_qa_description"><p>';
          $sub_cat_desc .= $sub_term->description ."</p></div>";
        }

        // Get taxonomy image.
        $sub_term_img = '';
        if (module_exists('taxonomy_image')) {
          $sub_term_img = taxonomy_image_display($sub_term->tid, 'class="faq_tax_image"');
        }

        // Configure sub cat header.
        if ($display_vars['faq_count']) {
          $scats_hdr = $sub_term_img . l($sub_term->name, "faq/$sub_term->tid")
            ." ($sub_count) $sub_cat_desc";
          $scats_hdr .= '<div class="clear-block"></div>';
        }
        else {
          $scats_hdr = $sub_term_img . l($sub_term->name, "faq/$sub_term->tid") . $sub_cat_desc;
          $scats_hdr .= '<div class="clear-block"></div>';
        }

        $scats[] = $scats_hdr;
      }
    }
    $list_style = variable_get('faq_category_listing', 'ul');
    $sub_cats .= theme('item_list', $scats, NULL, $list_style, array("class" => "faq_category_list"));
  }


  $output .= '<div class="faq_category_group">'."\n";
  if ($display_vars['display_header'] == 1) {
    $output .= '<div class="faq_qa_header">'. $header . $desc ."</div>\n";
  }
  else {
    $output .= '<div class="faq_qa_header">'. $term_img . $desc ."</div>\n";
  }
  $output .= $sub_cats;
  $sub_cats = '';


  if ($get_sub_terms == $term->tid) {
    $output .= '<div class="faq_qa">'."\n";
  }
  else {
    $output .= '<div class="'. $class .'">'."\n";
  }

  if (($get_sub_terms && $display_vars['category_display'] == 'categories_inline') || (($display_vars['show_cat_sub_cats'] || $display_vars['hide_sub_categories']) && $display_vars['category_display'] == 'hide_qa')) {
    $list = taxonomy_get_children($term->tid);

    foreach ($list as $tid => $sub_term) {
      if (taxonomy_term_count_nodes($sub_term->tid, 'faq')) {
        $sub_result = db_query(db_rewrite_sql("SELECT n.nid, if((w.weight IS NULL), 0, w.weight) as weight, n.sticky, n.created FROM {node} n INNER JOIN {term_node} tn ON n.nid = tn.nid LEFT JOIN {faq_weights} w ON w.tid = tn.tid AND n.nid = w.nid WHERE n.type='faq' AND n.status = 1 AND tn.tid = '%d' ORDER BY weight, n.sticky DESC, n.created DESC", "n", "nid"), $sub_term->tid);
        $display_vars['display_header'] = 1;
        $sub_cats .= '<div class="faq_category_indent">';
        $sub_cat_data = theme('category_questions_top', $sub_result, $display_vars, $sub_term, $class);
        $sub_cats .= $sub_cat_data["output"];
        $sub_cat_output_answers .= $sub_cat_data["output_answers"];
        $sub_cats .= '</div>';
      }
    }
    $output .= $sub_cats;
  }


  if (db_num_rows($result)) {
    $questions = array();
    while ($row = db_fetch_object($result)) {
      $node = node_load($row->nid);
      if (node_access("view", $node)) {
        $anchor = $term->tid ."n". $node->nid;

        $questions[] = l($node->question, $this_page, NULL, NULL, $anchor);

        $answers .= '<div class="faq_question">'. l($node->question, "node/$node->nid", array("name" => "$anchor")) ."</div>\n";

        // Should we display teaser or full text?
        if ($display_vars['use_teaser']) {
          $more_link = '';
          if (!empty($display_vars['more_link']) && strlen($node->teaser) < strlen($node->body)) {
            $more_link = '<p class="faq_more_link">';
            $more_link .= l(t($display_vars['more_link']), "node/$node->nid", array(), NULL, NULL, FALSE, TRUE) .'</p>';
          }
          $answers .= '<div class="faq_answer">';
          $answers .= check_markup($node->teaser, $node->format, FALSE);
          $answers .= $more_link . $back_to_top ."</div>\n";
        }

        // Full text.
        else {
          $answers .= '<div class="faq_answer">';
          $answers .= check_markup($node->body, $node->format, FALSE);
          $answers .= $back_to_top ."</div>\n";
        }
      }
      else {
        $count--;
      }
    } // End of while.

    $list_style = variable_get('faq_question_listing', 'ul');
    $output .= theme('item_list', $questions, NULL, $list_style, array("class" => "faq_ul_questions_top"));

  }

  if ($display_vars['group_questions_top'] || $display_vars['category_display'] == "hide_qa") {

    if ($answer_category_name) {
      if (db_num_rows($result)) {
        $output .= $ans_hdr;
        $output .= "<div>\n". $answers ."\n</div>\n";
      }
      $output .= "</div>\n</div>\n";
    }

    else {
      if (db_num_rows($result)) {
        $output .= "<div>\n". $answers ."\n</div>\n";
      }
      $output .= "</div>\n</div>\n";
    }
  }

  else {
    $output .= "</div>\n</div>\n";
    $ans_depth = 0;
    $indent = '<div class="faq_category_indent">'."\n";

    if ($answer_category_name) {
      while ($ans_depth < $term->depth) {
        $output_answers .= $indent;
        $ans_depth++;
      }
    }

    $output_answers .= '<div class="faq_category_group">'."\n";
    if ($answer_category_name) {
      if (taxonomy_term_count_nodes($term->tid, 'faq')) {
        if (!empty($sub_cat_output_answers)) {
          $sub_cat_output_answers .= $answers;
          $answers = $sub_cat_output_answers;
        }
        $output_answers .= $ans_hdr ."<div>\n". $answers ."\n</div>\n";
      }
    }
    else {
      if (!empty($sub_cat_output_answers)) {
        $output_answers .= $sub_cat_output_answers;
      }
      $output_answers .= "<div>\n". $answers ."\n</div>\n";
    }
    $output_answers .= "</div>\n";

    if ($answer_category_name) {
      while ($ans_depth > 0) {
        $output_answers .= "</div>\n";
        $ans_depth--;
      }
    }
  }

  if ($display_vars['faq_count']) $output = str_replace('%%FAQ_COUNT%%', $count, $output);
  $data["output"] = $output;
  $data["output_answers"] = $output_answers;

  return $data;
}

/**
 * Create the structure of the FAQ page if  set to show/hide the answers when
 * the question is clicked.
 *
 * @param $result
 *   A database result object which holds a list of FAQ node ids to display.
 * @param $display_vars
 *   Structure of variables used for different settings in the aspect of the
 *   page.
 * @return
 *   A variable holding the HTML formatted page.
 */
function theme_hide_answer($result, $display_vars) {
  drupal_add_js(drupal_get_path('module', 'faq') .'/faq.js', 'module');

  $output = "<div>\n";
  while ($row = db_fetch_object($result)) {
    $node = node_load($row->nid);
    if (node_access("view", $node)) {
      $output .= '<div class="faq_question faq_dt_hide_answer">';
      $output .= l($node->question, "node/$node->nid") ."</div>\n";

      // Should we display teaser or full text?
      if ($display_vars['use_teaser']) {
        $more_link = '';
        if (!empty($display_vars['more_link']) && strlen($node->teaser) < strlen($node->body)) {
          $more_link = '<p class="faq_more_link">';
          $more_link .= l(t($display_vars['more_link']), "node/$node->nid", array(), NULL, NULL, FALSE, TRUE) .'</p>';
        }
        $output .= '<div class="faq_answer faq_dd_hide_answer">';
        $output .= check_markup($node->teaser, $node->format, FALSE);
        $output .= $more_link ."</div>\n";
      }

      // Full text.
      else {
        $output .= '<div class="faq_answer faq_dd_hide_answer">';
        $output .= check_markup($node->body, $node->format, FALSE) ."</div>\n";
      }
    }
  }
  $output .= "</div>\n";

  return $output;
}

/**
 * Create the code of the FAQ page if set to show/hide the category-sorted
 * answers when the question is clicked.
 *
 * @param $result
 *   A database result object which holds a list of FAQ node ids to display.
 * @param $display_vars
 *   Structure of variables used for different settings in the aspect of the
 *   page.
 * @param $term
 *   Define the term which the taxonomy module will use.
 * @param $class
 *   CSS class which the html div will be using. A special class name is
 *   required in order to hide and questions / answers.
 * @return
 *   A variable holding the HTML formatted page.
 */
function theme_category_hide_answer($result, $display_vars, $term, $class) {

  $get_sub_terms = 0;
  if (arg(0) == 'faq' && is_numeric(arg(1))) {
    $get_sub_terms = arg(1);
  }

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

  // Get number of questions, and account for hidden sub-cats.
  if ($display_vars['faq_count']) {
    $count = db_num_rows($result);
    if ($display_vars['hide_sub_categories']) {
      $count = taxonomy_term_count_nodes($term->tid, 'faq');
    }
  }

  // Get taxonomy image.
  $term_img = '';
  if (module_exists('taxonomy_image')) {
    $term_img = taxonomy_image_display($term->tid, 'class="faq_tax_image"');
  }

  // Configure header.
  $hdr = "h5";
  if ($term->depth > 0) $hdr = "h6";
  $header = "<$hdr class=\"faq_header\">";
  $header .= $term_img;
  if ($display_vars['category_display'] == 'hide_qa') {
    $header .= l($term->name, "faq/$term->tid");
  }
  else {
    $header .= check_plain($term->name);
  }
  if ($display_vars['faq_count']) $header .= " (%%FAQ_COUNT%%)";
  $header .= "</$hdr>\n";


  // Configure category description.
  $desc = '';
  if (!empty($term->description)) {
    $desc = '<div class="faq_qa_description"><p>';
    $desc .= $term->description ."</p></div>\n";
  }
  $desc .= '<div class="clear-block"></div>';

  // Get list of sub-categories if necessary.
  $sub_cats = '';
  if (($display_vars['show_cat_sub_cats'] || $display_vars['hide_sub_categories']) && $display_vars['category_display'] == 'new_page') {
    $list = taxonomy_get_children($term->tid);

    $scats = array();
    foreach ($list as $tid => $sub_term) {
      $sub_count = taxonomy_term_count_nodes($sub_term->tid, 'faq');
      if ($sub_count) {

        // Configure sub cat description.
        $sub_cat_desc = '';
        if (!empty($sub_term->description)) {
          $sub_cat_desc = '<div class="faq_qa_description"><p>';
          $sub_cat_desc .= $sub_term->description ."</p></div>";
        }

        // Get taxonomy image.
        $sub_term_img = '';
        if (module_exists('taxonomy_image')) {
          $sub_term_img = taxonomy_image_display($sub_term->tid, 'class="faq_tax_image"');
        }

        // Configure sub cat header.
        if ($display_vars['faq_count']) {
          $scats_hdr = $sub_term_img . l($sub_term->name, "faq/$sub_term->tid") ." ($sub_count) $sub_cat_desc";
          $scats_hdr .= '<div class="clear-block"></div>';
        }
        else {
          $scats_hdr = $sub_term_img . l($sub_term->name, "faq/$sub_term->tid") . $sub_cat_desc;
          $scats_hdr .= '<div class="clear-block"></div>';
        }

        $scats[] = $scats_hdr;
      }
    }
    $list_style = variable_get('faq_category_listing', 'ul');
    $sub_cats .= theme('item_list', $scats, NULL, $list_style, array("class" => "faq_category_list"));
  }


  $output = '<div class="faq_category_group">'."\n";
  if ($display_vars['display_header'] == 1) {
    $output .= '<div class="faq_qa_header">'. $header . $desc ."</div>\n";
  }
  else {
    $output .= '<div class="faq_qa_header">'. $term_img . $desc ."</div>\n";
  }
  $output .= $sub_cats;
  $sub_cats = '';


  if ($get_sub_terms == $term->tid) {
    $output .= '<div class="faq_qa">'."\n";
  }
  else {
    $output .= '<div class="'. $class .'">'."\n";
  }


  if (($get_sub_terms && $display_vars['category_display'] == 'categories_inline') || (($display_vars['show_cat_sub_cats'] || $display_vars['hide_sub_categories']) && $display_vars['category_display'] == 'hide_qa')) {
    $list = taxonomy_get_children($term->tid);

    foreach ($list as $tid => $sub_term) {
      if (taxonomy_term_count_nodes($sub_term->tid, 'faq')) {
        $sub_result = db_query(db_rewrite_sql("SELECT n.nid, if((w.weight IS NULL), 0, w.weight) as weight, n.sticky, n.created FROM {node} n INNER JOIN {term_node} tn ON n.nid = tn.nid LEFT JOIN {faq_weights} w ON w.tid = tn.tid AND n.nid = w.nid WHERE n.type='faq' AND n.status = 1 AND tn.tid = '%d' ORDER BY weight, n.sticky DESC, n.created DESC", "n", "nid"), $sub_term->tid);
        $display_vars['display_header'] = 1;
        $sub_cats .= '<div class="faq_category_indent">';
        $sub_cats .= theme('category_hide_answer', $sub_result, $display_vars, $sub_term, $class);
        $sub_cats .= '</div>';
      }
    }
    $output .= $sub_cats;
  }


  if (db_num_rows($result)) {
    $output .= '<div class="faq_dl_hide_answer">'."\n";

    while ($row = db_fetch_object($result)) {
      $node = node_load($row->nid);
      if (node_access("view", $node)) {
        $output .= '<div class="faq_question faq_dt_hide_answer">';
        $output .= l($node->question, "node/$node->nid") ."</div>\n";
        // Should we display teaser or full text?
        if ($display_vars['use_teaser']) {
          $more_link = '';
          if (!empty($display_vars['more_link']) && strlen($node->teaser) < strlen($node->body)) {
            $more_link = '<p class="faq_more_link">';
            $more_link .= l(t($display_vars['more_link']), "node/$node->nid", array(), NULL, NULL, FALSE, TRUE) .'</p>';
          }
          $output .= '<div class="faq_answer faq_dd_hide_answer">';
          $output .= check_markup($node->teaser, $node->format, FALSE);
          $output .= $more_link ."</div>\n";
        }

        // Full text.
        else {
          $output .= '<div class="faq_answer faq_dd_hide_answer">';
          $output .= check_markup($node->body, $node->format, FALSE) ."</div>\n";
        }
      }
      else {
        $count--;
      }
    }
    $output .= "</div>\n";
  }
  $output .= "</div>\n</div>\n";

  if ($display_vars['faq_count']) $output = str_replace('%%FAQ_COUNT%%', $count, $output);
  return $output;
}

/**
 * Create the code of the FAQ page if set to show the questions inline.
 *
 * @param $result
 *   A database result object which holds a list of FAQ node ids to display.
 * @param $display_vars
 *   Structure of variables used for different settings in the aspect of the
 *   page.
 * @return
 *   A variable holding the HTML formatted page.
 */
function theme_questions_inline($result, $display_vars) {

  // Configure "back to top" link.
  $back_to_top = '';
  if (!empty($display_vars['back_to_top'])) {
    $back_to_top = '<p class="faq_top_link">';
    $back_to_top .= l(t($display_vars['back_to_top']), 'faq', array(), NULL, '', FALSE, TRUE) .'</p>';
  }

  // Configure labels.
  $que_label = '';
  $ans_label = '';
  if ($display_vars['faq_qa_mark']) {
    $que_label = t($display_vars["faq_question_label"]) .' ';
    $ans_label = '<strong>'. t($display_vars["faq_answer_label"]) .'</strong> ';
  }

  $output = "<div>\n";
  while ($row = db_fetch_object($result)) {
    $node = node_load($row->nid);
    node_invoke_nodeapi($node, 'alter');
    if (node_access("view", $node)) {
      $output .= '<div class="faq_question">';
      $output .= l($que_label . $node->question, "node/$node->nid") ."</div>\n";

      // Should we display teaser or full text?
      if ($display_vars['use_teaser']) {
        $more_link = '';
        if (!empty($display_vars['more_link']) && strlen($node->teaser) < strlen($node->body)) {
          $more_link = '<p class="faq_more_link">';
          $more_link .= l(t($display_vars['more_link']), "node/$node->nid", array(), NULL, NULL, FALSE, TRUE) .'</p>';
        }
        $output .= '<div class="faq_answer">';
        $output .= check_markup($ans_label . $node->teaser, $node->format, FALSE);
        $output .= $more_link . $back_to_top ."</div>\n";
      }

      // Full text.
      else {
        $output .= '<div class="faq_answer">';
        $output .= check_markup($ans_label . $node->body, $node->format, FALSE);
        $output .= $back_to_top ."</div>\n";
      }
    }
  }
  $output .= "</div>\n";

  return $output;
}

/**
 * Create the code of the FAQ page if set to show/hide the category-sorted
 * questions inline.
 *
 * @param $result
 *   A database result object which holds a list of FAQ node ids to display.
 * @param $display_vars
 *   Structure of variables used for different settings in the aspect of the
 *   page.
 * @param $term
 *   Define the term which the taxonomy module will use.
 * @param $class
 *   CSS class which the html div will be using. A special class name is
 *   required in order to hide and questions / answers.
 * @return
 *   A variable holding the HTML formatted page.
 */
function theme_category_questions_inline($result, $display_vars, $term, $class) {
  $this_page = 'faq';
  $get_sub_terms = 0;
  if (arg(0) == 'faq' && is_numeric(arg(1))) {
    $this_page .= "/". arg(1);
    $get_sub_terms = arg(1);
  }

  // Configure "back to top" link.
  $back_to_top = '';
  if (!empty($display_vars['back_to_top'])) {
    $back_to_top = '<p class="faq_top_link">';
    $back_to_top .= l(t($display_vars['back_to_top']), $this_page, array(), NULL, '', FALSE, TRUE) .'</p>';
  }

  // Configure labels.
  $que_label = '';
  $ans_label = '';
  if ($display_vars['faq_qa_mark']) {
    $que_label = t($display_vars["faq_question_label"]) .' ';
    $ans_label = '<strong>'. t($display_vars["faq_answer_label"]) .'</strong> ';
  }

  // Get number of questions, and account for hidden sub-cats.
  if ($display_vars['faq_count']) {
    $count = db_num_rows($result);
    if ($display_vars['hide_sub_categories']) {
      $count = taxonomy_term_count_nodes($term->tid, 'faq');
    }
  }

  // Get taxonomy image.
  $term_img = '';
  if (module_exists('taxonomy_image')) {
    $term_img = taxonomy_image_display($term->tid, 'class="faq_tax_image"');
  }

  // Configure header.
  $hdr = "h5";
  if ($term->depth > 0) $hdr = "h6";
  $header = "<$hdr class=\"faq_header\">";
  $header .= $term_img;
  if ($display_vars['category_display'] == 'hide_qa') {
    $header .= l($term->name, "faq/$term->tid");
  }
  else {
    $header .= check_plain($term->name);
  }
  if ($display_vars['faq_count']) $header .= " (%%FAQ_COUNT%%)";
  $header .= "</$hdr>\n";

  // Configure category description.
  $desc = '';
  if (!empty($term->description)) {
    $desc = '<div class="faq_qa_description"><p>';
    $desc .= $term->description ."</p></div>\n";
  }
  $desc .= '<div class="clear-block"></div>';


  // Get list of sub-categories if necessary.
  $sub_cats = '';
  if (($display_vars['show_cat_sub_cats'] || $display_vars['hide_sub_categories']) && $display_vars['category_display'] == 'new_page') {
    $list = taxonomy_get_children($term->tid);

    $scats = array();
    foreach ($list as $tid => $sub_term) {
      $sub_count = taxonomy_term_count_nodes($sub_term->tid, 'faq');
      if ($sub_count) {
        // Configure sub cat description.
        $sub_cat_desc = '';
        if (!empty($sub_term->description)) {
          $sub_cat_desc = '<div class="faq_qa_description"><p>';
          $sub_cat_desc .= $sub_term->description ."</p></div>";
        }

        // Get taxonomy image.
        $sub_term_img = '';
        if (module_exists('taxonomy_image')) {
          $sub_term_img = taxonomy_image_display($sub_term->tid, 'class="faq_tax_image"');
        }

        // Configure sub cat header.
        if ($display_vars['faq_count']) {
          $scats_hdr = $sub_term_img . l($sub_term->name, "faq/$sub_term->tid") ." ($sub_count) $sub_cat_desc";
          $scats_hdr .= '<div class="clear-block"></div>';
        }
        else {
          $scats_hdr = $sub_term_img . l($sub_term->name, "faq/$sub_term->tid") . $sub_cat_desc;
          $scats_hdr .= '<div class="clear-block"></div>';
        }

        $scats[] = $scats_hdr;
      }
    }
    $list_style = variable_get('faq_category_listing', 'ul');
    $sub_cats .= theme('item_list', $scats, NULL, $list_style, array("class" => "faq_category_list"));
  }


  $output = '<div class="faq_category_group">'."\n";
  if ($display_vars['display_header'] == 1) {
    $output .= '<div class="faq_qa_header">'. $header . $desc ."</div>\n";
  }
  else {
    $output .= '<div class="faq_qa_header">'. $term_img . $desc ."</div>\n";
  }
  $output .= $sub_cats;
  $sub_cats = '';


  if ($get_sub_terms == $term->tid) {
    $output .= '<div class="faq_qa">'."\n";
  }
  else {
    $output .= '<div class="'. $class .'">'."\n";
  }


  if (($get_sub_terms && $display_vars['category_display'] == 'categories_inline') || (($display_vars['show_cat_sub_cats'] || $display_vars['hide_sub_categories']) && $display_vars['category_display'] == 'hide_qa')) {
    $list = taxonomy_get_children($term->tid);

    foreach ($list as $tid => $sub_term) {
      if (taxonomy_term_count_nodes($sub_term->tid, 'faq')) {
        $sub_result = db_query(db_rewrite_sql("SELECT n.nid, if((w.weight IS NULL), 0, w.weight) as weight, n.sticky, n.created FROM {node} n INNER JOIN {term_node} tn ON n.nid = tn.nid LEFT JOIN {faq_weights} w ON w.tid = tn.tid AND n.nid = w.nid WHERE n.type='faq' AND n.status = 1 AND tn.tid = '%d' ORDER BY weight, n.sticky DESC, n.created DESC", "n", "nid"), $sub_term->tid);
        $display_vars['display_header'] = 1;
        $sub_cats .= '<div class="faq_category_indent">';
        $sub_cats .= theme('category_questions_inline', $sub_result, $display_vars, $sub_term, $class);
        $sub_cats .= '</div>';
      }
    }
    $output .= $sub_cats;
  }


  if (db_num_rows($result)) {
    $output .= "<div>\n";

    while ($row = db_fetch_object($result)) {
      $node = node_load($row->nid);
      if (node_access("view", $node)) {
        $output .= '<div class="faq_question">';
        $output .= l($que_label . $node->question, "node/$node->nid") ."</div>\n";

        // Should we display teaser or full text?
        if ($display_vars['use_teaser']) {
          $more_link = '';
          if (!empty($display_vars['more_link']) && strlen($node->teaser) < strlen($node->body)) {
            $more_link = '<p class="faq_more_link">';
            $more_link .= l(t($display_vars['more_link']), "node/$node->nid", array(), NULL, NULL, FALSE, TRUE) .'</p>';
          }
          $output .= '<div class="faq_answer">';
          $output .= check_markup($ans_label . $node->teaser, $node->format, FALSE);
          $output .= $more_link . $back_to_top ."</div>\n";
        }

        // Full text.
        else {
          $output .= '<div class="faq_answer">';
          $output .= check_markup($ans_label . $node->body, $node->format, FALSE);
          $output .= $back_to_top ."</div>\n";
        }
      }
      else {
        $count--;
      }
    }
    $output .= "</div>\n";
  }
  $output .= "</div>\n</div>\n";

  if ($display_vars['faq_count']) $output = str_replace('%%FAQ_COUNT%%', $count, $output);
  return $output;
}

/**
 * Create the code of the FAQ page if set to show the answer in a new page.
 *
 * @param $result
 *   A database result object which holds a list of FAQ node ids to display.
 * @return
 *   A variable holding the HTML formatted page.
 */
function theme_new_page($result) {
  $items = array();
  while ($row = db_fetch_object($result)) {
    $node = node_load($row->nid);
    if (node_access("view", $node)) {
      $items[] = l($node->question, "node/$node->nid");
    }
  }
  $list_style = variable_get('faq_question_listing', 'ul');
  $output .= theme('item_list', $items, NULL, $list_style, array("class" => "faq_question_listing"));

  return $output;
}


/**
 * Create the code of the FAQ page if set to show the answer in a new page
 * when the category-sorted question is clicked.
 *
 * @param $result
 *   A database result object which holds a list of FAQ node ids to display.
 * @param $display_vars
 *   Structure of variables used for different settings in the aspect of the
 *   page.
 * @param $term
 *   Define the term which the taxonomy module will use.
 * @param $class
 *   CSS class which the html div will be using. A special class name is
 *   required in order to hide and questions / answers.
 * @return
 *   A variable holding the HTML formatted page.
 */
function theme_category_new_page($result, $display_vars, $term, $class) {

  $get_sub_terms = 0;
  if (arg(0) == 'faq' && is_numeric(arg(1))) {
    $get_sub_terms = arg(1);
  }

  // Get number of questions, and account for hidden sub-cats.
  if ($display_vars['faq_count']) {
    $count = db_num_rows($result);
    if ($display_vars['hide_sub_categories']) {
      $count = taxonomy_term_count_nodes($term->tid, 'faq');
    }
  }

  // Get taxonomy image.
  $term_img = '';
  if (module_exists('taxonomy_image')) {
    $term_img = taxonomy_image_display($term->tid, 'class="faq_tax_image"');
  }

  // Configure header.
  $hdr = "h5";
  if ($term->depth > 0) $hdr = "h6";
  $header = "<$hdr class=\"faq_header\">";
  $header .= $term_img;
  if ($display_vars['category_display'] == 'hide_qa') {
    $header .= l($term->name, "faq/$term->tid");
  }
  else {
    $header .= check_plain($term->name);
  }
  if ($display_vars['faq_count']) $header .= " (%%FAQ_COUNT%%)";
  $header .= "</$hdr>\n";

  // Configure category description.
  $desc = '';
  if (!empty($term->description)) {
    $desc = '<div class="faq_qa_description"><p>';
    $desc .= $term->description ."</p></div>\n";
  }
  $desc .= '<div class="clear-block"></div>';

  // Get list of sub-categories if necessary.
  $sub_cats = '';
  if (($display_vars['show_cat_sub_cats'] || $display_vars['hide_sub_categories']) && $display_vars['category_display'] == 'new_page') {
    $list = taxonomy_get_children($term->tid);

    $scats = array();
    foreach ($list as $tid => $sub_term) {
      $sub_count = taxonomy_term_count_nodes($sub_term->tid, 'faq');
      if ($sub_count) {

        // Configure sub cat description.
        $sub_cat_desc = '';
        if (!empty($sub_term->description)) {
          $sub_cat_desc = '<div class="faq_qa_description"><p>';
          $sub_cat_desc .= $sub_term->description ."</p></div>";
        }

        // Get taxonomy image.
        $sub_term_img = '';
        if (module_exists('taxonomy_image')) {
          $sub_term_img = taxonomy_image_display($sub_term->tid, 'class="faq_tax_image"');
        }

        // Configure sub cat header.
        if ($display_vars['faq_count']) {
          $scats_hdr = $sub_term_img . l($sub_term->name, "faq/$sub_term->tid") ." ($sub_count) $sub_cat_desc";
          $scats_hdr .= '<div class="clear-block"></div>';
        }
        else {
          $scats_hdr = $sub_term_img . l($sub_term->name, "faq/$sub_term->tid") . $sub_cat_desc;
          $scats_hdr .= '<div class="clear-block"></div>';
        }

        $scats[] = $scats_hdr;
      }
    }
    $list_style = variable_get('faq_category_listing', 'ul');
    $sub_cats .= theme('item_list', $scats, NULL, $list_style, array("class" => "faq_category_list"));
  }


  $output = '<div class="faq_category_group">'."\n";
  if ($display_vars['display_header'] == 1) {
    $output .= '<div class="faq_qa_header">'. $header . $desc ."</div>\n";
  }
  else {
    $output .= '<div class="faq_qa_header">'. $term_img . $desc ."</div>\n";
  }
  $output .= $sub_cats;
  $sub_cats = '';

  if ($get_sub_terms == $term->tid) {
    $output .= '<div class="faq_qa">'."\n";
  }
  else {
    $output .= '<div class="'. $class .'">'."\n";
  }

  if (($get_sub_terms && $display_vars['category_display'] == 'categories_inline') || (($display_vars['show_cat_sub_cats'] || $display_vars['hide_sub_categories']) && $display_vars['category_display'] == 'hide_qa')) {
    $list = taxonomy_get_children($term->tid);

    foreach ($list as $tid => $sub_term) {
      if (taxonomy_term_count_nodes($sub_term->tid, 'faq')) {
        $sub_result = db_query(db_rewrite_sql("SELECT n.nid, if((w.weight IS NULL), 0, w.weight) as weight, n.sticky, n.created FROM {node} n INNER JOIN {term_node} tn ON n.nid = tn.nid LEFT JOIN {faq_weights} w ON w.tid = tn.tid AND n.nid = w.nid WHERE n.type='faq' AND n.status = 1 AND tn.tid = '%d' ORDER BY weight, n.sticky DESC, n.created DESC", "n", "nid"), $sub_term->tid);
        $display_vars['display_header'] = 1;
        $sub_cats .= '<div class="faq_category_indent">';
        $sub_cats .= theme('category_new_page', $sub_result, $display_vars, $sub_term, $class);
        $sub_cats .= '</div>';
      }
    }
    $output .= $sub_cats;
  }


  if (db_num_rows($result)) {
    $items = array();
    while ($row = db_fetch_object($result)) {
      $node = node_load($row->nid);
      if (node_access("view", $node)) {
        $items[] = l($node->question, "node/$node->nid");
      }
      else {
        $count--;
      }
    }
    $list_style = variable_get('faq_question_listing', 'ul');
    $output .= theme('item_list', $items, NULL, $list_style, array("class" => "faq_ul_new_page"));
  }
  $output .= "</div>\n</div>\n";

  if ($display_vars['faq_count']) $output = str_replace('%%FAQ_COUNT%%', $count, $output);
  return $output;
}

/**
 * Implementation of hook_block().
 *
 * Create the code of the FAQ page providing three block types: FAQ Categories,
 * Recent FAQs and Random FAQs.
 */
function faq_block($op = 'list', $delta = 0, $edit = array()) {

  switch ($op) {

    case 'list':
      $blocks[0]['info'] = t('FAQ Categories');
      $blocks[1]['info'] = t('Recent FAQs');
      $blocks[2]['info'] = t('Random FAQs');
      return $blocks;

    case 'view':
      switch ($delta) {
        case 0:
          // FAQ Categories.
          if (module_exists("taxonomy")) {
            $terms = array();
            $vocabularies = taxonomy_get_vocabularies('faq');
            $vocab_omit = variable_get('faq_omit_vocabulary', array());
            $vocabularies = array_diff_key($vocabularies, $vocab_omit);
            foreach ($vocabularies as $vocab) {
              foreach (taxonomy_get_tree($vocab->vid) as $term) {
                if (taxonomy_term_count_nodes($term->tid, 'faq')) {
                  $terms[$term->name] = $term->tid;
                }
              }
            }
            if (sizeof($terms) > 0) {
              $block['subject'] = t('FAQ Categories');
              $items = array();
              foreach ($terms as $name => $tid) {
                $items[] = l($name, 'faq/'. $tid);
              }
              $list_style = variable_get('faq_category_listing', 'ul');
              $block['content'] = theme('item_list', $items, NULL, $list_style);
            }
          }
          break;


        case 1:
          // Recent FAQs.
          $block['subject'] = t('Recent FAQs');
          $block['content'] = theme('faq_highlights', variable_get('faq_block_recent_faq_count', 5));
          break;

        case 2:
          // Random FAQs.
          $block['subject'] = t('Random FAQs');
          $block['content'] = theme('faq_random_highlights', variable_get('faq_block_random_faq_count', 5));
          break;

      } // End switch($delta).
      return $block;


    case 'configure':
      switch ($delta) {
        case 0:
          break;

        case 1:
          // Recent FAQs.
          $form['faq_block_recent_faq_count'] = array(
            '#type' => 'textfield',
            '#title' => t('Number of FAQs to show'),
            '#description' => t("This controls the number of FAQs that appear in the 'Recent FAQs' block"),
            '#default_value' => variable_get('faq_block_recent_faq_count', 5),
          );
          break;

        case 2:
          // Random FAQs.
          $form['faq_block_random_faq_count'] = array(
            '#type' => 'textfield',
            '#title' => t('Number of FAQs to show'),
            '#description' => t("This controls the number of FAQs that appear in the 'Random FAQs' block"),
            '#default_value' => variable_get('faq_block_random_faq_count', 5),
          );
          break;
      } // End switch($delta).

      return $form;

    case 'save':
      switch ($delta) {
        case 0:
          break;

        case 1:
          variable_set('faq_block_recent_faq_count', $edit['faq_block_recent_faq_count']);
          break;

        case 2:
          variable_set('faq_block_random_faq_count', $edit['faq_block_random_faq_count']);
          break;
      } // End switch($delta).

      return;

  } // End switch($op).

}

/**
 * Create the html output for the Recent FAQs block.
 *
 * @param $num
 *  The default value is 5; determines the number of FAQ entries to be shown.
 * @return
 *  The html-formatted code displaying the Recent FAQs.
 */
function theme_faq_highlights($num = 5) {

  $result = db_query_range(db_rewrite_sql("SELECT n.nid, n.created FROM {node} n WHERE n.type='faq' AND n.status = 1 ORDER BY n.created DESC", "n", "nid"), 0, $num);

  $items = array();
  while ($row = db_fetch_object($result)) {
    $node = node_load(array('nid' => $row->nid));
    $node = node_prepare($node);
    if (node_access("view", $node)) {
      $items[] = l($node->question, 'node/'. $node->nid);
    }
  }
  $list_style = variable_get('faq_question_listing', 'ul');
  $output = theme('item_list', $items, NULL, $list_style);
  $output .= l(t('All FAQs'), 'faq');

  return $output;
}

/**
 * Create the html output for the Random FAQs block.
 *
 * @param $num
 *  The default value is 5; determines the number of FAQ entries to be shown.
 * @return
 *  The html-formatted code displaying the Random FAQs.
 */
function theme_faq_random_highlights($num = 5) {

  $result = db_query_range(db_rewrite_sql("SELECT n.nid FROM {node} n WHERE n.type='faq' AND n.status = 1 ORDER BY RAND()", "n", "nid"), 0, $num);

  $items = array();
  while ($row = db_fetch_object($result)) {
    $node = node_load(array('nid' => $row->nid));
    $node = node_prepare($node);
    if (node_access("view", $node)) {
      $items[] = l($node->question, 'node/'. $node->nid);
    }
  }
  $list_style = variable_get('faq_question_listing', 'ul');
  $output = theme('item_list', $items, NULL, $list_style);
  $output .= l(t('All FAQs'), 'faq');

  return $output;
}

/**
 * Return a html formatted list of terms indented according to the term depth.
 *
 * @param $display_vars
 *   Structure of variables used for different settings in the aspect of the
 *   page.
 * @param $vid
 *   Vocabulary id.
 * @param $tid
 *   Term id.
 * @return
 *   Return a html formatted list of terms indented according to the term depth.
 */
function _get_indented_faq_terms($vid, $tid, $display_vars) {

  $items = array();
  $tree = taxonomy_get_tree($vid, $tid, -1, 1);

  foreach ($tree as $term) {

    $tree_count = taxonomy_term_count_nodes($term->tid, 'faq');

    if ($tree_count) {
      // Get taxonomy image.
      $term_img = '';
      if (module_exists('taxonomy_image')) {
        $term_img = taxonomy_image_display($term->tid, 'class="faq_tax_image"');
      }

      // Get term description.
      $desc = '';
      if (!empty($term->description)) {
        $desc = '<div class="faq_qa_description"><p>';
        $desc .= $term->description ."</p></div>";
      }

      // See if this term has any nodes itself, should it be a link?
      $result = db_query(db_rewrite_sql("SELECT COUNT(n.nid) AS c FROM {term_node} t INNER JOIN {node} n ON t.nid = n.nid WHERE n.status = 1 AND n.type = 'faq' AND t.tid = '%d' ", "n", "nid"), $term->tid);
      $term_count = db_fetch_object($result);

      if ($term_count->c > 0) {
        if ($display_vars["faq_count"]) {
          $count = $term_count->c;
          if ($display_vars['hide_sub_categories']) {
            $count = $tree_count;
          }
          $cur_item = $term_img . l($term->name, "faq/$term->tid") ." ($count) ". $desc;
        }
        else {
          $cur_item = $term_img . l($term->name, "faq/$term->tid") . $desc;
        }
      }
      else {
        $cur_item = $term_img . check_plain($term->name) . $desc;
      }
      $cur_item .= '<div class="clear-block"></div>';

      if (!$display_vars['hide_sub_categories']) {
        $term_items = _get_indented_faq_terms($vid, $term->tid, $display_vars);
      }
      $items[] = array("data" => $cur_item, "children" => $term_items);

    }
  }

  return $items;
}

/**
 * Gets a list of terms associated with the FAQ nodes.
 *
 * @return
 *   Return the html-formatted content.
 */
function faq_get_terms() {
  $display_vars['faq_count'] = variable_get('faq_count', FALSE);
  $display_vars['hide_sub_categories'] = variable_get('faq_hide_sub_categories', FALSE);
  $items = array();
  $vocabularies = taxonomy_get_vocabularies('faq');
  $vocab_omit = variable_get('faq_omit_vocabulary', array());
  $vocabularies = array_diff_key($vocabularies, $vocab_omit);
  foreach ($vocabularies as $vid => $vobj) {
    $vocab_items = _get_indented_faq_terms($vid, 0, $display_vars);
    $items = array_merge($items, $vocab_items);
  }
  return theme('item_list', $items);
}

/**
 * Formats the output for the faq_site_map() function.
 *
 * @return
 *   Return a list of FAQ categories if categorization is enabled, otherwise
 *   return a list of faq nodes.
 */
function faq_get_faq_list() {
  // Return list of vocab terms if categories are configured.
  $use_categories = variable_get('faq_use_categories', FALSE);
  if ($use_categories) {
    return faq_get_terms();
  }

  // Otherwise return list of weighted FAQ nodes.
  $items = array();
  $result = db_query(db_rewrite_sql("SELECT n.nid, if((w.weight IS NULL), 0, w.weight) as weight, n.sticky, n.created FROM {node} n LEFT JOIN {faq_weights} w ON w.nid = n.nid WHERE n.type='faq' AND n.status = 1 AND (w.tid = 0 OR w.tid IS NULL) ORDER BY weight, n.sticky DESC, n.created DESC", "n", "nid"));
  while ($row = db_fetch_object($result)) {
    $node = node_load($row->nid);
    if (node_access("view", $node)) {
      $items[] = l($node->question, "node/$node->nid");
    }
  }

  return theme('item_list', $items);
}

/**
 * Implementation of hook_site_map().
 *
 * Create a sitemap, by showing all the FAQ entries list - categorized or not -
 * using faq_get_faq_list() function.
 * @return
 *   Return a list of FAQ categories if categorization is enabled, otherwise
 *   return a list of faq nodes.
 */
function faq_site_map() {
  $title = variable_get('faq_title', t('Frequently Asked Questions'));
  $output = faq_get_faq_list();
  return theme('box', $title, $output);
}

/**
 * Implementation of hook_link_alter().
 *
 * Changes the term links on a node to point at the appropriate faq page.
 */
function faq_link_alter(&$node, &$links) {
  if (!variable_get('faq_use_categories', FALSE) || !module_exists("taxonomy")) {
    return;
  }
  $vocabularies = taxonomy_get_vocabularies('faq');
  $vocab_omit = variable_get('faq_omit_vocabulary', array());
  $vocabularies = array_diff_key($vocabularies, $vocab_omit);
  foreach ($links as $module => $link) {
    if (strstr($module, 'taxonomy_term')) {
      // Link back to the faq and not the taxonomy term page. We'll only
      // do this if the taxonomy term in question belongs to faq vocab.
      $tid = str_replace('taxonomy/term/', '', $link['href']);
      $term = taxonomy_get_term($tid);
      foreach ($vocabularies as $vid => $vobj) {
        if ($term->vid == $vid && taxonomy_term_count_nodes($term->tid, 'faq')) {
          $links[$module]['href'] = str_replace('taxonomy/term', 'faq', $link['href']);
          break;
        }
      }
    }
  }
}