EDIT

<?php

/**

 * @file

 * Page 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

 */

/**

 * Returns HTML for the default title of a taxon page.

 *  * The returned title is a formatted taxon name.

 *

 * @param array $variables

 *   An associative array containing:

 *   - taxon: The taxon name being formatted for the title.

 *   - uuid: UUID for the taxon.

 *

 * @ingroup themeable

 */

function theme_cdm_taxon_page_title($variables) {

  $taxon = $variables['taxon'];

  $uuid = $variables['uuid'];

  RenderHints::pushToRenderStack('taxon_page_title');

  $referenceUri = '';

  $out = '';

  if (isset($taxon->name->nomenclaturalReference)) {

    $referenceUri = url(path_to_reference($taxon->name->nomenclaturalReference->uuid));

  }

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

    'taxonName' => $taxon->name,

    'nameLink' => NULL,

    'refenceLink' => $referenceUri,

    'show_annotations' => FALSE,

  ));

  RenderHints::popFromRenderStack();

  return '<span class="' . $taxon->class . '">' . $out . '</span>';

}

/**

 * Returns HTML for the default title for a name page.

 *

 * The returned title is a formatted name.

 *

 * @param array $variables

 *   An associative array containing:

 *   - taxon_name: The taxon name object.

 *

 * @ingroup themeable

 */

function theme_cdm_name_page_title($variables) {

  $taxon_name = $variables['taxon_name'];

  RenderHints::pushToRenderStack('taxon_page_title');

  if (isset($taxon_name->nomenclaturalReference)) {

    $referenceUri = url(path_to_reference($taxon_name->nomenclaturalReference->uuid));

  }

  $out = '<span class="' . $taxon_name->class . '">' . theme('cdm_taxonName', array(

    'taxonName' => $taxon_name,

    'nameLink' => NULL,

    'refenceLink' => $referenceUri,

    'show_annotations' => FALSE,

  )) . '</span>';

  RenderHints::popFromRenderStack();

  return $out;

}

/**

 * Returns HTML for a taxon page.

 *

 * A wrapper function that groups available information to show by default,

 * when a taxon page is requested by the browser.

 * Individual themeing has to decide what this page should include (see methods

 * beneath) and what information should go into tabs or should not be shown

 * at all.

 *

 * It is headed by the name of the accepted taxon without author and reference.

 *

 * @param array $variables

 *   An associative array containing:

 *   - taxon: The taxon object for which to theme the page.

 *   - page_part: Name of the part to display, valid values are:

 *   'description', 'images', 'synonymy', 'all'.

 *

 * @ingroup themeable

 */

function theme_cdm_taxon_page($variables) {

  $taxon = $variables['taxon'];

  $page_part = $variables['page_part'];

  global $theme;

  $tabsToDisplay = variable_get('cdm_taxonpage_tabs_visibility', unserialize(TAXONPAGE_VISIBILITY_OPTIONS_DEFAULT));

  $page_part = variable_get('cdm_dataportal_taxonpage_tabs', 1) ? $page_part : 'all';

  $hideTabs = array();

  // --- GET Images --- //

  $mediaQueryParameters = array(

    "type" => "ImageFile",

  );

  $selectShowMedia = variable_get('cdm_dataportal_show_media', 0);

  if ($selectShowMedia == 0) {

    $media = cdm_ws_get(CDM_WS_PORTAL_TAXON_MEDIA, array(

      $taxon->uuid,

    ), queryString($mediaQueryParameters));

  }

  else {

    $media = cdm_ws_get(CDM_WS_PORTAL_TAXON_SUBTREE_MEDIA, array(

      $taxon->uuid,

    ), queryString($mediaQueryParameters));

  }

  if (!isset($media[0]) || ($tabsToDisplay["Images"] == '0')) {

    $hideTabs[] = theme('cdm_taxonpage_tab', array('tabname' => 'Images'));

  }

  // HideImage flag depending on administative preset.

  $hideImages = FALSE;

  if (variable_get('image_hide_rank', '0') != '0') {

    $rankCompare = rank_compare($taxon->name->rank->uuid, variable_get('image_hide_rank', '-99'));

    $hideImages = ($rankCompare > -1);

  }

  // --- GET specimensOrObservations --- //

  // Comment @WA Note the spelling error!

  $specimensOrObservations = cdm_ws_get(CDM_WS_TAXON, array(

    $taxon->uuid,

    'specimensOrObersvations',

  ));

  $specimensOrObservationsCount = is_array($specimensOrObservations) ? count($specimensOrObservations) : 0;

  if ($specimensOrObservationsCount == 0 || ($tabsToDisplay["Specimens"] == '0')) {

    $hideTabs[] = theme('cdm_taxonpage_tab', array('tabname' => 'Specimens'));

  }

  // --- GET polytomousKeys --- //

  $polytomousKeysPager = cdm_ws_get(CDM_WS_POLYTOMOUSKEY, NULL, "findByTaxonomicScope=$taxon->uuid");

  $identificationKeyCount = 0;

  if ($polytomousKeysPager) {

    $identificationKeyCount += $polytomousKeysPager->count;

  }

  if ($identificationKeyCount == 0 || ($tabsToDisplay["Keys"] == '0')) {

    $hideTabs[] = theme('cdm_taxonpage_tab', array('tabname' => 'Keys'));

  }

  if ($tabsToDisplay["Synonymy"] == '0') {

    $hideTabs[] = theme('cdm_taxonpage_tab', array('tabname' => 'Synonymy'));

  }

  // -------------------------------------------- //

  // Hide tabs.

  $tabhide_js = '';

  foreach ($hideTabs as $tabText) {

    $tabhide_js .= "jQuery('.tabs.primary').children('li').children('a:contains(\"$tabText\")').hide();\n";

  }

  drupal_add_js("

  jQuery(document).ready(function(){

  $tabhide_js

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

  $out = '';

  $out .= theme('cdm_back_to_search_result_button');

  // var_dump(variable_get('cdm_dataportal_display_is_accepted_for',

  // CDM_DATAPORTAL_DISPLAY_IS_ACCEPTED_FOR));

  if (variable_get('cdm_dataportal_display_is_accepted_for', CDM_DATAPORTAL_DISPLAY_IS_ACCEPTED_FOR)) {

    $out .= theme('cdm_acceptedFor', 'page_general');

  }

  // --- PAGE PART: DESCRIPTION --- //

  if ($page_part == 'description' || $page_part == 'all') {

    $markerTypesEmpty = array();

    $markerTypesEmpty['markerTypes'] = '';

    // Retrieve all descriptions for the taxon.

    $taxonDescriptions = cdm_ws_get(CDM_WS_PORTAL_TAXON_DESCRIPTIONS, $taxon->uuid, queryString($markerTypesEmpty));

    $nonStructuredDescriptions = array();

    if ($taxonDescriptions != NULL) {

      foreach ($taxonDescriptions as $taxonDescription) {

        // Check if structured description.

        $hasStructuredData = cdm_ws_get(CDM_WS_DESCRIPTION_HAS_STRUCTRURED_DATA, $taxonDescription->uuid);

        if (isset($hasStructuredData->Boolean)) {

          $hasStructuredData = $hasStructuredData->Boolean == 'TRUE';

        }

        if ($hasStructuredData) {

          $structured_description_featuretree_uuid = variable_get(CDM_DATAPORTAL_STRUCTURED_DESCRIPTION_FEATURETREE_UUID, FALSE);

          if($structured_description_featuretree_uuid) {

            // if a feature tree for natural language generation has been defined use it,

            // otherwise natural language generation is skipped

            $naturallanguage_textData = cdm_ws_get(CDM_WS_DESCRIPTION_NATURALLANGUAGE_DESCRIPTION, array(

              $taxonDescription->uuid,

              $structured_description_featuretree_uuid,

            ));

            if (!isset($naturallanguage_textData)) {

              drupal_set_message(

                t(

                "The 'FeatureTree' for the generation of natural language representations is not configured correctly,"

                ." please select a 'FeatureTree' in the !settings",

                array(

              		'!settings' => l(t('CDM Dataportal Settings'), 'admin/config/cdm_dataportal/layout/taxon'))

              		),

              	'warning');

            } else {

              $taxonDescription->elements = NULL;

              $taxonDescription->elements = array(

                $naturallanguage_textData,

              );

            }

          }

        }

        $nonStructuredDescriptions[] = $taxonDescription;

      }

      // Release memory.

      $taxonDescriptions = NULL;

    }

    $mergedTrees = cdm_ws_descriptions_by_featuretree(get_profile_featureTree(), $nonStructuredDescriptions, variable_get('cdm_dataportal_descriptions_separated', FALSE));

    $out .= '<div id="general">';

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

      'taxon' => $taxon,

      'mergedTrees' => $mergedTrees,

      'media' => $media,

      'hideImages' => $hideImages,

      ));

    $out .= '</div>';

  }

  // --- PAGE PART: IMAGES --- //

  if ((!$hideImages && $page_part == 'images' || $page_part == 'all')) {

    $out .= '<div id="images">';

    if ($page_part == 'all') {

      $out .= '<h2>' . t('Images') . '</h2>';

    }

    // Get the image gallery as configured by the admin.

    $taxon_image_gallery = call_user_func_array('taxon_image_gallery_' . variable_get('image_gallery_viewer', 'default'), array(

      $taxon,

      $media,

    ));

    $out .= $taxon_image_gallery;

    $out .= '</div>';

  }

  // --- PAGE PART: SYNONYMY --- //

  if (($page_part == 'synonymy' || $page_part == 'all')) {

    $out .= '<div id="synonymy">';

    if ($page_part == 'all') {

      $out .= '<h2>' . t('Synonymy') . '</h2>';

    }

    $addAcceptedTaxon = variable_get('cdm_dataportal_nomref_in_title', CDM_DATAPORTAL_NOMREF_IN_TITLE);

    $out .= theme('cdm_taxon_page_synonymy', array('taxon' => $taxon, 'addAcceptedTaxon' => $addAcceptedTaxon));

    $out .= '</div>';

  }

  // --- PAGE PART: SPECIMENS --- //

  if ($specimensOrObservationsCount > 0 && ($page_part == 'specimens' || $page_part == 'all')) {

    $out .= '<div id="specimens">';

    if ($page_part == 'all') {

      $out .= '<h2>' . t('Specimens') . '</h2>';

    }

    $out .= theme('cdm_taxon_page_specimens', array('taxon' => $taxon));

    $out .= '</div>';

  }

  // --- PAGE PART: KEYS --- //

  if ($identificationKeyCount > 0 && ($page_part == 'keys' || $page_part == 'all')) {

    $out .= '<div id="keys">';

    if ($page_part == 'all') {

      $out .= '<h2>' . t('Keys') . '</h2>';

    }

    $out .= theme('cdm_block_IdentificationKeys', array('taxonUuid' => $taxon->uuid));

    $out .= '</div>';

  }

  return $out;

}

/**

 * Returns HTML containing descriptive data and preferred picture.

 *

 * Outputs all descriptive data and shows the preferred picture of the

 * accepted taxon.

 *

 * @param array $variables

 *   An associative array containing:

 *   - taxon

 *   - mergedTrees

 *   - media:

 *   - hideImages

 *

 * @ingroup themeable

 */

function theme_cdm_taxon_page_profile($variables) {

  $taxon = $variables['taxon'];

  $mergedTrees = $variables['mergedTrees'];

  $media = $variables['media'];

  $hideImages = $variables['hideImages'];

  $out = '';

  if (variable_get('cdm_dataportal_show_default_image', FALSE) && !$hideImages) {

    // Preferred image hardcoded for testing.

    $defaultRepresentationPart = new stdClass();

    $defaultRepresentationPart->width = 184;

    $defaultRepresentationPart->height = 144;

    $defaultRepresentationPart->uri = drupal_get_path('theme', 'palmweb_2') . '/images/no_picture.png';

    // Preferred image size 184px × 144.

    $imageMaxExtend = 184;

    $out .= '<div id="taxonProfileImage">' . theme('cdm_preferredImage', array(

      'media' => $media,

      'defaultRepresentationPart' => $defaultRepresentationPart,

      'imageMaxExtend' => $imageMaxExtend,

      )) . '</div>';

  }

  // Description TOC.

  $out .= theme('cdm_featureTreeTOCs', array('mergedTrees' => $mergedTrees));

  // Description.

  $out .= theme('cdm_featureTrees', array('mergedTrees' => $mergedTrees, 'taxon' => $taxon));

  return $out;

}

/**

 * @todo Please document this function.

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

 */

function theme_cdm_taxon_page_specimens($variables) {

  $out = '';

  $taxon = $variables['taxon'];

  RenderHints::pushToRenderStack('taxon_page_specimens');

  // Comment @WA: Note the spelling error.

  $specimensOrObservations = cdm_ws_get(CDM_WS_TAXON, array(

    $taxon->uuid,

    'specimensOrObersvations',

  ));

  // Collect media (fieldObjectMedia, derivedUnitMedia) and add as fields.

  foreach ($specimensOrObservations as &$occurrence) {

    $occurrence->_fieldObjectMedia = cdm_ws_get(CDM_WS_DERIVEDUNIT_FACADE, array(

      $occurrence->uuid,

      'fieldObjectMedia',

    ));

    $occurrence->_derivedUnitMedia = cdm_ws_get(CDM_WS_DERIVEDUNIT_FACADE, array(

      $occurrence->uuid,

      'derivedUnitMedia',

    ));

    /*

    $derivedUnitFacde = cdm_ws_get(CDM_WS_DERIVEDUNIT_FACADE,

    array($descriptionElement->associatedSpecimenOrObservation->uuid) );

    $descriptionElement->_titleCache = $derivedUnitFacde->titleCache;

    */

  }

  if (count($specimensOrObservations) > 0) {

    $occurrenceQuery = cdm_ws_get(CDM_WS_GEOSERVICE_OCCURRENCEMAP, $taxon->uuid);

    if( isset($occurrenceQuery->String) ) {

      // os=&od=&legend=0&recalculate=false&image=false

      $occurrenceQuery = $occurrenceQuery->String;

      if (variable_get('cdm_dataportal_map_openlayers', 1)) {

        $out .= get_openlayers_map(variable_get('cdm_dataportal_geoservice_display_width', FALSE), variable_get('cdm_dataportal_geoservice_bounding_box', FALSE), $occurrenceQuery, NULL,

            // Comment @WA: not defined.

            // $legendFormatQueryStr,

            NULL, variable_get('cdm_dataportal_geoservice_map_caption', ''));

      }

      else {

        // get_image_map($width, $occurrenceQuery = FALSE, $distributionQuery = FALSE, $legendFormatQuery = FALSE, $map_caption = FALSE )

        $out .= get_image_map(variable_get('cdm_dataportal_geoservice_display_width', FALSE), variable_get('cdm_dataportal_geoservice_bounding_box', FALSE), $occurrenceQuery, NULL,

            // @WA: not defined

            // $legendFormatQueryStr,

            NULL, variable_get('cdm_dataportal_geoservice_map_caption', ''));

      }

    }

  }

  $out_specimenList = '';

  if ($specimensOrObservations) {

    $out_specimenList = '<table class="specimens">';

    $i = 1;

    foreach ($specimensOrObservations as $specimensOrObservation) {

      $i++;

      $mediaList = array();

      if (is_array($specimensOrObservation->_fieldObjectMedia)) {

        $mediaList = array_merge($mediaList, $specimensOrObservation->_fieldObjectMedia);

      }

      if (is_array($specimensOrObservation->_derivedUnitMedia)) {

        $mediaList = array_merge($mediaList, $specimensOrObservation->_derivedUnitMedia);

      }

      // --- Render the title cache.

      $out_row = '<tr class="descriptionElement descriptionElement_IndividualsAssociation ' . ($i % 2 ? 'odd' : 'even') . '">';

      if ($specimensOrObservation->class != 'FieldObservation') {

        $label_html = cdm_dynabox($specimensOrObservation->titleCache, cdm_compose_url('portal/' . CDM_WS_DERIVEDUNIT_FACADE, array(

          $specimensOrObservation->uuid,

        )), 'cdm_derivedUnitFacade', 'Click for details', array(

          'div',

          'div',

        ));

      }

      else {

        $label_html = $specimensOrObservation->titleCache;

      }

      $out_row .= '<td>' . $label_html . '</td>';

      // --- Render associated media.

      if (count($mediaList) > 0) {

        $gallery_settings = getGallerySettings(CDM_DATAPORTAL_SPECIMEN_GALLERY_NAME);

        $gallery_name = $specimensOrObservation->uuid;

        $captionElements = array(

          '#uri' => t('open media'),

        );

        $gallery_html = theme('cdm_media_gallerie', array(

          'mediaList' => $mediaList,

          'galleryName' => $gallery_name,

          'maxExtend' => $gallery_settings['cdm_dataportal_media_maxextend'],

          'cols' => $gallery_settings['cdm_dataportal_media_cols'],

          'maxRows' => $gallery_settings['cdm_dataportal_media_maxRows'],

          'captionElements' => $captionElements,

          'mediaLinkType' => 'LIGHTBOX',

          'alternativeMediaUri' => NULL,

          'galleryLinkUri' => NULL,

          ));

      }

      else {

        $gallery_html = '';

      }

      $out_row .= '<td>' . $gallery_html . '</td></tr>';

      $out_specimenList .= $out_row;

    }

    $out_specimenList .= '</table>';

  }

  $out .= $out_specimenList;

  RenderHints::popFromRenderStack();

  return $out;

}

/**

 * Returns HTML containing the synonymy for the accepted taxon.

 *

 * Shows the whole synonymy for the accepted taxon.

 * The synonymy list is headed by the complete scientific name

 * of the accepted taxon with nomenclatural reference.

 *

 * @param array $variables

 *   An associative array containing:

 *   - taxon

 *   - addAcceptedTaxon

 *

 * @ingroup themeable

 */

function theme_cdm_taxon_page_synonymy($variables) {

  $taxon = $variables['taxon'];

  $addAcceptedTaxon = $variables['addAcceptedTaxon'];

  RenderHints::pushToRenderStack('taxon_page_synonymy');

  $synomymie = cdm_ws_get(CDM_WS_PORTAL_TAXON_SYNONYMY, $taxon->uuid);

  $skip = array(

    UUID_BASIONYM,

  );

  $out = '';

  // Render accepted taxon.

  $referenceUri = '';

  if ($addAcceptedTaxon) {

    if (isset($taxon->name->nomenclaturalReference)) {

      $referenceUri = url(path_to_reference($taxon->name->nomenclaturalReference->uuid));

    }

    $accepted_name = '<span class="accepted-name">';

    $accepted_name .= theme('cdm_taxonName', array(

      'taxonName' => $taxon->name,

      'nameLink' => NULL,

      'refenceLink' => $referenceUri,

      ));

    $accepted_name .= '</span>';

    $special_annotations_array = array();

    $special_annotations_array[] = $taxon->name;

    $special_annotations_array[] = $taxon;

    $accepted_name .= theme('cdm_annotations_as_footnotekeys', array('cdmBase_list' => $special_annotations_array, 'footnote_list_key' => RenderHints::getRenderPath() . '-annotations'));

    RenderHints::setFootnoteListKey(RenderHints::getRenderPath() . '-annotations');

  }

  // Render homotypic synonymy group.

  $hasHomotypicSynonyms = isset($synomymie->homotypicSynonymsByHomotypicGroup[0]->name->uuid);

  if (!empty($accepted_name)) {

    $out .= $accepted_name;

  }

  if (!$hasHomotypicSynonyms) {

    // Show typeDesignations even if the homotypic synonymy group is empty.

    $typeDesignations = cdm_ws_get(CDM_WS_PORTAL_TAXON_NAMETYPEDESIGNATIONS, $taxon->uuid);

    if ($typeDesignations) {

      $out .= theme('cdm_typedesignations', array('typeDesignations' => $typeDesignations));

    }

    if (!empty($typeDesignations) || !empty($accepted_name)) {

      // Add empty list for coherent layout.

      $out .= '<ul class="homotypicSynonyms"></ul>';

    }

  }

  else {

    // Render the homotypicSynonymyGroup including the type information.

    $out .= theme('cdm_homotypicSynonymyGroup', array('synonymList' => $synomymie->homotypicSynonymsByHomotypicGroup, 'accepted_taxon_uuid' => $taxon->uuid));

  }

  // Render accepted taxon heterotypic synonymy groups.

  if ($synomymie->heterotypicSynonymyGroups) {

    foreach ($synomymie->heterotypicSynonymyGroups as $homotypicalGroup) {

      $out .= theme('cdm_heterotypicSynonymyGroup', array('homotypicalGroup' => $homotypicalGroup));

    }

  }

  // Render taxon relationships.

  if (variable_get(CDM_DATAPORTAL_DISPLAY_TAXON_RELATIONSHIPS, CDM_DATAPORTAL_DISPLAY_TAXON_RELATIONSHIPS_DEFAULT)) {

    $taxonRelationships = cdm_ws_get(CDM_WS_PORTAL_TAXON_RELATIONS, $taxon->uuid);

    $out .= theme('cdm_taxonRelationships', array('taxonRelationships' => $taxonRelationships, 'focusedTaxon' => $taxon));

  }

  // Render name relationships.

  $name_rels_to_show = variable_get('name_relationships_to_show', NULL);

  $skip = array();

  if ($name_rels_to_show) {

    foreach ($name_rels_to_show as $key => $value) {

      if ($value === 0) {

        $skip[] = $key;

      }

    }

    if (sizeof($name_rels_to_show) != sizeof($skip)) {

      $nameRelationships = cdm_ws_get(CDM_WS_PORTAL_TAXON_TO_NAMERELATIONS, $taxon->uuid);

      $out .= theme('cdm_nameRelationships', array('nameRelationships' => $nameRelationships, 'skipTypes' => $skip));

    }

  }

  // Render the annontations text for the accepted taxa.

  if ($addAcceptedTaxon) {

    $out .= theme('cdm_footnotes', array('footnoteListKey' => RenderHints::getRenderPath() . '-annotations', 'enclosingTag' => 'li'));

  }

  RenderHints::popFromRenderStack();

  return $out;

}

/**

 * TODO Implementation of Hook taxon_image_gallery()

 *

 * @param unknown_type $taxon

 * @param unknown_type $media

 *

 * @return unknown_type

 */

function taxon_image_gallery_default($taxon, $media) {

  $hasImages = isset($media[0]);

  if ($hasImages) {

    $maxExtend = 150;

    $cols = 3;

    $maxRows = FALSE;

    $alternativeMediaUri = NULL;

    /* Comment @WA: was in D5:

    $captionElements = array(

      'title',

      'rights',

      '#uri' => t('open Image'),

    );

    */

    $captionElements = array(

      'title',

      'description',

      'artist',

      'location',

      'rights',

      '#uri' => t('open Image'),

    );

    $gallery_name = $taxon->uuid;

    $mediaLinkType = 'LIGHTBOX';

    // $gallery_settings = getGallerySettings(CDM_DATAPORTAL_MEDIA_GALLERY_NAME);

    $gallery_settings = getGallerySettings(CDM_DATAPORTAL_TAXON_MEDIA_GALLERY_NAME_TAB);

    $out = '<div class="image-gallerie">';

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

      'mediaList' => $media,

      'galleryName' => $gallery_name,

      'maxExtend' => $gallery_settings['cdm_dataportal_media_maxextend'],

      'cols' => $gallery_settings['cdm_dataportal_media_cols'],

      'maxRows' => 0, // Ignore maxrows settings.

      'captionElements' => $captionElements,

      'mediaLinkType' => $mediaLinkType,

      'alternativeMediaUri' => NULL,

      'galleryLinkUri' => NULL,

      'showCaption' => $gallery_settings['cdm_dataportal_show_thumbnail_captions'],

    ));

    $out .= '</div>';

  }

  else {

    $out = 'No images available.';

  }

  return $out;

}

/**

 * TODO Implementation of Hook taxon_image_gallery()

 *

 * @param unknown_type $taxon

 * @param unknown_type $media

 *

 * @return unknown_type

 */

function taxon_image_gallery_fsi($taxon, $media) {

  $flashLink = isset($media[0]);

  if ($flashLink) {

    if (module_exists("fsi_gallery")) {

      $out = theme("fsi_gallery", array('taxon' => $taxon, 'media' => $media));

    }

    else {

      $message = t('In order to use the FSI gallery you must enable the according ') . l(t("module"), "admin/modules");

      drupal_set_message($message, "error");

      $out = '<h3>' . $message . '</h3>';

    }

  }

  else {

    $out = 'No images available.';

  }

  return $out;

}

/**

 * Returns HTML for a single reference page.

 *

 * Renders a page with all data on a single reference.

 *

 * @param array $variables

 *   An associative array containing:

 *   - reference: Object.

 *

 * @ingroup themeable

 */

function theme_cdm_reference_page($variables) {

  $reference = $variables['reference'];

  $out = '';

  if (isset($reference->titleCache)) {

    drupal_set_title($reference->titleCache, PASS_THROUGH);

  }

  $field_order = array(

    "title",

    // "titleCache",

    // "citation",

    "authorTeam",

    "editor",

    "publisher",

    "placePublished",

    "datePublished",

    "year",

    "edition",// Class Book.

    "volume",// Class Article.

    "seriesPart",

    "inReference",

    "nomRefBase", // Class BookSection, Book, Article.

    "pages",// Class Article.

    "series",// Class Article, PrintSeries.

    "school",// Class Thesis.

    "institution",// Class Report.

    "organization",// Class Proceedings.

    "nextVersion",

    "previousVersion",

    "isbn",// Class Book.

    "issn",// Class Journal.

    "uri",

  );

  $header = array(

    t('Field'),

    t('Value'),

  );

  $table_rows = array();

  if (!isset($reference->authorTeam)) {

    $authorTeam = cdm_ws_get(CDM_WS_REFERENCE_AUTHORTEAM, $reference->uuid);

    $reference->authorTeam = isset($authorTeam->titleCache) ? $authorTeam->titleCache : '';

  }

  if (!isset($reference->inReference)) {

    $reference->inReference = cdm_ws_get(CDM_WS_REFERENCE, array(

      $reference->uuid,

      "inReference",

    ));

  }

  foreach ($field_order as $fieldname) {

    if (isset($reference->$fieldname)) {

      if ($fieldname == "datePublished") {

        $period = $reference->$fieldname;

        $datePublished = timePeriodToString($period);

        if (isset($datePublished) && $datePublished != '') {

          $table_rows[] = array(

            t(ucfirst(strtolower($fieldname))),

            $datePublished,

          );

        }

        // $datePublished = array(t(ucfirst(strtolower($fieldname))),

        // $datePublished);

      }

      elseif (is_object($reference->$fieldname)) {

        if ($fieldname == "authorTeam") {

          $dump = $reference->$fieldname;

          $teammembers = "teamMembers";

          $team = $dump->$teammembers;

          $nameArray = array();

          foreach ($team as $member) {

            if (strlen($member->lastname) > 0) {

              $nname = $member->lastname;

              $name = $nname;

              if (strlen($member->firstname) > 0) {

                $vname = $member->firstname;

                $name = $vname . " " . $nname;

              }

              $nameArray[] = $name;

            }

            else {

              if (strlen($member->titleCache) > 0) {

                $nameArray[] = $member->titleCache;

              }

            }

          }

          $value = join($nameArray, ", ");

        }

        elseif ($fieldname == "inReference") {

          $type = $reference->$fieldname->type;

          $value = l($reference->$fieldname->titleCache, path_to_reference($reference->$fieldname->uuid));

          switch ($type) {

            case "Book":

              $fieldname = "in book";

              break;

            case "Journal":

              $fieldname = "in journal";

              break;

            case "Proceedings":

              $fieldname = "in proceedings";

              break;

          }

        }

        else {

          $value = $reference->$fieldname->titleCache;

        }

        if (isset($value) && $value != '') {

          $table_rows[] = array(

            t(ucfirst(strtolower($fieldname))),

            $value,

          );

        }

      }

      else {

        if (isset($reference->$fieldname) && $reference->$fieldname != '') {

          $table_rows[] = array(

            t(ucfirst(strtolower($fieldname))),

            $reference->$fieldname,

          );

        }

      }

    }

  }

  $out = theme_table(array(

      'header' => array(),

      'rows' => $table_rows,

      'attributes' => array(),

      'caption' => NULL,

      'colgroups' => NULL,

      'sticky' => NULL,

     'empty' => NULL,

  ));

  // Annotations below the table.

  $annotations = cdm_ws_getAnnotationsFor($reference);

  $out .= theme("cdm_annotations", array('annotations' => $annotations));

  return $out;

}

/**

 * @todo Please document this function.

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

 */

function theme_cdm_media_page($variables) {

  $media = $variables['media'];

  $mediarepresentation_uuid = $variables['mediarepresentation_uuid'];

  $partId = $variables['partId'];

  $out = '';

  // Determine which reprresentation and which part to show.

  $representationIdx = 0;

  if ($mediarepresentation_uuid) {

    $i = 0;

    foreach ($media->representations as $representation) {

      if ($representation->uuid == $mediarepresentation_uuid) {

        $representationIdx = $i;

      }

      $i++;

    }

  }

  else {

    $mediarepresentation_uuid = $media->representations[0]->uuid;

  }

  $partIdx = 0;

  if (!is_numeric($partId)) {

    // Assuming it is an uuid.

    $i = 0;

    foreach ($media->representations[$representationIdx]->parts as $part) {

      if ($part->uuid == $partId) {

        $partIdx = $i;

      }

      $i++;

    }

  }

  else {

    // Assuming it is an index.

    $partIdx = $partId;

  }

  $media_metadata = cdm_read_media_metadata($media);

  // $title = $media->titleCache;

  $title = $media_metadata['title'];

  $imageMaxExtend = variable_get('image-page-maxextend', 400);

  if (!$title) {

    $title = 'Media ' . $media->uuid . '';

  }

  drupal_set_title($title, PASS_THROUGH);

  $out .= '<div class="media cdm_media_viewer_image">';

  // $out .= '<div class="viewer">';

  $out .= theme('cdm_back_to_image_gallery_button', array());

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

  // $out .= theme('cdm_media_gallerie_image', $representation->parts[$partIdx],

  // $imageMaxExtend);

  $out .= theme('cdm_openlayers_image', array('mediaRepresentationPart' => $media->representations[$representationIdx]->parts[$partIdx], 'maxExtend' => $imageMaxExtend));