EDIT

/**

 * @file

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

 *   - Andreas Kohlbecker <a.kohlbecker@BGBM.org>

 */

/**

 * Creates a render array representing the ocurrences associetad with the $taxon.

 *

 * The resulting render array contains two elements:

 *  - 'map': A map showing all point locations of the occurences is availabale

 *  - 'specimen_list': the list of occurences prepated as table for theme_table()

 *

 * @param object $taxon

 *   A cdm Taxon object

 * @return

 *   A render array suitable for drupal_render()

 *

function cdm_dataportal_taxon_page_specimens($taxon) {

  $render_array = array();

  RenderHints::pushToRenderStack('taxon_page_specimens');

  $relationship_choice = variable_get(CDM_AGGREGATE_BY_TAXON_RELATIONSHIPS, unserialize(CDM_AGGREGATE_BY_TAXON_RELATIONSHIPS_DEFAULT));

  $pager = cdm_ws_get(CDM_WS_OCCURRENCE_BY_ASSOCIATEDTAXON,

      null,

      $by_associatedtaxon_query . '&taxonUuid=' . $taxon->uuid

  );

  $specimensOrObservations = array();

  if(isset($pager->records[0])){

    $specimensOrObservations =  $pager->records;

  $specimensOrObservations = array_merge($type_specimens, $other_occurrences);

  // Collect media (fieldObjectMedia, derivedUnitMedia) and add as a custom field

  // $occurrence->_fieldObjectMedia

  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',

    ));

  }

  // --- get map service HTTP query paramaters

  if (count($specimensOrObservations) > 0) {

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

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

      $occurrence_query = $occurrence_query->String;

      $distribution_query = NULL;

      $render_array['map'] = compose_map($occurrence_query, $distribution_query, $legend_format_query);

    }

  }

  // --- generate the specimen list as table

  $specimen_table = array(

      '#theme' => 'table',

      '#weight' => 2,

      // prefix attributes and rows with '#' to let it pass to the theme function,

      // otherwise it is handled as child render array

      '#attributes' => array('class' => 'specimens'),

      '#rows' => array(),

  );

  if ($specimensOrObservations) {

    foreach ($specimensOrObservations as $specimenOrObservation) {

      $mediaList = array();

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

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

      }

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

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

            $type_status[] = $typeDesignation->typeStatus->representation_L10n;

          }

        }

        }

      }

      $gallery_name = $specimenOrObservation->uuid;

      $label_html = cdm_dynabox(

          $specimenOrObservation->uuid,

          $type_label . $specimenOrObservation->titleCache,

          $derived_unit_ws_request,

          'cdm_specimenOrObservation', // the theme or compose function to use

          array('div','div'),

          'function(){ jQuery(\'#media_gallery_' . $gallery_name . '\').hide(); }', // open_callback

          'function(){ jQuery(\'#media_gallery_' . $gallery_name . '\').show(); }' // close_callback

      );

      // --- Render associated media.

      $gallery_html = '';

      if (count($mediaList) > 0) {

        $gallery_settings = getGallerySettings(CDM_DATAPORTAL_SPECIMEN_GALLERY_NAME);

        $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' => isset($gallery_settings['cdm_dataportal_media_maxRows']) ? isset($gallery_settings['cdm_dataportal_media_maxRows']) : null,

            'captionElements' => $captionElements,

            'mediaLinkType' => 'LIGHTBOX',

            'alternativeMediaUri' => NULL,

            'galleryLinkUri' => NULL,

        ));

      }

      $specimen_table['#rows'][] = array(

          // An array of table rows. Every row is an array of cells, or an associative array

          'data' => array(

              // Each cell can be either a string or an associative array

              $label_html . $gallery_html

          ),

          'class' =>  array(

              'descriptionElement',

              'descriptionElement_IndividualsAssociation'

          ),

      );

    }

  }

  );

  RenderHints::popFromRenderStack();

  return $render_array;

      // 5. put all distribution data into the distribution feature node

  $toc = array(

    '#theme' => 'item_list',

    '#items' => cdm_feature_node_toc_items($merged_tree->root->childNodes),

    '#title' => t('Content'),

    '#weight' => -100,                  // move to the top

    '#suffix' => '</div>',

    '#prefix'=> '<div id="page-toc">'

  );

  $render_array['taxon_description_feature_toc'] = $toc; //markup_to_render_array($toc_html);

  if(variable_get(BIBLIOGRAPHY_FOR_ORIGINAL_SOURCE, 1) == 1){

    $bibliography_block = feature_block(t('Bibliography'));

    $bibliography_block->content = FootnoteManager::renderFootnoteList('BIBLIOGRAPHY');

    $render_array['taxon_description_bibliography'] =  markup_to_render_array(

      theme('block',

        array(

          'elements' => array(

            '#block' => $bibliography_block,

            '#children' => $bibliography_block->content,

          )

        )

      ),

      100 // weight

    );

    $render_array['taxon_description_feature_toc']['#items'][] = toc_list_item('Bibliography', array('class' => 'bibliography'));

  }

  }

}