EDIT

7.x/modules/cdm_dataportal/includes/occurrences.inc -text

7.x/modules/cdm_dataportal/includes/pages.inc -text

module_load_include('inc', 'cdm_dataportal', 'includes/pages');

module_load_include('inc', 'cdm_dataportal', 'includes/occurrences');

<?php

/**

 * @file

 * Functions for dealing with CDM entities of type SpeciemenOrOccurrences

 *

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

 *

 * @author

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

 */

<?php

/**

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

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

 *

 * @author

 *   - 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()

 *

 * FIXME: map not including locations of related taxa !!!!

 */

function cdm_dataportal_taxon_page_specimens($taxon) {

  $render_array = array();

  RenderHints::pushToRenderStack('taxon_page_specimens');

  $congruentTo = "60974c98-64ab-4574-bb5c-c110f6db634d"; //TODO make configurable in settings

  $specimensOrObservations = cdm_ws_get(CDM_WS_OCCURRENCE_BY_ASSOCIATEDTAXON,

      null,

      drupal_http_build_query(array(

          'taxonUuid' => $taxon->uuid,

          'relationshipUuids' => $congruentTo,

          'relationshipInversUuids' => $congruentTo,

          'pageSize' => null // al hits in one page

      )

      )

  );

  //   TODO uncomment once CDM_WS_OCCURRENCE_BY_ASSOCIATEDTAXON is returning a pager

  //   $specimensOrObservations = array();

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

  //     $specimensOrObservations =  $pager->records;

  //   }

  // 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) {

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

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

      $occurrenceQuery = $occurrenceQuery->String;

      $legendFormatQueryStr = null;

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

        $map_html = get_openlayers_map(variable_get('cdm_dataportal_geoservice_display_width', 680), variable_get('cdm_dataportal_geoservice_bounding_box', FALSE), $occurrenceQuery, NULL,

            $legendFormatQueryStr, variable_get('cdm_dataportal_geoservice_map_caption', ''));

      }

      else {

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

        $map_html = get_image_map(variable_get('cdm_dataportal_geoservice_display_width', 680), variable_get('cdm_dataportal_geoservice_bounding_box', FALSE), $occurrenceQuery, NULL,

            $legendFormatQueryStr, variable_get('cdm_dataportal_geoservice_map_caption', ''));

      }

      $render_array['map'] = markup_to_render_array($map_html, 0);

    }

  }

  // --- 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 $specimensOrObservation) {

      $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.

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

        // details are loaded on request via the cdm_dynabox by AJAX from the

        // CDM_WS_DERIVEDUNIT_FACADE (derivedUnitFacade/{uuid}) webservice

        // and will be rendered by the theme_cdm_derivedUnitFacade() function

        $derived_unit_ws_request = cdm_compose_url('portal/' . CDM_WS_DERIVEDUNIT_FACADE, array( $specimensOrObservation->uuid));

        $label_html = cdm_dynabox(

            $specimensOrObservation->titleCache,

            $derived_unit_ws_request,

            'cdm_derivedUnitFacade', // the theme function to use

            'Click for details',

            array('div','div')

        );

      } else {

        // Fieldobservations are not yet fully handled,  only the titleChach will be displayed

        $label_html = $specimensOrObservation->titleCache;

      }

      // --- Render associated media.

      $gallery_html = '';

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

          ),

      );

    }

  }

  $render_array['specimen_list'] = $specimen_table;

  RenderHints::popFromRenderStack();

  return $render_array;

}