biblio_theme.inc in Bibliography Module 7

File

includes/biblio_theme.inc

<?php

/**
 * @file
 * Copyright (C) 2006-2011  Ron Jerome.
 */
module_load_include('inc', 'biblio', 'biblio.pages');

/**
 * @param $openURL
 *
 * @return
 */
function theme_biblio_openurl($variables) {
  $open_url = $variables['openURL'];
  $openurl_image = variable_get('biblio_openurlimage', '');
  if ($openurl_image != '') {
    return '<div class="biblio-openurl-image"><a href="' . $open_url . '" target="_blank"><img border="0" src="' . $openurl_image . '"/></a></div>';
  }
  else {
    return '<div class="biblio-openurl-text"><a href="' . $open_url . '" target="_blank">' . t('Find It Via OpenURL!') . '</a></div>';
  }
}

/**
 * @param $node
 *
 * @return
 */
function biblio_openurl($node) {
  global $user;
  $open_url = '';

  // Copyright:          Matthias Steffens <mailto:[e-mail]> and the file's
  //                     original author.
  // Original Author:    Richard Karnesky <mailto:[e-mail]>  //
  // Adapted for biblio: Ron Jerome
  //  global $open_url_resolver; // these variables are defined in 'ini.inc.php'
  //  global $hostInstitutionAbbrevName;.
  $open_url_resolver = !empty($user->data['biblio_baseopenurl']) ? $user->data['biblio_baseopenurl'] : '';
  if (empty($open_url_resolver)) {
    $open_url_resolver = variable_get('biblio_baseopenurl', '');
  }
  if (!empty($open_url_resolver)) {
    $co = biblio_contextObject($node);
    $sid = "biblio:" . variable_get('site_name', 'Drupal');
    $user_sid = !empty($user->data['biblio_openurl_sid']) ? $user->data['biblio_openurl_sid'] : '';
    $co["sid"] = !empty($user_sid) ? $user_sid : variable_get('biblio_openurl_sid', $sid);
    $open_url = $open_url_resolver;
    if (!preg_match("/\\?/", $open_url_resolver)) {
      $open_url .= "?";
    }
    else {
      $open_url .= "&amp;";
    }
    $open_url .= "ctx_ver=Z39.88-2004";
    foreach ($co as $coKey => $coValue) {
      $coKey = preg_replace("/rft./", "", $coKey);
      $coKey = preg_replace("/au[0-9]*/", "au", $coKey);
      $open_url .= "&amp;" . $coKey . "=" . rawurlencode($coValue);
    }
  }
  return $open_url;
}

/**
 * Theme function for biblio_long.
 *
 * @deprecated This was the original output format which is not to flexable. It
 * will be removed.
 * @todo Remove this function.
 *
 * @param $node
 * @param $base
 * @param $style
 *
 * @return
 */
function theme_biblio_long($variables) {
  $output = '';
  $node = $variables['node'];
  if (module_exists('popups')) {
    popups_add_popups();
  }
  $output .= filter_xss($node->biblio_coins, array(
    'span',
  ));
  $layout = variable_get('biblio_node_layout', 'orig');

  // Check body value.
  $has_body = !empty($node->body);
  if (variable_get('biblio_node_layout', 'orig') == 'ft' && $has_body && user_access('view full text')) {
    $output .= '<div class="biblio-head">' . theme('biblio_style', $variables) . '</div>';
    $annotation_field = variable_get('biblio_annotations', 'none');
    if ($annotation_field != 'none' && $node->{$annotation_field}) {
      $output .= '<div class="biblio-annotation">';
      $output .= filter_xss($node->{$annotation_field}, biblio_get_allowed_tags());
      $output .= '</div>';
    }
    $full_text = field_view_field('node', $node, 'body', array(
      'label' => 'hidden',
    ));
    $output .= drupal_render($full_text);
    if (biblio_access('export', $node)) {
      $output .= theme('biblio_export_links', array(
        'node' => $node,
      ));
    }
    return $output;
  }
  foreach ((array) $node->biblio_contributors as $auth) {
    if ($auth['auth_category'] == 1) {
      $authors[] = theme('biblio_author_link', array(
        'author' => $auth,
      ));
    }
  }
  $authors = implode('; ', (array) $authors);
  $openurl_base = variable_get('biblio_baseopenurl', '');
  if ($openurl_base) {
    $output .= theme('biblio_openurl', array(
      'openURL' => biblio_openurl($node),
    ));
  }
  $output .= '<div class="biblio_type"><h3>' . t("Publication Type") . ":</h3> {$node->biblio_type_name}</div>\n";
  $output .= '<div class="biblio_authors"><h3>' . t("Authors") . ':</h3> ' . $authors . "</div>\n";
  $output .= '<div class="biblio_source"><h3>' . t("Source") . ': </h3> ';
  $source = NULL;
  if ($node->biblio_secondary_title) {
    $source .= check_plain($node->biblio_secondary_title);
  }
  if ($node->biblio_publisher) {
    $source .= $source ? ", " : "";
    $source .= check_plain($node->biblio_publisher);
  }
  if ($node->biblio_volume) {
    $source .= $source ? ", " : "";
    $source .= t('Volume') . ' ' . check_plain($node->biblio_volume);
  }
  if ($node->biblio_issue) {
    $source .= $source ? ", " : "";
    $source .= t('Issue') . ' ' . check_plain($node->biblio_issue);
  }
  if ($node->biblio_number) {
    $source .= $source ? ", " : "";
    $source .= t('Number') . ' ' . check_plain($node->biblio_number);
  }
  if ($node->biblio_place_published) {
    $source .= $source ? ", " : "";
    $source .= check_plain($node->biblio_place_published);
  }
  if ($node->biblio_pages) {
    $source .= $source ? ", " : "";
    $source .= 'p.' . check_plain($node->biblio_pages);
  }
  if (isset($node->biblio_year)) {
    $node->biblio_year = _biblio_text_year($node->biblio_year);
    $source .= ' (' . check_plain($node->biblio_year) . ')';
  }
  $output .= "{$source}</div>\n";
  if ($node->biblio_isbn) {
    $output .= '<h3>' . t("ISBN") . ':</h3> ' . check_plain($node->biblio_isbn) . "\n";
  }
  if ($node->biblio_call_number) {
    $output .= '<h3>' . t("Call Number") . ':</h3> ' . check_plain($node->biblio_call_number) . "\n";
  }
  if ($node->biblio_accession_number) {
    $output .= '<h3>' . t("Accession Number") . ':</h3> ' . check_plain($node->biblio_accession_number) . "\n";
  }
  if ($node->biblio_other_number) {
    $output .= '<h3>' . t("Other Number") . ':</h3> ' . check_plain($node->biblio_other_number) . "\n";
  }
  if ($node->biblio_url) {
    $options = variable_get('biblio_links_target_new_window') ? array(
      'attributes' => array(
        'target' => '_blank',
      ),
    ) : array();
    $output .= '<h3>' . t("URL") . ':</h3>' . l($node->biblio_url, $node->biblio_url, $options) . "\n";
  }
  if (!empty($node->biblio_keywords)) {
    $output .= '<h3>' . t("Keywords") . ':</h3> ' . _biblio_keyword_links($node->biblio_keywords) . "\n";
  }
  if ($node->biblio_abst_e) {
    $output .= '<h3>' . t("Abstract") . ':</h3> ' . check_markup($node->biblio_abst_e) . "\n";
  }
  if ($node->biblio_abst_f) {
    $output .= '<p>' . check_markup($node->biblio_abst_f) . "\n";
  }
  if ($node->biblio_notes) {
    $output .= '<h3>' . t("Notes") . ': </h3>' . check_markup($node->biblio_notes) . "\n";
  }
  if (!empty($node->body) && user_access('view full text')) {
    $full_text = field_view_field('node', $node, 'body');
    $output .= drupal_render($full_text);
  }
  return $output;
}

/**
 *
 */
function _biblio_get_field_information($biblio_type, $only_visible = FALSE) {
  $fields = array();
  $visible = $only_visible ? ' AND (bt.common = 1 OR bt.visible=1) ' : '';
  $result = db_query("SELECT b.*, btd.*, btt.name AS type_name\n                      FROM {biblio_fields} AS b\n                      INNER JOIN {biblio_field_type} AS bt ON bt.fid = b.fid\n                      INNER JOIN {biblio_field_type_data} AS btd ON btd.ftdid = bt.ftdid\n                      INNER JOIN {biblio_types} as btt ON btt.tid = bt.tid\n                      WHERE bt.tid = :tid {$visible}\n                      ORDER BY bt.weight ASC", array(
    ':tid' => $biblio_type,
  ), array(
    'fetch' => PDO::FETCH_ASSOC,
  ));
  foreach ($result as $row) {
    $fields[$row['fid']] = $row;
  }
  return $fields;
}

/**
 * @param $node
 * @param $base
 * @param $teaser
 *
 * @return
 */
function theme_biblio_tabular($variables) {
  module_load_include('inc', 'biblio', '/includes/biblio.contributors');
  $node = $variables['node'];
  $base = $variables['base'];
  static $citeproc;
  $node->biblio_type = isset($node->biblio_type) ? $node->biblio_type : NULL;
  $node->biblio_type_name = isset($node->biblio_type_name) ? $node->biblio_type_name : NULL;
  if (module_exists('popups')) {
    popups_add_popups();
  }
  $tid = $node->biblio_type;
  $fields = _biblio_get_field_information($node->biblio_type, TRUE);
  $rows[] = array(
    array(
      'data' => t('Title'),
      'class' => array(
        'biblio-row-title',
      ),
    ),
    array(
      'data' => filter_xss($node->title, biblio_get_allowed_tags()),
    ),
  );

  // Needed for preview.
  if (!isset($node->biblio_type_name) && isset($node->biblio_type)) {
    if ($pub_type = db_query('SELECT t.tid, t.name FROM {biblio_types} as t WHERE t.tid=:tid', array(
      ':tid' => $node->biblio_type,
    ))
      ->fetchObject()) {
      $node->biblio_type_name = drupal_ucfirst(_biblio_localize_type($pub_type->tid, $pub_type->name));
    }
  }
  $rows[] = array(
    array(
      'data' => t('Publication Type'),
      'class' => array(
        'biblio-row-title',
      ),
    ),
    array(
      'data' => $node->biblio_type_name,
    ),
  );
  $options = variable_get('biblio_links_target_new_window') ? array(
    'attributes' => array(
      'target' => '_blank',
    ),
  ) : array();
  $doi = '';
  if (!empty($node->biblio_doi)) {
    $doi_url = '';
    if (($doi_start = strpos($node->biblio_doi, '10.')) !== FALSE) {
      $doi = substr($node->biblio_doi, $doi_start);
      $doi_url .= 'http://dx.doi.org/' . $doi;
      $doi = l($doi, $doi_url, $options);
    }
  }
  foreach ($fields as $key => $row) {

    // Handling the contributor categories like any other field orders them correctly by weight.
    if ($row['type'] == 'contrib_widget' && ($authors = biblio_get_contributor_category($node->biblio_contributors, $row['fid']))) {
      $data = biblio_format_authors($authors);
    }
    elseif (empty($node->{$row['name']}) || $row['name'] == 'biblio_coins') {
      continue;
    }
    else {
      switch ($row['name']) {
        case 'biblio_keywords':
          $data = _biblio_keyword_links($node->{$row['name']}, $base);
          break;
        case 'biblio_url':
          $data = l($node->{$row['name']}, $node->{$row['name']}, $options);
          break;
        case 'biblio_doi':
          $data = $doi;
          break;
        default:
          if ($row['type'] == 'text_format') {
            $format = filter_default_format();
            if (!empty($node->biblio_formats)) {
              $formats = $node->biblio_formats;
              $format = isset($formats[$row['name']]) ? $formats[$row['name']] : $format;
            }
            $data = check_markup($node->{$row['name']}, $format);
          }
          else {
            $data = check_plain($node->{$row['name']});
          }
      }
    }
    $rows[] = array(
      array(
        'data' => t($row['title']),
        'class' => array(
          'biblio-row-title',
        ),
      ),
      array(
        'data' => $data,
      ),
    );
  }
  if (isset($node->body) && !empty($node->body) && user_access('view full text')) {

    // Store this in a temp variable to avoid a pass-by-reference error.
    $full_text = field_view_field('node', $node, 'body', array(
      'label' => 'hidden',
    ));
    $rows[] = array(
      array(
        'data' => t('Full Text'),
        'valign' => 'top',
      ),
      array(
        'data' => drupal_render($full_text),
      ),
    );
  }

  // Let other modules add rows if desired...
  drupal_alter('biblio_node_table_rows', $rows, $node);
  $node->biblio_coins = isset($node->biblio_coins) ? $node->biblio_coins : biblio_coins($node);
  $output = '<div id="biblio-node">';
  $output .= filter_xss($node->biblio_coins, array(
    'span',
  ));
  $header = array();
  $output .= theme('table', array(
    'header' => $header,
    'rows' => $rows,
  ));
  $output .= '</div>';
  return $output;
}

/**
 *
 */
function _biblio_get_latin1_regex() {
  $alnum = "[:alnum:]ÄÅÁÀÂÃÇÉÈÊËÑÖØÓÒÔÕÜÚÙÛÍÌÎÏÆäåáàâãçéèêëñöøóòôõüúùûíìîïæÿß";

  // Matches ISO-8859-1 letters:
  $alpha = "[:alpha:]ÄÅÁÀÂÃÇÉÈÊËÑÖØÓÒÔÕÜÚÙÛÍÌÎÏÆäåáàâãçéèêëñöøóòôõüúùûíìîïæÿß";

  // Matches ISO-8859-1 control characters:
  $cntrl = "[:cntrl:]";

  // Matches ISO-8859-1 dashes & hyphens:
  $dash = "-–";

  // Matches ISO-8859-1 digits:
  $digit = "[\\d]";

  // Matches ISO-8859-1 printing characters (excluding space):
  $graph = "[:graph:]ÄÅÁÀÂÃÇÉÈÊËÑÖØÓÒÔÕÜÚÙÛÍÌÎÏÆäåáàâãçéèêëñöøóòôõüúùûíìîïæÿß";

  // Matches ISO-8859-1 lower case letters:
  $lower = "[:lower:]äåáàâãçéèêëñöøóòôõüúùûíìîïæÿß";

  // Matches ISO-8859-1 printing characters (including space):
  $print = "[:print:]ÄÅÁÀÂÃÇÉÈÊËÑÖØÓÒÔÕÜÚÙÛÍÌÎÏÆäåáàâãçéèêëñöøóòôõüúùûíìîïæÿß";

  // Matches ISO-8859-1 punctuation:
  $punct = "[:punct:]";

  // Matches ISO-8859-1 whitespace (separating characters with no visual representation):
  $space = "[\\s]";

  // Matches ISO-8859-1 upper case letters:
  $upper = "[:upper:]ÄÅÁÀÂÃÇÉÈÊËÑÖØÓÒÔÕÜÚÙÛÍÌÎÏÆ";

  // Matches ISO-8859-1 "word" characters:
  $word = "_[:alnum:]ÄÅÁÀÂÃÇÉÈÊËÑÖØÓÒÔÕÜÚÙÛÍÌÎÏÆäåáàâãçéèêëñöøóòôõüúùûíìîïæÿß";

  // Defines the PCRE pattern modifier(s) to be used in conjunction with the above variables:
  // More info: <http://www.php.net/manual/en/reference.pcre.pattern.modifiers.php>
  $patternModifiers = "";
  return array(
    $alnum,
    $alpha,
    $cntrl,
    $dash,
    $digit,
    $graph,
    $lower,
    $print,
    $punct,
    $space,
    $upper,
    $word,
    $patternModifiers,
  );
}

/**
 * Helper function for theme_biblio_format_authors() and theme_biblio_page_number()
 */
function _biblio_get_utf8_regex() {

  // Matches Unicode letters & digits:
  // Unicode-aware equivalent of "[:alnum:]".
  $alnum = "\\p{Ll}\\p{Lu}\\p{Lt}\\p{Lo}\\p{Nd}";

  // Matches Unicode letters:
  // Unicode-aware equivalent of "[:alpha:]".
  $alpha = "\\p{Ll}\\p{Lu}\\p{Lt}\\p{Lo}";

  // Matches Unicode control codes & characters not in other categories:
  // Unicode-aware equivalent of "[:cntrl:]".
  $cntrl = "\\p{C}";

  // Matches Unicode dashes & hyphens:
  $dash = "\\p{Pd}";

  // Matches Unicode digits:
  // Unicode-aware equivalent of "[:digit:]".
  $digit = "\\p{Nd}";

  // Matches Unicode printing characters (excluding space):
  // Unicode-aware equivalent of "[:graph:]".
  $graph = "^\\p{C}\t\n\f\r\\p{Z}";

  // Matches Unicode lower case letters:
  // Unicode-aware equivalent of "[:lower:]".
  $lower = "\\p{Ll}\\p{M}";

  // Matches Unicode printing characters (including space):
  // same as "^\p{C}", Unicode-aware equivalent of "[:print:]".
  $print = "\\P{C}";

  // Matches Unicode punctuation (printing characters excluding letters & digits):
  // Unicode-aware equivalent of "[:punct:]".
  $punct = "\\p{P}";

  // Matches Unicode whitespace (separating characters with no visual representation):
  // Unicode-aware equivalent of "[:space:]".
  $space = "\t\n\f\r\\p{Z}";

  // Matches Unicode upper case letters:
  // Unicode-aware equivalent of "[:upper:]".
  $upper = "\\p{Lu}\\p{Lt}";

  // Matches Unicode "word" characters:
  // Unicode-aware equivalent of "[:word:]" (or "[:alnum:]" plus "_")
  $word = "_\\p{Ll}\\p{Lu}\\p{Lt}\\p{Lo}\\p{Nd}";

  // Defines the PCRE pattern modifier(s) to be used in conjunction with the above variables:
  // More info: <http://www.php.net/manual/en/reference.pcre.pattern.modifiers.php>
  // the "u" (PCRE_UTF8) pattern modifier causes PHP/PCRE to treat pattern strings as UTF-8.
  $patternModifiers = "u";
  return array(
    $alnum,
    $alpha,
    $cntrl,
    $dash,
    $digit,
    $graph,
    $lower,
    $print,
    $punct,
    $space,
    $upper,
    $word,
    $patternModifiers,
  );
}

/**
 *
 */
function _biblio_get_regex_patterns() {

  // Checks if PCRE is compiled with UTF-8 and Unicode support.
  if (!@preg_match('/\\pL/u', 'a')) {

    // Probably a broken PCRE library.
    return _biblio_get_latin1_regex();
  }
  else {

    // Unicode safe filter for the value.
    return _biblio_get_utf8_regex();
  }
}

/**
 *
 */
function biblio_format_authors($authors) {
  if (module_exists('biblio_citeproc')) {
    static $auth_proc;
    if (!isset($auth_proc)) {
      module_load_include('inc', 'biblio_citeproc', 'CSL');
      $csl = '<name form="long" name-as-sort-order="all" sort-separator=", " initialize-with="" delimiter=", " />';
      $csl_doc = new DOMDocument();
      $csl_doc
        ->loadXML($csl);
      $auth_proc = new csl_rendering_element($csl_doc);
    }
    $data = $auth_proc
      ->render($authors);
  }
  else {
    $style_name = biblio_get_style();
    $style_function = "biblio_style_{$style_name}" . "_author_options";
    if (!function_exists($style_function)) {
      module_load_include('inc', 'biblio', "/styles/biblio_style_{$style_name}");
    }
    $author_options = $style_function();

    // Set really high so we see all authors.
    $author_options['numberOfAuthorsTriggeringEtAl'] = 100;
    $data = theme('biblio_format_authors', array(
      'contributors' => $authors,
      'options' => $author_options,
    ));
  }
  return $data;
}

/**
 *
 */
function theme_biblio_format_authors($variables) {
  $contributors = $variables['contributors'];
  $options = $variables['options'];
  if (empty($contributors)) {
    return;
  }
  list($alnum, $alpha, $cntrl, $dash, $digit, $graph, $lower, $print, $punct, $space, $upper, $word, $patternModifiers) = _biblio_get_regex_patterns();
  $base = variable_get('biblio_base', 'biblio');
  $author_links = variable_get('biblio_author_links', 1);

  // Check how many authors we have to deal with.
  $authorCount = count($contributors);

  // This variable will hold the final author string.
  $output = "";
  $includeStringAfterFirstAuthor = FALSE;
  if (empty($options['numberOfAuthorsTriggeringEtAl'])) {
    $options['numberOfAuthorsTriggeringEtAl'] = $authorCount;
  }
  if (empty($options['includeNumberOfAuthors'])) {
    $options['includeNumberOfAuthors'] = $authorCount;
  }
  foreach ($contributors as $rank => $author) {
    if (empty($author['name'])) {
      continue;
    }
    if (!isset($author['lastname']) && empty($author['literal'])) {
      module_load_include('inc', 'biblio', '/includes/biblio.contributors');

      // This is needed for form preview to fill in all fields.
      $author = biblio_parse_author($author, $author['auth_type']);
    }
    if (empty($author['literal'])) {
      if (!empty($author['firstname'])) {

        // If we're supposed to abbreviate given names.
        if ($options['shortenGivenNames']) {

          // Within initials, reduce all full first names (-> defined by a starting uppercase character, followed by one ore more lowercase characters)
          // to initials, i.e., only retain their first character.
          $author['firstname'] = preg_replace("/([{$upper}])[{$lower}]+/{$patternModifiers}", '\\1', $author['firstname']);

          // $author['firstname'] = drupal_substr($author['firstname'], 0, 1);
          // the next line caused extra betweenInitialsDelim to appear in some circumstances
          // $author['firstname'] = preg_replace("/($space|$dash)?/$patternModifier", $options['betweenInitialsDelim'], $author['firstname']);.
        }
      }
      if (isset($author['initials'])) {

        // Within initials, remove any dots:
        $author['initials'] = preg_replace("/([{$upper}])\\.+/{$patternModifiers}", "\\1", $author['initials']);

        // $author['initials'] = str_replace('.', '',  $author['initials']);
        // Within initials, remove any spaces *between* initials:
        $author['initials'] = preg_replace("/(?<=[-{$upper}]) +(?=[-{$upper}])/{$patternModifiers}", "", $author['initials']);

        // $author['initials'] = str_replace(' ', '',  $author['initials']);
        // Within initials, add a space after a hyphen, but only if ...
        // ... the delimiter that separates initials ends with a space.
        if (preg_match('/ $/', $options['betweenInitialsDelim'])) {
          $author['initials'] = preg_replace("/-(?=[{$upper}])/{$patternModifiers}", "- ", $author['initials']);
        }

        // then, separate initials with the specified delimiter:
        $delim = $options['betweenInitialsDelim'];
        $author['initials'] = preg_replace("/([{$upper}])(?=[^{$lower}]+|\$)/{$patternModifiers}", "\\1{$delim}", $author['initials']);
        $shortenInitials = isset($options['numberOfInitialsToKeep']) ? $options['numberOfInitialsToKeep'] : FALSE;
        if ($shortenInitials) {
          $author['initials'] = drupal_substr($author['initials'], 0, $shortenInitials);
        }
        if ($options['shortenGivenNames'] && !empty($author['firstname'])) {
          $author['firstname'] = $author['firstname'] . $options['betweenInitialsDelim'] . $author['initials'];
          if ($shortenInitials) {
            $author['firstname'] = drupal_substr($author['firstname'], 0, $shortenInitials);
          }
        }
        elseif (!empty($author['firstname'])) {
          $author['firstname'] = $author['firstname'] . ' ' . $author['initials'];
        }
        elseif (empty($author['firstname'])) {
          $author['firstname'] = $author['initials'];
        }
      }

      // Remove double periods which can exist if a first name is entered as an
      // initial followed by a period.
      $author['firstname'] = preg_replace('/\\.{2,}/', '.', $author['firstname']);

      // If there is a surname prefix like "van", "von" etc, stick it back before the last name.
      if (!empty($author['prefix'])) {
        $author['lastname'] = $author['prefix'] . ' ' . $author['lastname'];
      }
      if (!empty($author['suffix'])) {
        $author['lastname'] = $author['lastname'] . ', ' . $author['suffix'];
      }
      if (!empty($author['firstname'])) {

        // -> first author.
        if ($rank == 0) {
          if ($options['initialsBeforeAuthorFirstAuthor']) {
            $author['name'] = $author['firstname'] . $options['AuthorsInitialsDelimFirstAuthor'] . $author['lastname'];
          }
          else {
            $author['name'] = $author['lastname'] . $options['AuthorsInitialsDelimFirstAuthor'] . $author['firstname'];
          }
        }
        else {
          if ($options['initialsBeforeAuthorStandard']) {
            $author['name'] = $author['firstname'] . $options['AuthorsInitialsDelimStandard'] . $author['lastname'];
          }
          else {
            $author['name'] = $author['lastname'] . $options['AuthorsInitialsDelimStandard'] . $author['firstname'];
          }
        }
      }
      else {
        $author['name'] = $author['lastname'];
      }
    }
    if ($author_links) {
      $author['name'] = theme('biblio_author_link', array(
        'author' => $author,
      ));
    }
    else {
      $author['name'] = check_plain($author['name']);
    }

    // Append this author to the final author string:
    // -> first author, or (for multiple authors) all authors except the last one.
    if ($rank == 0 or $rank + 1 < $authorCount) {

      // -> first author.
      if ($rank == 0) {
        $output .= $author['name'];
      }
      else {
        $output .= $options['BetweenAuthorsDelimStandard'] . $author['name'];
      }

      // we'll append the string in '$customStringAfterFirstAuthors' to the number of authors given in '$includeNumberOfAuthors' if the total number of authors is greater than the number given in '$numberOfAuthorsTriggeringEtAl':
      if ($rank + 1 == $options['includeNumberOfAuthors'] and $authorCount > $options['numberOfAuthorsTriggeringEtAl']) {
        if (preg_match("/__NUMBER_OF_AUTHORS__/", $options['customStringAfterFirstAuthors'])) {

          // Resolve placeholder.
          $customStringAfterFirstAuthors = preg_replace("/__NUMBER_OF_AUTHORS__/", $authorCount - $options['includeNumberOfAuthors'], $options['customStringAfterFirstAuthors']);
        }
        $includeStringAfterFirstAuthor = TRUE;
        break;
      }
    }
    elseif ($authorCount > 1 and $rank + 1 == $authorCount) {
      $output .= $options['BetweenAuthorsDelimLastAuthor'] . $author['name'];
    }
  }

  // Do some final clean up:
  // if ($options['encodeHTML'])
  // $output = encodeHTML($output); // HTML encode higher ASCII characters within the newly arranged author contents.
  if ($includeStringAfterFirstAuthor) {

    // The custom string won't get HTML encoded so that it's possible to include HTML tags (such as '<i>') within the string.
    $output .= $options['customStringAfterFirstAuthors'];
  }

  // Remove double spaces (which occur e.g., when both, $betweenInitialsDelim & $newAuthorsInitialsDelim..., end with a space)
  $output = preg_replace("/  +/", " ", $output);

  // Remove excess spaces before [,.;:?!()] and from the end of the author string.
  $output = preg_replace("/ +([,.;:?!()]|\$)/", "\\1", $output);
  return $output;
}

/**
 *
 */
function theme_biblio_author_link($variables) {
  $base = variable_get('biblio_base', 'biblio');
  $author = $variables['author'];
  $options = isset($variables['options']) ? $variables['options'] : array();
  $link_to_profile = variable_get('biblio_author_link_profile', 0);
  $link_to_profile_path = variable_get('biblio_author_link_profile_path', 'user/[user:uid]');
  $uri = drupal_parse_url(request_uri());
  $uri = array_merge($uri, $options);
  if (!isset($uri['attributes'])) {
    $uri['attributes'] = array(
      'rel' => 'nofollow',
    );
  }
  $path = $uri['path'];
  if (isset($author['drupal_uid']) && $author['drupal_uid'] > 0) {
    $uri['attributes'] += array(
      'class' => array(
        'biblio-local-author',
      ),
    );
  }
  if (variable_get('biblio_links_target_new_window', NULL)) {
    $uri['attributes'] += array(
      'target' => '_blank',
    );
    $uri['html'] = TRUE;
  }
  if ($link_to_profile && isset($author['drupal_uid']) && $author['drupal_uid'] > 0) {
    $data['user'] = user_load($author['drupal_uid']);
    $path = token_replace($link_to_profile_path, $data);
    $alias = drupal_get_path_alias($path);
    $path_profile = variable_get('biblio_show_profile', '0') ? "{$path}/{$base}" : $alias;
    return l(trim($author['name']), $path_profile, $uri);
  }
  else {
    $uri['path'] = variable_get('biblio_base', 'biblio');
    $uri['query']['f']['author'] = $author['cid'];
    return l(trim($author['name']), $uri['path'], $uri);
  }
}

/**
 * Format page information:.
 *
 * NOTES: - this function (and refbase in general) assumes following rules for the original formatting of page information in '$orig_page_info':
 * - single-page items are given as a page range with identical start & end numbers (e.g. "127-127")
 * - multi-page items are given as a page range where the end number is greater than the start number (e.g. "127-132")
 * - for multi-page items where only the start page is known, a hyphen is appended to the start page (e.g. "127-")
 * - total number of pages are given with a "pp" suffix (e.g. "498 pp"), see todo.
 * - the given page info is left as is if it does not match any of the above rules (e.g. a single page number is ambiguous since it
 * could mean a single page or the total number of pages)
 * - the function attempts to deal with page locators that contain letters (e.g. "A1 - A3" or "4a-4c") but, ATM, locator parts (e.g. "A1")
 * must contain at least one digit character & must not contain any whitespace.
 *
 * @todo should we only use Unicode-aware regex expressions (i.e. always use '$space', '$digit' or '$word' instead of ' ', '\d' or '\w', etc)?
 * - recognize & process total number of pages
 * - for '$shortenPageRangeEnd=TRUE', add support for page locators that contain letters (e.g. "A1 - A3" or "4a-4c")
 */
function theme_biblio_page_number($variables) {
  $orig_page_info = $variables['orig_page_info'];
  $page_range_delim = $variables['page_range_delim'];
  $single_page_prefix = $variables['single_page_prefix'];
  $page_range_prefix = $variables['page_range_prefix'];
  $total_pages_prefix = $variables['total_pages_prefix'];
  $single_page_suffix = $variables['single_page_suffix'];
  $page_range_suffix = $variables['page_range_prefix'];
  $total_pages_suffix = $variables['total_pages_prefix'];
  $shorten_page_range_end = $variables['single_page_suffix'];
  list($alnum, $alpha, $cntrl, $dash, $digit, $graph, $lower, $print, $punct, $space, $upper, $word, $patternModifiers) = _biblio_get_regex_patterns();

  // Check original page info for any recognized page locators, and process them appropriately:
  // the original page info contains a page range (like: "127-127", "127-132", "A1 - A3", "4a-4c", or "127-" if only start page given)
  if (preg_match("/\\w*\\d+\\w* *[{$dash}]+ *(?:\\w*\\d+\\w*)?/{$patternModifiers}", $orig_page_info)) {

    // Remove any whitespace around dashes or hyphens that indicate a page range:
    $orig_page_info = preg_replace("/(\\w*\\d+\\w*) *([{$dash}]+) *(\\w*\\d+\\w*)?(?=[^\\w\\d]|\$)/{$patternModifiers}", "\\1\\2\\3", $orig_page_info);

    // Split original page info into its functional parts:
    // NOTE: ATM, we simply split on any whitespace characters, then process all parts with page ranges
    //       (this will also reduce runs of whitespace to a single space)
    $partsArray = preg_split("/ +/", $orig_page_info);
    $partsCount = count($partsArray);
    for ($i = 0; $i < $partsCount; $i++) {

      // Format parts with page ranges:
      // - single-page item:
      // this part contains a page range with identical start & end numbers (like: "127-127")
      if (preg_match("/(\\w*\\d+\\w*)[{$dash}]+\\1(?=[^\\w\\d]|\$)/{$patternModifiers}", $partsArray[$i])) {
        $partsArray[$i] = preg_replace("/(\\w*\\d+\\w*)[{$dash}]+\\1(?=[^\\w\\d]|\$)/{$patternModifiers}", $single_page_prefix . "\\1" . $single_page_suffix, $partsArray[$i]);
      }
      elseif (preg_match("/\\w*\\d+\\w*[{$dash}]+(?:\\w*\\d+\\w*)?(?=[^\\w\\d]|\$)/{$patternModifiers}", $partsArray[$i])) {

        // In case of '$shorten_page_range_end=TRUE', we abbreviate ending page numbers so that digits aren't repeated unnecessarily:
        // ATM, only digit-only page locators (like: "127-132") are supported.
        if ($shorten_page_range_end and preg_match("/\\d+[{$dash}]+\\d+/{$patternModifiers}", $partsArray[$i])) {

          // NOTE: the logic of this 'if' clause doesn't work if the original page info contains something like "173-190; 195-195" (where, for the first page range, '$endPage' would be "190;" and not "190")
          list($startPage, $endPage) = preg_split("/[{$dash}]+/{$patternModifiers}", $partsArray[$i]);
          $countStartPage = strlen($startPage);
          $countEndPage = strlen($endPage);
          if ($countStartPage == $countEndPage and $startPage < $endPage) {
            for ($j = 0; $j < $countStartPage; $j++) {

              // If the ending page number has a digit that's identical to the starting page number (at the same digit offset)
              if (preg_match("/^" . substr($startPage, $j, 1) . "/", $endPage)) {

                // Remove the first digit from the remaining ending page number.
                $endPage = substr($endPage, 1);
              }
              else {
                break;
              }
            }
          }
          $partsArray[$i] = $page_range_prefix . $startPage . $page_range_delim . $endPage . $page_range_suffix;
        }
        else {
          $partsArray[$i] = preg_replace("/(\\w*\\d+\\w*)[{$dash}]+(\\w*\\d+\\w*)?(?=[^\\w\\d]|\$)/{$patternModifiers}", $page_range_prefix . "\\1" . $page_range_delim . "\\2" . $page_range_suffix, $partsArray[$i]);
        }
      }
    }

    // Merge again all parts.
    $newPageInfo = join(" ", $partsArray);
  }
  else {

    // Page info is ambiguous, so we don't mess with it.
    $newPageInfo = $orig_page_info;
  }
  return $newPageInfo;
}

/**
 * Applies a "style" function to a single node.
 *
 * @param $node
 *   A node
 * @param $style_name
 *   The name of the style to apply
 *
 * @return A string containing the styled (HTML) node
 */
function theme_biblio_style($variables) {
  $node = $variables['node'];
  $style_name = $variables['style_name'];
  $styled_node = '';
  module_load_include('inc', 'biblio', "/styles/biblio_style_{$style_name}");
  $style_function = "biblio_style_{$style_name}";
  if (function_exists($style_function)) {
    $styled_node = $style_function($node);
  }
  else {
    drupal_set_message(t('The style function: @funct does not exist', array(
      '@funct' => $style_function,
    )), 'error');
  }
  return $styled_node . (isset($node->biblio_coins) ? filter_xss($node->biblio_coins, array(
    'span',
  )) : NULL);
}

/**
 * @param $node
 * @param $base
 * @param $style
 *
 * @return
 */
function theme_biblio_entry($variables) {
  $node = $variables['node'];
  $style_name = $variables['style_name'];
  $output = "\n" . '<div class="biblio-entry">' . "\n";
  $output .= '<div class="biblio-style-' . $style_name . '">' . "\n";
  if (!$node->status) {
    $output .= '<div id="node-' . $node->nid . '" class="node node-unpublished">';
  }

  // First add the styled entry...
  $output .= theme('biblio_style', array(
    'node' => $node,
    'style_name' => $style_name,
  ));

  // Now add the various links.
  // @code
  // if ($node->biblio_abst_e) {
  //   $output .= '<span class="biblio-abstract-link">';
  //   $output .= l(" Abstract", "node/$node->nid") . "\n";
  //   $output .= '</span>';
  // }
  // @endcode
  $annotation_field = variable_get('biblio_annotations', 'none');
  if ($annotation_field != 'none' && $node->{$annotation_field}) {
    $output .= '<div class="biblio-annotation">';
    $output .= filter_xss($node->{$annotation_field}, biblio_get_allowed_tags());
    $output .= '</div>';
  }
  $openurl_base = variable_get('biblio_baseopenurl', '');
  if ($openurl_base) {
    $output .= theme('biblio_openurl', array(
      'openURL' => biblio_openurl($node),
    ));
  }
  if (biblio_access('export')) {
    $base = variable_get('biblio_base', 'biblio');
    $output .= theme('biblio_export_links', array(
      'node' => $node,
    ));
  }
  if (biblio_access('download', $node)) {

    // Add links to attached files (if any)
    $output .= theme('biblio_download_links', array(
      'node' => $node,
    ));
  }
  if (!$node->status) {
    $output .= '</div>';
  }
  $output .= "\n</div></div>";
  return $output;
}

/**
 * @param $form
 *
 * @return
 */
function theme_biblio_filters($variables) {
  $form = $variables['form'];
  $output = '';
  if (isset($form['current'])) {
    $output .= '<ul>';
    foreach (element_children($form['current']) as $key) {
      $output .= '<li>' . drupal_render($form['current'][$key]) . '</li>';
    }
    $output .= '</ul>';
  }
  $output .= '<dl class="multiselect">' . (isset($form['current']) ? '<dt><em>' . t('and') . '</em> ' . t('where') . '</dt>' : '') . '<dd class="a">';
  foreach (element_children($form['filter']) as $key) {
    $output .= drupal_render($form['filter'][$key]);
  }
  $output .= '</dd>';
  $output .= '<dt>' . t('is') . '</dt><dd class="b">';
  foreach (element_children($form['status']) as $key) {
    $output .= drupal_render($form['status'][$key]);
  }
  $output .= '</dd>';
  $output .= '</dl>';
  $output .= '<div class="container-inline" id="node-buttons">' . drupal_render($form['buttons']) . '</div>';
  $output .= '<br class="clear" />';
  return $output;
}

/**
 * @param $form
 *
 * @return
 */
function theme_biblio_form_filter($variables) {
  $form = $variables['form'];
  $output .= '<div id="biblio-admin-filter">';
  $output .= drupal_render($form['filters']);
  $output .= '</div>';
  $output .= drupal_render($form);
  return $output;
}

/**
 *
 */
function theme_biblio_field_tab($variables) {
  $form = $variables['form'];
  $rows = array();
  $headers = $form['#header'];
  drupal_add_tabledrag($form['#id'], 'order', 'sibling', 'weight');
  foreach (element_children($form['rows']) as $key) {

    // No need to print the field title every time.
    //    unset($form[$key]['name']['#title'], $form[$key]['auth_type']['#title'], $form[$key]['auth_category']['#title']);
    // Add class to group weight fields for drag and drop.
    $form['rows'][$key]['weight']['#attributes']['class'] = array(
      'weight',
    );

    // Build the table row.
    $row = array(
      '',
    );
    $row[] = array(
      'data' => drupal_render($form['rows'][$key]['name']),
    );
    $row[] = array(
      'data' => drupal_render($form['rows'][$key]['title']),
    );
    $row[] = array(
      'data' => drupal_render($form['rows'][$key]['hint']),
    );
    foreach (element_children($form['rows'][$key]['checkboxes']) as $oid) {
      if (is_array($form['rows'][$key]['checkboxes'])) {
        $row[] = array(
          'data' => drupal_render($form['rows'][$key]['checkboxes'][$oid]),
          'title' => $oid,
        );
      }
    }
    $row[] = drupal_render($form['rows'][$key]['weight']);
    $rows[] = array(
      'data' => $row,
      'class' => array(
        'draggable',
      ),
    );
  }
  $output = theme('table', array(
    'header' => $headers,
    'rows' => $rows,
    'attributes' => array(
      'id' => $form['#id'],
    ),
  ));
  $output .= drupal_render_children($form);
  return $output;
}

/**
 * @param $form
 *
 * @return
 */
function theme_biblio_admin_types_edit_form($variables) {
  $form = $variables['form'];
  $output = '';
  $output .= drupal_render($form['help']);
  $output .= drupal_render($form['pub_type']);
  $output .= drupal_render($form['change_type']);
  if (isset($form['type_name'])) {
    $output .= drupal_render($form['type_name']);
  }
  $output .= drupal_render($form['biblio_tabs']);
  $output .= drupal_render_children($form);
  return $output;
}

/**
 *
 */
function theme_biblio_download_links($variables) {
  static $langcode = NULL;
  $file_links = array();
  $node = $variables['node'];
  if (!isset($langcode)) {
    $langcode = $GLOBALS['language_content']->language;
  }
  $fields = field_attach_view('node', $node, 'full', $langcode);
  foreach (element_children($fields) as $field) {
    if ($fields[$field]['#access'] && $fields[$field]['#field_type'] == 'file') {
      foreach ($fields[$field]['#items'] as $delta => $item) {
        if (module_exists('filefield_paths')) {
          $alias = drupal_get_path_alias('filefield_paths/alias/' . $item['fid']);
        }
        $link_type = variable_get('biblio_file_link_type', 'text');
        if ($link_type == 'icon') {
          $url = file_create_url($item['uri']);
          $icon = theme('file_icon', array(
            'file' => (object) $item,
          ));
          $options['html'] = TRUE;
          $options['attributes']['title'] = check_plain($item['filename']);
          $file_links[] = array(
            l($icon, $url, $options),
            format_size($item['filesize']),
          );
        }
        elseif ($link_type == 'text') {
          $file_links[] = array(
            theme('file_link', array(
              'file' => (object) $item,
            )),
            format_size($item['filesize']),
          );
        }
      }
    }
  }
  $files = '';
  if (count($file_links) > 0 && (user_access('show download links') || user_access('show own download links'))) {
    $files .= '<span class="biblio_file_links">';

    // $files .= '&nbsp;' . t('Download') . ':&nbsp;';.
    $file_count = 0;
    foreach ($file_links as $file) {
      $files .= $file[0] . '&nbsp;(' . $file[1] . ')';
    }
    $files .= '</span>';
  }
  return $files;
}

/**
 * Creates a group of links for the various export functions.
 *
 * @param $nid
 *   the node id to export (if omitted, all nodes in the current view will be exported
 *
 * @return an un-ordered list of class "biblio-export-buttons"
 */
function theme_biblio_export_links($variables) {
  global $pager_total_items;
  $node = $variables['node'];
  $filter = $variables['node'] == NULL && isset($variables['filter']) ? $variables['filter'] : array();
  $links = array();
  $output = '';
  if (biblio_access('export')) {
    $show_link = variable_get('biblio_lookup_links', array(
      'google' => TRUE,
    ));
    $lookup_links = module_invoke_all('biblio_lookup_link', $node);
    if ($show_link['google'] && !empty($node)) {
      $lookup_links['biblio_google_scholar'] = theme('google_scholar_link', array(
        'node' => $node,
      ));
    }
    $nid = isset($node->nid) ? $node->nid : NULL;
    $export_links = module_invoke_all('biblio_export_link', $nid, $filter);
    $links = array_merge($lookup_links, $export_links);
  }
  if (empty($node) && !empty($links)) {
    $output = t('Export @count results', array(
      '@count' => $pager_total_items[0],
    )) . ': ';
  }
  return $output . theme('links', array(
    'links' => $links,
    'attributes' => array(
      'class' => array(
        'biblio-export-buttons',
      ),
    ),
  ));
}

/**
 *
 */
function theme_google_scholar_link($variables) {
  $node = $variables['node'];
  $query = array();
  $query['btnG'] = 'Search+Scholar';

  // as_q = all the words.
  $query['as_q'] = '"' . str_replace(array(
    ' ',
    '(',
    ')',
  ), array(
    '+',
  ), $node->title) . '"';
  if (isset($node->biblio_contributors[0]['lastname'])) {
    $query['as_sauthors'] = $node->biblio_contributors[0]['lastname'];
  }
  $query['as_occt'] = 'any';

  // Exact phrase.
  $query['as_epq'] = '';

  // At least one of the words.
  $query['as_oq'] = '';

  // Without the words.
  $query['as_eq'] = '';

  // Published in.
  $query['as_publication'] = '';

  // Lower date in date range.
  $query['as_ylo'] = '';

  // Upper date in date range.
  $query['as_yhi'] = '';

  // Search articles in all subject areas.
  $query['as_sdtAAP'] = 1;

  // Include patents.
  $query['as_sdtp'] = 1;
  $attrs = array(
    'title' => t("Click to search Google Scholar for this entry"),
  );
  if (variable_get('biblio_links_target_new_window', NULL)) {
    $attrs = array_merge($attrs, array(
      'target ' => '_blank',
    ));
  }
  $attrs = array_merge($attrs, array(
    'rel' => 'nofollow',
  ));
  return array(
    'title' => t('Google Scholar'),
    'href' => 'http://scholar.google.com/scholar',
    'attributes' => $attrs,
    'query' => $query,
  );
}

/**
 * @param $form
 *
 * @return
 */
function theme_biblio_contributors($variables) {
  $form = $variables['form'];
  $rows = array();
  $headers = array(
    '',
    t('Name'),
    t('Category'),
    t('Role'),
    t('Weight'),
  );
  drupal_add_tabledrag($form['#id'], 'order', 'sibling', 'rank');
  foreach (element_children($form) as $key) {

    // No need to print the field title every time.
    //    unset($form[$key]['name']['#title'], $form[$key]['auth_type']['#title'], $form[$key]['auth_category']['#title']);
    // Add class to group weight fields for drag and drop.
    $form[$key]['rank']['#attributes']['class'] = array(
      'rank',
    );

    // Build the table row.
    $row = array(
      '',
    );
    $row[] = array(
      'data' => drupal_render($form[$key]['name']),
      'class' => array(
        'biblio-contributor',
      ),
    );
    $row[] = array(
      'data' => drupal_render($form[$key]['auth_category']),
      'class' => array(
        'biblio-contributor-category',
      ),
    );
    $row[] = array(
      'data' => drupal_render($form[$key]['auth_type']),
      'class' => array(
        'biblio-contributor-type',
      ),
    );
    $row[] = drupal_render($form[$key]['rank']);
    $rows[] = array(
      'data' => $row,
      'class' => array(
        'draggable',
      ),
    );
  }
  $output = theme('table', array(
    'header' => $headers,
    'rows' => $rows,
    'attributes' => array(
      'id' => $form['#id'],
    ),
  ));

  // $output .= drupal_render_children($form);
  return $output;
}

/**
 * This function creates a string of letters (A - Z), which
 * depending on the sorting are either linked to author or title
 * filters i.e. clicking on the A when in the listing is sorted by
 * authors will bring up a list of all the entries where the first
 * character of the primary authors last name is "A".
 *
 * @param $type
 *   either "author or title"
 *
 * @return a chunk of HTML code as described above
 */
function theme_biblio_alpha_line($variables) {
  $type = $variables['type'];
  $all = '';
  $uri = drupal_parse_url(request_path());

  // Replace path in case we are in a multi-language environment, otherwise we end up with double language prefixes.
  $languages = language_list('enabled');
  if (isset($languages[1])) {
    $path_parts = empty($uri['path']) ? array() : explode('/', $uri['path']);
    foreach ($languages[1] as $code => $lang) {
      if ($path_parts[0] == $code) {
        array_shift($path_parts);
        break;
      }
    }
    $uri['path'] = implode('/', $path_parts);
  }
  $uri['attributes'] = array(
    'rel' => 'nofollow',
  );
  $all_uri = $uri;
  $current = '';
  switch ($type) {
    case 'authors':
      $filter = 'author';
      $current = isset($uri['query']['f']['author']) ? $uri['query']['f']['author'] : '';
      unset($all_uri['query']['f']['author']);
      break;
    case 'keywords':
    case 'keyword':
      $filter = 'keyword';
      $current = isset($uri['query']['f']['keyword']) ? $uri['query']['f']['keyword'] : '';
      unset($all_uri['query']['f']['keyword']);
      break;
    case 'author':
      $current = isset($uri['query']['f']['ag']) ? $uri['query']['f']['ag'] : '';
      $filter = 'ag';
      if (!isset($uri['query']['s'])) {
        $uri['query']['s'] = 'author';
      }
      unset($all_uri['query']['f']['ag']);
      break;
    case 'title':
      $current = isset($uri['query']['f']['tg']) ? $uri['query']['f']['tg'] : '';
      $filter = 'tg';
      unset($all_uri['query']['f']['tg']);
      break;
    default:
  }
  $output = '<div class="biblio-alpha-line">';

  // @todo for Cyrillic use 1040 to 1071... e.g. &#1068;.
  for ($i = 65; $i <= 90; $i++) {
    if ($i == ord($current)) {
      $output .= '<b>[' . chr($i) . ']</b>&nbsp;';
    }
    else {
      $uri['query']['f'][$filter] = chr($i);
      $output .= l(chr($i), $uri['path'], $uri) . '&nbsp;';
    }
  }
  if ($current) {
    if (empty($all_uri['query']['f'])) {
      unset($all_uri['query']['f']);
    }
    $output .= '&nbsp;&nbsp;' . '[' . l(t('Show ALL'), $all_uri['path'], $all_uri) . ']';
  }
  $output .= '</div>';
  return $output;
}

/**
 * Themes the author editing form.
 *
 * @param $form
 *
 * @return rendered form
 */
function theme_biblio_admin_author_edit_form($variables) {
  $form = $variables['form'];
  $rows = array();
  $rows[] = array(
    array(
      'data' => drupal_render($form['prefix']),
    ),
    array(
      'data' => drupal_render($form['firstname']),
    ),
    array(
      'data' => drupal_render($form['initials']),
    ),
    array(
      'data' => drupal_render($form['lastname']),
    ),
    array(
      'data' => drupal_render($form['suffix']),
    ),
  );
  $rows[] = array(
    array(
      'data' => drupal_render($form['name']) . drupal_render($form['literal']),
      'colspan' => 5,
    ),
  );
  $rows[] = array(
    array(
      'data' => drupal_render($form['affiliation']),
      'colspan' => 5,
    ),
  );
  $rows[] = array(
    array(
      'data' => drupal_render($form['drupal_uid']),
      'colspan' => 5,
    ),
  );
  $output = theme('table', array(
    'rows' => $rows,
  ));
  $output .= drupal_render($form['merge']);
  $output .= drupal_render($form['link']);
  $output .= drupal_render_children($form);
  return $output;
}

/**
 *
 */
function theme_biblio_admin_author_edit_merge_table($variables) {
  $form = $variables['form'];
  $headers = $form['#header'];
  $rows = array();
  foreach (element_children($form['candidates']) as $key) {

    // Build the table row.
    $row = array();
    $row[] = array(
      'data' => drupal_render($form['candidates'][$key]['name']),
    );
    $row[] = drupal_render($form['candidates'][$key]['link']);
    $row[] = drupal_render($form['candidates'][$key]['merge']);
    $row[] = drupal_render($form['candidates'][$key]['retain']);
    $rows[] = $row;
  }
  $output = theme('table', array(
    'header' => $headers,
    'rows' => $rows,
    'attributes' => array(
      'id' => $form['#id'],
    ),
  ));
  $row = $rows = array();
  $row[] = array(
    'data' => drupal_render($form['more_authors_search']) . drupal_render($form['more_authors_add']),
  );
  $rows[] = $row;
  $output .= theme('table', array(
    'header' => array(),
    'rows' => $rows,
    'attributes' => array(
      'id' => $form['#id'],
    ),
  ));
  $output .= drupal_render_children($form);
  return $output;
}

/**
 *
 */
function _biblio_keyword_links($keywords, $base = 'biblio') {
  $uri = drupal_parse_url(request_uri());
  $uri['path'] = variable_get('biblio_base', 'biblio');
  $uri['attributes'] = array(
    'rel' => 'nofollow',
  );
  $html = "";
  if (!is_array($keywords)) {
    require_once drupal_get_path('module', 'biblio') . '/includes/biblio.keywords.inc';
    $keywords = biblio_explode_keywords($keywords);
  }
  $sep = variable_get('biblio_keyword_sep', ',');
  foreach ($keywords as $kid => $keyword) {
    $uri['query']['f']['keyword'] = $kid;
    $linked_keywords[] = l(trim($keyword), $base, $uri);
  }
  return implode("{$sep} ", $linked_keywords);
}

/**
 *
 */
function template_preprocess_biblio_sort_tabs(&$vars) {
  $vars['tabs_style'] = variable_get('biblio_sort_tabs_style', 0);
  $uri = drupal_parse_url(request_uri());
  $uri['path'] = $_GET['q'];
  $uri['path'] = trim($uri['path'], '/');
  $defaults = array(
    'author' => 'asc',
    'title' => 'asc',
    'type' => 'asc',
    'year' => 'desc',
    'keyword' => 'asc',
  );
  if (isset($uri['query']['s'])) {
    $sort = $uri['query']['s'];
  }
  else {
    $sort = variable_get('biblio_sort', 'year');
  }
  if (isset($uri['query']['o'])) {
    $order = strtolower($uri['query']['o']);
  }
  else {
    $order = strtolower(variable_get('biblio_order', 'desc'));
  }

  // Flip it.
  $order = $order == 'desc' ? 'asc' : 'desc';
  $path = drupal_get_path('module', 'biblio');
  $order_arrow = $order == 'asc' ? theme('image', array(
    'path' => $path . '/misc/arrow-asc.png',
    'alt' => '(Asc)',
  )) : theme('image', array(
    'path' => $path . '/misc/arrow-desc.png',
    'alt' => '(Desc)',
  ));
  $sort_links = array_filter(variable_get('biblio_sort_tabs', array(
    'author' => 'author',
    'title' => 'title',
    'type' => 'type',
    'year' => 'year',
    'keyword' => 'keyword',
  )));
  ksort($sort_links);
  $links = array();
  foreach ($sort_links as $key => $title) {
    $uri_copy = $uri;
    $uri_copy['attributes'] = array(
      "title" => t("Click a second time to reverse the sort order"),
    );
    $uri_copy['html'] = TRUE;
    $uri_copy['text'] = t(ucfirst($title));
    $uri_copy['query']['s'] = $title;
    if ($key === $title && $title == $sort) {
      $uri_copy['query']['o'] = $order;
      $uri_copy['attributes']['class'][] = "active";
      $uri_copy['active'] = TRUE;
      $uri_copy['pfx'] = ' [ ';
      $uri_copy['sfx'] = '] ';
      $uri_copy['arrow'] = $order_arrow;
    }
    elseif ($key === $title) {
      $uri_copy['query']['o'] = $defaults[$title];
      $uri_copy['active'] = FALSE;
      $uri_copy['pfx'] = ' ';
      $uri_copy['sfx'] = ' ';
      $uri_copy['arrow'] = '';
    }
    $links[] = $uri_copy;
  }
  $vars['links'] = $links;
}

/**
 *
 */
function theme_biblio_sort_tabs($vars) {
  $links = $vars['links'];
  $style = $vars['tabs_style'];
  $output = '';
  if ($style) {
    $output = '<ul class="tabs secondary">';
  }
  foreach ($links as $l) {
    $output .= _biblio_sort_tab($l, $style);
  }
  if ($style) {
    $output .= '</ul>';
  }
  return $output;
}

/**
 *
 */
function _biblio_sort_tab($tab, $tabs = FALSE) {
  if ($tabs) {
    $text = '<span class="a"><span class="b">' . $tab['text'] . $tab['arrow'] . '</span></span>';
    $class = $tab['active'] ? 'class="active"' : '';
    $link = l($text, $tab['path'], $tab);
    return "<li {$class} >" . $link . '</li>';
  }
  else {
    return $tab['pfx'] . l($tab['text'], $tab['path'], $tab) . $tab['arrow'] . $tab['sfx'];
  }
}

Functions

Name	Description
biblio_format_authors
biblio_openurl
template_preprocess_biblio_sort_tabs
theme_biblio_admin_author_edit_form	Themes the author editing form.
theme_biblio_admin_author_edit_merge_table
theme_biblio_admin_types_edit_form
theme_biblio_alpha_line	This function creates a string of letters (A - Z), which depending on the sorting are either linked to author or title filters i.e. clicking on the A when in the listing is sorted by authors will bring up a list of all the entries where the…
theme_biblio_author_link
theme_biblio_contributors
theme_biblio_download_links
theme_biblio_entry
theme_biblio_export_links	Creates a group of links for the various export functions.
theme_biblio_field_tab
theme_biblio_filters
theme_biblio_format_authors
theme_biblio_form_filter
theme_biblio_long Deprecated	Theme function for biblio_long.
theme_biblio_openurl
theme_biblio_page_number	Format page information:.
theme_biblio_sort_tabs
theme_biblio_style	Applies a "style" function to a single node.
theme_biblio_tabular
theme_google_scholar_link
_biblio_get_field_information
_biblio_get_latin1_regex
_biblio_get_regex_patterns
_biblio_get_utf8_regex	Helper function for theme_biblio_format_authors() and theme_biblio_page_number()
_biblio_keyword_links
_biblio_sort_tab