EDIT

<?php

/**

 * @file

 * Common Theming functions.

 *

 * @copyright

 *   (C) 2007-2012 EDIT

 *   European Distributed Institute of Taxonomy

 *   http://www.e-taxonomy.eu

 *

 *   The contents of this module are subject to the Mozilla

 *   Public License Version 1.1.

 * @see http://www.mozilla.org/MPL/MPL-1.1.html

 */

define('FOOTNOTE_ANNOTATIONS', 'annotations');

/**

 * Get the true path to the root of the Drupal site.

 *

 * Better than using DOCUMENT_ROOT and base_path().

 */

function absolute_path_to_drupal() {

  static $absolute_path_to_drupal = NULL;

  if ($absolute_path_to_drupal === NULL) {

    // Get the absolute path to this file:

    $dir = rtrim(str_replace('\\', '/', dirname(__FILE__)), '/');

    $parts = explode('/', $dir);

    // Iterate up the directory hierarchy until we find the website root:

    $done = FALSE;

    do {

      // Check a couple of obvious things:

      $done = is_dir("$dir/sites") && is_dir("$dir/includes") && is_file("$dir/index.php");

      if (!$done) {

        // If there's no more path to examine, we didn't find the site root:

        if (empty($parts)) {

          $absolute_path_to_drupal = FALSE;

          break;

        }

        // Go up one level and look again:

        array_pop($parts);

        $dir = implode('/', $parts);

      }

    } while (!$done);

    $absolute_path_to_drupal = $dir;

  }

  return $absolute_path_to_drupal;

}

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function taxon_in_current_tree($taxon_uuid) {

  $taxon_nodes = cdm_ws_get(CDM_WS_PORTAL_TAXON_TAXONNODES, $taxon_uuid);

  $taxon_in_current_tree = FALSE;

  if (is_array($taxon_nodes)) {

    foreach ($taxon_nodes as $node) {

      if (get_taxonomictree_uuid_selected() == $node->classification->uuid) {

        $taxon_in_current_tree = TRUE;

        break;

      }

    }

  }

  return $taxon_in_current_tree;

}

/**

 * TODO if getting fragment from request is possible remove

 * $_REQUEST['highlite'] HACK

 * NOT WORKING since fragments are not available to the server

 *

 * function fragment(){

 *    global $fragment;

 *    if(!$fragment){

 *       $fragment = substr($_SERVER['REQUEST_URI'], strrpos($_SERVER['REQUEST_URI'], '#'));

 *    }

 *   return $fragment;

 * }

 */

function uuid_anchor($uuid, $innerHTML) {

  $highlite = FALSE;

  $params = drupal_get_query_parameters();

  if (isset($params['highlite']) && $params['highlite'] == $uuid) {

    $highlite = TRUE;

  }

  return '<a name="' . $uuid . '" ></a><span class="' . ($highlite ? 'highlite' : '') . '">' . $innerHTML . '</span>';

}

/**

 * @todo Enter description here...

 * @deprecated looks like this is not used anymore

 */

/*

function tagNameParts($name, $numOfNameTokens) {

  $out = '<span class="name">';

  $token = strtok($name, " \n\t");

  $i = 0;

  $noSpace = TRUE;

  while ($token != FALSE) {

    if ($i == $numOfNameTokens) {

      $out .= '</span> <span class="authors">';

      $noSpace = TRUE;

    }

    $out .= ($noSpace ? '' : ' ') . $token;

    $noSpace = FALSE;

    $token = strtok(" \n\t");

    $i++;

  }

  return $out . '</span>';

}

*/

/**

 * Returns HTML for an array of TaggedText items.

 *

 * Converts an array of TaggedText items into a sequence of corresponding html

 * tags whereas each item will provided with a class attribute which set to

 * the key of the TaggedText item.

 *

 * @param array $variables

 *   An associative array containing:

 *   - taggedtxt: The array to format into html.

 *   - tag: The html tag to use.

 *   - glue: The string by which the chained text tokens are

 *     concatenated together. Default is a blank character.

 *   - skiptags: tags to skip.

 *

 * @ingroup themeable

 */

function theme_cdm_taggedtext2html($variables) {

  $taggedtxt = $variables['taggedtxt'];

  $tag = $variables['tag'];

  $glue = $variables['glue'];

  $skiptags = $variables['skiptags'];

  $out = '';

  $i = 0;

  foreach ($taggedtxt as $tt) {

    if (!in_array($tt->type, $skiptags) && strlen($tt->text) > 0) {

      $out .= (strlen($out) > 0 && ++$i < count($taggedtxt) ? $glue : '') . '<' . $tag . ' class="' . $tt->type . '">' . t($tt->text) . '</' . $tag . '>';

    }

  }

  return $out;

}

/* ============================ annotations ============================= */

/**

 * Returns HTML for annotations to cdm objects.

 *

 * Almost any cdmObject may be annotated. Therefore we provide a generic way to

 * display as well as create or update annotations. The following cdm classes

 * are annotatable:

 *

 * - DescriptionElementBase

 * - EventBase

 * - HomotypicalGroup

 * - IdentifiableEntity

 * - DescriptionBase

 * - IdentifiableMediaEntity

 * - Media

 * - Sequence

 * - TaxonBase

 * - TaxonNameBase

 * - TaxonomicTree

 * - TermBase

 * - LanguageStringBase

 * - ReferencedEntityBase

 * - NomenclaturalStatus

 * - OriginalSourceBase

 * - RelationshipBase

 * - TypeDesignationBase

 * - TaxonNode

 * - WorkingSet

 *

 * @param array $variables

 *   An associative array containing:

 *  - cdmBase_list: An array of CdmBase instances or a single instance.

 *  - footnote_list_key

 *

 * @ingroup themeable

 */

function theme_cdm_annotations_as_footnotekeys($variables) {

  $cdmBase_list = $variables['cdmBase_list'];

  $footnote_list_key = $variables['footnote_list_key'];

  if (variable_get('cdm_dataportal_annotations_footnotes', CDM_DATAPORTAL_ALL_FOOTNOTES)) {

    return '';

  }

  $out = '';

  $footNoteKeys = cdm_annotations_as_footnotekeys($cdmBase_list, $footnote_list_key);

  foreach ($footNoteKeys as $a) {

    // $out .= theme('cdm_footnote_key', $a, $a->footnoteListKey, (isset($out)?

    // ',' : ''));

    $out .= theme('cdm_footnote_key', array('footnoteKey' => $a, 'separator' => ($out ? ',' : '')));

  }

  return $out;

}

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function theme_cdm_annotation_footnotes($variables) {

  $footnoteListKey = $variables['footnoteListKey'];

  $enclosingTag = $variables['enclosingTag'];

  if (variable_get('cdm_dataportal_annotations_footnotes', CDM_DATAPORTAL_ALL_FOOTNOTES)) {

    return '';

  }

  return theme('cdm_footnotes', array('footnoteListKey' => $footnoteListKey . '-annotations', 'enclosingTag' => $enclosingTag));

}

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function theme_cdm_annotation_content($variables) {

  $AnnotationTO = $variables['AnnotationTO'];

  drupal_add_js(drupal_get_path('module', 'cdm_dataportal') . '/js/cdm_annotations.js');

  drupal_add_js(drupal_get_path('module', 'cdm_dataportal') . '/js/jquery.form.js');

  $out .= theme('cdm_list_of_annotations', array('annotationElements' => $AnnotationTO->annotationElements));

  $annotationUrl = cdm_compose_url(CDM_WS_ANNOTATIONS, array(

    $AnnotationTO->uuid,

  ));

  $annotationProxyUrl = url('cdm_api/proxy/' . urlencode($annotationUrl) . '/cdm_annotation_post');

  // TODO users have to be authenticated to the dataportal to be able to write

  // annotations.

  $out .= '

        <div class="annotation_create">

          <form action="' . $annotationProxyUrl . '" method="POST">

            <textarea name="annotation"></textarea>

            <input type="hidden" name="commentator" value="">

            <input type="submit" value="' . t('Save annotation') . '" />

          </form>

       </div>

  ';

  return $out;

}

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function theme_cdm_list_of_annotations($variables) {

  $annotationElements = $variables['annotationElements'];

  $out = '<ul class="annotation_list">';

  foreach ($annotationElements as $key => $row) {

    $created[$key] = $row;

  }

  array_multisort($created, SORT_ASC, $annotationElements);

  foreach ($annotationElements as $annotation) {

    $out .= '<li>' . $annotation->text . '</li>';

  }

  $out .= '</ul>';

  return $out;

}

/* ============================ footnotes ============================= */

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function theme_cdm_footnote_key($variables) {

  $footnoteKey = $variables['footnoteKey'];

  $separator = $variables['separator'];

  $highlightable = $variables['highlightable'];

  $separator_off = $variables['separator_off'];

  if (!is_object($footnoteKey) or !isset($footnoteKey->footnoteListKey)) {

    return '';

  }

  if (variable_get('cdm_dataportal_all_footnotes', CDM_DATAPORTAL_ALL_FOOTNOTES)) {

    return '';

  }

  if ($separator_off) {

    $separator = '';

  }

  $out = '<span class="footnote-key footnote-key-' . $footnoteKey->keyStr . ' member-of-footnotes-' . $footnoteKey->footnoteListKey . '">' . $separator . '<a href="#footnote-' . $footnoteKey->keyStr . '">' . $footnoteKey->keyStr . '</a>' . '</span>';

  return $out;

}

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function theme_cdm_footnote($variables) {

  $footnoteKey = $variables['footnoteKey'];

  $footnoteText = $variables['footnoteText'];

  _add_js_footnotes();

  $out = '<span class="footnote footnote-' . $footnoteKey . '">'

    . '<a name="footnote-' . $footnoteKey . '"></a>'

    . '<span class="footnote-anchor">' . $footnoteKey . '.</span>&nbsp;' . $footnoteText

    . '</span>';

  return $out;

}

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function theme_cdm_footnotes($variables) {

  $footnoteListKey = $variables['footnoteListKey'];

  $enclosingTag = $variables['enclosingTag'];

  if (variable_get('cdm_dataportal_all_footnotes', CDM_DATAPORTAL_ALL_FOOTNOTES)) {

    return '';

  }

  $out = '<' . $enclosingTag . ' class="footnotes footnotes-' . $footnoteListKey . ' ">'

    . FootnoteManager::renderFootnoteList($footnoteListKey)

    . '</' . $enclosingTag . '>';

  FootnoteManager::removeFootnoteList($footnoteListKey);

  return $out;

}

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function theme_cdm_annotations($variables) {

  $annotations = $variables['annotations'];

  $enclosingTag = $variables['enclosingTag'];

  if (!is_array($annotations)) {

    return;

  }

  $out = '<' . $enclosingTag . ' class="annotations">';

  $i = 0;

  foreach ($annotations as $annotation) {

    $out .= ($i++ > 0 ? ', ' : '') . $annotation->text;

  }

  $out .= '</' . $enclosingTag . '>';

  return $out;

}

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function cdm_exist_footnote($footnote_list, $footnote) {

  $result = FALSE;

  if (is_array($footnote_list)) {

    foreach ($footnote_list as $element) {

      if ($element == $footnote) {

        $result = TRUE;

      }

    }

  }

  return $result;

}

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function cdm_add_footnote_to_array(&$footnote_list, $footnote) {

  if (!cdm_exist_footnote($footnote_list, $footnote)) {

    $footnote_list[] = $footnote;

  }

}

/**

 * Theme function for CDM marker instances

 *

 * @see compose_cdm_marker();

 * @param array $variables

 *   - markerType_representation_l10n: the localized representation of the marker.markerType field

 */

function theme_cdm_marker($variables) {

  $class_attribute = null;

  //TODO class attribute hacked?, use generic drupal way?

  if(isset($variables['attributes']['class'])){

    $class_attribute = $variables['attributes']['class'];

  }

  return '<span class="' . $class_attribute . '">' . $variables['label'] . '</span>';

}

/* ============================ pager ============================= */

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function theme_cdm_pager($variables) {

  $pager = $variables['pager'];

  $path = $variables['path'];

  $parameters = $variables['parameters'];

  $out = '';

  if ($pager->pagesAvailable > 1) {

    $out .= '<div class="pager">';

    if ($pager->currentIndex > 0) {

      $out .= theme('cdm_pager_link', array(

        'text' => t('« first'),

        'linkIndex' => 0,

        'pager' => $pager,

        'path' => $path,

        'parameters' => $parameters,

        'attributes' => array('class' => array('pager-first')),

        ));

      $out .= theme('cdm_pager_link', array(

        'text' => t('‹ previous'),

        'linkIndex' => $pager->currentIndex - 1,

        'pager' => $pager,

        'path' => $path,

        'parameters' => $parameters,

        'attributes' => array('class' => array('pager-previous')),

        ));

    }

    if ($pager->indices[0] > 0) {

      $out .= '<div class="pager-list-dots-left">...</div>';

    }

    foreach ($pager->indices as $index) {

      $label = $index + 1;

      $out .= theme('cdm_pager_link', array('text' => $label, 'linkIndex' => $index, 'pager' => $pager, 'path' => $path, 'parameters' => $parameters, 'attributes' => array(

  'class' => array('pager-first'),

)));

    }

    if ($pager->indices[count($pager->indices) - 1] < $pager->pagesAvailable - 1) {

      $out .= '<div class="pager-list-dots-right">...</div>';

    }

    if ($pager->nextIndex) {

      $out .= theme('cdm_pager_link', array('text' => t('next ›'), 'linkIndex' => $pager->nextIndex, 'pager' => $pager, 'path' => $path, 'parameters' => $parameters, 'attributes' => array(

  'class' => array('pager-next'),

)));

      $out .= theme('cdm_pager_link', array('text' => t('last »'), 'linkIndex' => $pager->pagesAvailable - 1, 'pager' => $pager, 'path' => $path, 'parameters' => $parameters, 'attributes' => array(

  'class' => array('pager-last'),

)));

    }

    $out .= '</div>';

    return $out;

  }

}

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function theme_cdm_pager_link($variables) {

  $text = $variables['text'];

  $linkIndex = $variables['linkIndex'];

  $pager = $variables['pager'];

  $path = $variables['path'];

  $parameters = $variables['parameters'];

  $attributes = $variables['attributes'];

  $out = '';

  $parameters['pager']['pageNumber'] = $linkIndex;

  if ($linkIndex == $pager->currentIndex) {

    $out = '<strong>' . $text . '</strong>';

  }

  else {

    // $queryString = drupal_query_string_encode($parameters);

    $queryString = $parameters;

    $out = l($text, $path, array(

      'attributes' => $attributes,

      'query' => $queryString,

    ));

  }

  return $out;

}

/* ============================ special buttons ============================= */

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function theme_cdm_back_to_search_result_button() {

  $out = '';

  $show_button = variable_get('cdm_dataportal_show_back_to_search_results');

  if (isset($_SESSION['cdm']['search']) && isset($show_button)) {

    /* ['cdm']['last_search'] */

    // $out .= '<div id="backButton">'.l(t('Back to search result'), $_SESSION

    // ).'</div>';

    $out .= '<div id="backButton">' . l(t('Back to search result'), "http://" . $_SERVER['SERVER_NAME'] . $_SESSION['cdm']['last_search']) . '</div>';

  }

  return $out;

}

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function theme_cdm_back_to_image_gallery_button() {

  $out = '<div id="backToGalleryButton">' . l(t('Back to Images'), $_SESSION['cdm']['last_gallery']) . '</div>';

  return $out;

}

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354

 */

function theme_cdm_print_button() {

  drupal_add_js('jQuery(document).ready(function() {

         jQuery(\'#print_button\').click(function () {

         window.print();

     });

  });', array('type' => 'inline'));

  $output = '<div id="print_button"><img src="' . base_path()  .  drupal_get_path('module', 'cdm_dataportal') . '/images/print_icon.gif"' . ' alt="' . t('Print this page') . '" title="' . t('Print this page') . '" />';

  // .t('Print this page');

  // $output .= l('Print this page', '');

  $output .= '<span>Print this page</span>';

  $output .= '</div>';

  return $output;

}