'.print_r($form_state,1));
    if ($queryvalues || isset($form_state['input']['apachesolr_search']['retain-filters'])) {
      $form['basic']['apachesolr_search']['retain-filters'] = array(
        '#type' => 'checkbox',
        '#title' => t('Retain current filters'),
        '#default_value' => (int) isset($_GET['retain-filters']),
      );
    }

    if (variable_get('apachesolr_search_spellcheck', TRUE) && $apachesolr_has_searched && ($response = apachesolr_static_response_cache())) {
      // Get spellchecker suggestions into an array.
      if (isset($response->spellcheck->suggestions) && $response->spellcheck->suggestions) {
        $suggestions = get_object_vars($response->spellcheck->suggestions);
        if ($suggestions) {
          // Get the original query and replace words.
          $query = apachesolr_current_query();

          foreach ($suggestions as $word => $value) {
            $replacements[$word] = $value->suggestion[0];
          }
          $new_keywords = strtr($query->get_query_basic(), $replacements);

          // Show only if suggestion is different than current query.
          if ($query->get_query_basic() != $new_keywords) {
            $form['apachesolr_Search']['suggestion'] = array(
              '#prefix' => '
',
              '#suffix' => '
',
              '#markup' => '' . t('Did you mean'). '' . l($new_keywords, $query->get_path($new_keywords)),
            );
          }
        }
      }
    }
  }
}

/**
 * Added form submit function to retain filters.
 *
 * @see apachesolr_search_form_search_form_alter()
 */
function apachesolr_search_form_search_submit($form, &$form_state) {
  $fv = $form_state['values'];
  $get = json_decode($fv['apachesolr_search']['get'], TRUE);
  $queryvalues = json_decode($fv['apachesolr_search']['queryvalues'], TRUE);
  if (!empty($fv['apachesolr_search']['retain-filters']) && $queryvalues) {
    $get = $queryvalues + $get;
    $get['retain-filters'] = '1';
  }
  // Add the query values into the redirect.
  $form_state['redirect'] = array($form_state['redirect'], array('query' => $get));
}

/**
 * Implements hook_form_[form_id]_alter().
 *
 * This adds options to the apachesolr admin form.
 */
function apachesolr_search_form_apachesolr_settings_alter(&$form, $form_state) {
  $form['apachesolr_search_browse'] = array(
    '#type' => 'radios',
    '#title' => t('Behavior on empty search'),
    '#options' => array(
      'none'    => t("Show search box"),
      'browse'  => t("Show search box and enabled filters' blocks under the search box"),
      'blocks'  => t("Show search box and enabled filters' blocks in their configured regions"),
      'results' => t("Show search box, enabled filters' blocks in their configured regions and first page of all available results"),
    ),
    '#default_value' => variable_get('apachesolr_search_browse', 'browse'),
    '#description' => t("This is what is shown when the user enters an empty search, or removes all filters from an active search. Remember to enable filters on the !filterslink and assign blocks to regions on the !blocklink", array(
      '!filterslink' => l('enabled filters page', 'admin/config/search/apachesolr/enabled-filters'),
      '!blocklink' => l('block settings page', 'admin/build/block'),
    )),
  );

  $form['apachesolr_search_spellcheck'] = array(
    '#type' => 'checkbox',
    '#title' => t('Enable spellchecker and suggestions'),
    '#default_value' => variable_get('apachesolr_search_spellcheck', TRUE),
    '#description' => t('Enable spellchecker and get word suggestions. Also known as the "Did you mean ... ?" feature.'),
  );

  $form['#submit'][] = 'apachesolr_search_build_spellcheck';

  if (isset($form['buttons'])) {
    // Move buttons to the bottom.
    $buttons = $form['buttons'];
    unset($form['buttons']);
    $form['buttons'] = $buttons;
  }
}

/**
 * Implements hook_form_[form_id]_alter().
 *
 * Rebuild (empty) the spellcheck dictionary when the index is deleted..
 */
function apachesolr_search_form_apachesolr_delete_index_form_alter(&$form, $form_state) {
  $form['submit']['#submit'][] = 'apachesolr_search_build_spellcheck';
}

function apachesolr_search_build_spellcheck($form, &$form_state) {
  try {
    $solr = apachesolr_get_solr();
    $params['spellcheck'] = 'true';
    $params['spellcheck.build'] = 'true';
    $response = $solr->search('solr', 0, 0, $params);
  }
  catch (Exception $e) {
    watchdog('Apache Solr', nl2br(check_plain($e->getMessage())), NULL, WATCHDOG_ERROR);
  }
}

/**
 * Implements hook_theme().
 */
function apachesolr_search_theme() {
  return array(
    'apachesolr_breadcrumb_is_book_bid' => array(
      'variables' => array('field' => NULL, 'exclude' => FALSE),
    ),
    'apachesolr_breadcrumb_uid' => array(
      'variables' => array('field' => NULL, 'exclude' => FALSE),
    ),
    'apachesolr_breadcrumb_tid' => array(
      'variables' => array('field' => NULL, 'exclude' => FALSE),
    ),
    'apachesolr_breadcrumb_type' => array(
      'variables' => array('field' => NULL, 'exclude' => FALSE),
    ),
    'apachesolr_breadcrumb_language' => array(
      'variables' => array('field' => NULL, 'exclude' => FALSE),
    ),
    'apachesolr_breadcrumb_field' => array(
      'variables' => array('field' => NULL),
    ),
    'apachesolr_breadcrumb_changed' => array(
      'variables' => array('field' => NULL),
      'function' => 'theme_apachesolr_breadcrumb_date_range',
    ),
    'apachesolr_breadcrumb_created' => array(
      'variables' => array('field' => NULL),
      'function' => 'theme_apachesolr_breadcrumb_date_range',
    ),
    'apachesolr_browse_blocks' => array(
      'variables' => array('blocks' => NULL),
    ),
    'apachesolr_currentsearch' => array(
      'variables' => array('total_found' => NULL, 'links' => NULL),
    ),
    'apachesolr_search_snippets' => array(
      'variables' => array('doc' => NULL, 'snippets' => array()),
    ),
    'apachesolr_search_noresults' => array(
      'variables' => array(),
    ),
  );
}

/**
 * Alters the function used to theme breadcrumbs
 * @param string $fieldname
 *
 */
function apachesolr_search_apachesolr_theme_breadcrumb_alter(&$fieldname) {
  $matches = preg_split('/_field_/', $fieldname);
  if (isset($matches[1])) {
    $fieldname = 'apachesolr_breadcrumb_field';
  }
}

/**
 * Theme function for fields in breadcrumbs.
 * TODO: The logic for getting here is too convoluted, and
 * there are too many bizarre naming conventions in play (_field_, _end).
 * The checks for _field_ and _end MUST get refactored.
 */
function theme_apachesolr_breadcrumb_field($vars) {
  $field = $vars['field'];
  $matches = preg_split('/_field_/', $field['#name']);
  if (isset($matches[1])) {
    $match = 'field_'.$matches[1];

    // TODO: If the apachesolr_date module is present we might
    // have fields with the suffix '_end'. These are the end-dates
    // and need the suffix removed.
    if (module_exists('apachesolr_date')) {
      $match = preg_replace('/_end{1}$/', '', $match);
    }

    //$mappings = apachesolr_cck_fields();
    $mappings = apachesolr_entity_fields('node');
    if (isset($mappings[$match]['display_callback'])) {
      $function = $mappings[$match]['display_callback'];
      if (function_exists($function)) {
        $facet = $field['#value'];
        $options = array_merge($mappings[$match], array('delta' => $matches[1]));
        return $function($facet, $options);
      }
    }
  }
  return $field['#value'];
}

function theme_apachesolr_breadcrumb_language($vars) {
  $field = $vars['field'];
  return apachesolr_search_language_name($field['#value']);
}

/**
 * Proxy theme function for 'created' and 'changed' date fields.
 */
function theme_apachesolr_breadcrumb_date_range($vars) {
  $field = $vars['field'];
  if (preg_match('@[\[\{](\S+) TO (\S+)[\]\}]@', $field['#value'], $match)) {
    return apachesolr_date_format_range($match[1], $match[2]);
  }
  return $field['#value'];
}

/**
 * Return the username from $uid
 */
function theme_apachesolr_breadcrumb_uid($vars) {
  $field = $vars['field'];
  if ($field['#value'] == 0) {
    return variable_get('anonymous', t('Anonymous'));
  }
  else {
    return db_query("SELECT name FROM {users} WHERE uid = :uid", array(':uid' => $field['#value']))->fetchField();
  }
}

/**
 * Return the term name from $tid, or $tid as a fallback.
 */
function theme_apachesolr_breadcrumb_tid($vars) {
  $field = $vars['field'];
  if (function_exists('taxonomy_term_load')) {
    if ($term = taxonomy_term_load($field['#value'])) {
      return $term->name;
    }
  }
  return $field['#value'];
}

/**
 * Return the human readable text for a content type.
 */
function theme_apachesolr_breadcrumb_type($vars) {
  $field = $vars['field'];
  return node_type_get_name($field['#value']);
}

/**
 * Return the title of a book.
 */
function theme_apachesolr_breadcrumb_is_book_bid($vars) {
  $field = $vars['field'];
  if (is_numeric($field['#value'])) {
    return db_query('SELECT title FROM {node} WHERE nid = :nid', array(':nid' => $field['#value']))->fetchField();
  }
  else {
    return t('Not in any book');
  }
}

/**
 * Return current search block contents
 */
//function theme_apachesolr_currentsearch($total_found, $links) {
function theme_apachesolr_currentsearch($vars) {
  return theme_item_list(array(
    'items' => $vars['links'],
    'title' => format_plural($vars['total_found'], 'Search found 1 item', 'Search found @count items'),
    'type' => 'ul',
    'attributes' => array()));
}

/**
 * Theme the highlighted snippet text for a search entry.
 *
 * @param array $vars
 *
 */
function theme_apachesolr_search_snippets($vars) {
  $result = '';
  if (is_array($vars['snippets'])) {
    $snippets = $vars['snippets'];
    if (isset($snippets['body'])) {
      $result .= $snippets['body'];
      unset($snippets['body']);
    }
    if (isset($snippets['teaser'])) {
      $result .= (strlen($result) > 0) ? ' ... ' : '';
      $result .= $snippets['teaser'];
      unset($snippets['teaser']);
    }
    $result .= (strlen($result) > 0) ? ' ... ' : '';
    $result .= implode(' ... ', $snippets);
  }
  return $result . ' ...';
}

/**
 * Brief message to display when no results match the query.
 *
 * @see search_help()
 */
function theme_apachesolr_search_noresults() {
  return t('

Check if your spelling is correct, or try removing filters.
Remove quotes around phrases to match each word individually: "blue drop" will match less than blue drop.
You can require or exclude terms using + and -: big +blue drop will require a match on blue while big blue -drop will exclude results that contain drop.
');
}

function apachesolr_search_get_parent_terms($tids) {
  // Find the starting tid terms and then all their parents.
  $parent_terms = array();
  $new_tids = $tids;
  do {
    $query = db_select('taxonomy_term_hierarchy', 't')
      ->fields('t', array('tid', 'parent'))
      ->innerJoin('taxonomy_term_data', 'td', 't.tid = td.tid')
      ->fields('td', array('vid', 'name', 'weight'))
      ->condition('t.tid', $new_tids, 'IN');
    $query->addTag('node_access');
    $result = $query->execute();
    $new_tids = array();
    foreach($result as $term){
      $parent_terms[$term->tid] = $term;
      if ($term->parent > 0) {
        $new_tids[] = $term->parent;
      }
    }
  } while ($new_tids);
  return $parent_terms;
}

/**
 * Return the contents of the "Current search" block.
 *
 * @param $response
 *   The Solr response object.
 * @param $query
 *   The Solr query object.
 */
function apachesolr_search_currentsearch_block($response, DrupalSolrQueryInterface $query) {
  $fields = $query->get_filters();
  $links = array();
  $facets = array();

  // If current search has keys, offer current search without them
  if ($keys = $query->get_query_basic()) {
    $links[] = theme('apachesolr_unclick_link', array(
      'facet_text' => $keys,
      'path' => $query->get_path(''),
      'options' => array('query' => $query->get_url_queryvalues())));
  }

  // We don't directly render any items with a parent.
  foreach ($fields as $index => $field) {
    $fields[$index]['#active'] = TRUE;
    if (!empty($fields[$index]['#parent']) || !$field['#name']) {
      // We will render it via its parent.
      unset($fields[$index]);
    }
  }

  $links = array_merge($links, apachesolr_search_nested_facet_items($query, $fields, $response->response->numFound, FALSE));
  if ($links) {
    $content = theme('apachesolr_currentsearch', array('total_found' => $response->response->numFound, 'links' => $links));
    return array('subject' => t('Current search'), 'content' => $content);
  }
}

/**
 * Return an array of taxonomy facets that should be displayed hierarchically.
 */
function apachesolr_search_get_hierarchical_vocabularies() {
  static $result;

  if (!isset($result)) {
    $result = array();
    if (function_exists('taxonomy_get_vocabularies')) {
      $vocabularies = taxonomy_get_vocabularies();
      $force_flat = variable_get('apachesolr_search_force_flat_vocabularies', array());
      foreach ($vocabularies as $voc) {
        // See if the vocabulary is hierarchical and not not designated to be
        // forced to display flat. Note that even free-tagging vocabs may
        // have admin-defined hierarchy.
        if ($voc->hierarchy == 1 && empty($force_flat[$voc->vid])) {
          $result[$voc->vid] = 1;
        }
      }
    }
  }

  return $result;
}