EDIT

  /* TODO

            @_description_list_group_add($sub_dl_groups, cdm_occurrence_field_name_label('medium'), $value->medium, NULL, 1);

            @_description_list_group_add($sub_dl_groups, cdm_occurrence_field_name_label('temperature'), $value->temperature, NULL, 2);

            @_description_list_group_add($sub_dl_groups, cdm_occurrence_field_name_label('definedMaterialOrMethod'), $value->definedMaterialOrMethod, NULL, 3);

  */

  /* TODO

case 'dnaQuality':

            $sub_dl_groups = array();

            @_description_list_group_add($sub_dl_groups, cdm_occurrence_field_name_label('purificationMethod'), $value->purificationMethod, NULL, 1);

            @_description_list_group_add($sub_dl_groups, cdm_occurrence_field_name_label('ratioOfAbsorbance260_230'), $value->ratioOfAbsorbance260_230, NULL, 2);

            @_description_list_group_add($sub_dl_groups, cdm_occurrence_field_name_label('ratioOfAbsorbance260_280'), $value->ratioOfAbsorbance260_280, NULL, 3);

            @_description_list_group_add($sub_dl_groups, cdm_occurrence_field_name_label('concentration'), $value->concentration, NULL, 4);

            @_description_list_group_add($sub_dl_groups, cdm_occurrence_field_name_label('concentrationUnit'), $value->concentrationUnit, NULL, 4);

            @_description_list_group_add($sub_dl_groups, cdm_occurrence_field_name_label('qualityTerm'), $value->qualityTerm, NULL, 4);

            @_description_list_group_add($sub_dl_groups, cdm_occurrence_field_name_label('qualityCheckDate'), $value->qualityCheckDate, NULL, 4);

            if (is_array($sub_dl_groups) && sizeof($sub_dl_groups)>0) {

              @_description_list_group_add($groups, cdm_occurrence_field_name_label($field),

                array(

                  array('#markup' => $value->titleCache),

                  array('#theme' => 'description_list', '#groups' => $sub_dl_groups)

                )

              );

            }

            break;

*/

/**

 * Compose an render array from a CDD SpecimenOrObservation entity.

 *

 * compose_hook() implementation

 *

 * @param object $sob_dto

 *   the CDM FieldUnit or DerivedUnit to compose

 *   the render array for.

 * @param bool $isSpecimen_page

 * @param array $derivatives

 *   the render array which contains the compositions of the derivatives

 *   of the supplied $specimenOrObservation

 *

 * @return array

 *   the supplied render array $derivatives to which the composition of the supplied

 *   $specimenOrObservation has been added to

 *

 * @throws \Exception

 * @ingroup compose

 */

function compose_cdm_specimen_or_observation_new($sob_dto)

{

  $render_array = [];

  if (is_object($sob_dto)) {

    /*** 95% no longer needed

    if ($sob_dto->class == 'FieldUnit'){

      // WARNING: adding a List<MediaDTO> as $specimen_or_observation->_derivedUnitMedia

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

        $sob_dto->uuid,

        'fieldObjectMediaDTO',

      ));

    }else{

      // WARNING: adding a List<Media> as $specimen_or_observation->_derivedUnitMedia

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

        $sob_dto->uuid,

        'derivedUnitMedia',

      ));

    }

    ******/

    RenderHints::setFootnoteListKey($sob_dto->type . '-' . $sob_dto->uuid);

    $render_array['sob_details_grid'] = compose_cdm_specimen_or_observation_dto_details_grid($sob_dto);

      /* TODO

      case 'definition':

                case 'annotations':

      $dd_elements = array();

      foreach ($value as $annotation) {

        // TODO respect annotation type filter settings

        $dd_elements[] = $annotation->text;

      }

      break;

    case 'markers':

      $dd_elements = array();

      foreach ($value as $marker) {

        $dd_elements[] = compose_cdm_marker($marker);

      }

      @_description_list_group_add($groups, cdm_occurrence_field_name_label($field), $dd_elements);

      break;

      @_description_list_group_add($groups, t('Notes:'), $dd_elements);

       *

       */

    /** TODO

    case 'determinations':

      $dd_elements = array();

      $glue = ', ';

      foreach ($value as $determinationEvent) {

        $timeperiod_string = NULL;

        if (isset($determinationEvent->timeperiod)) {

          $timeperiod_string = timePeriodToString($determinationEvent->timeperiod);

        }

        $weight = isset($determinationEvent->preferred) && $determinationEvent->preferred == 1 ? '0' : ($timeperiod_string ? $timeperiod_string : '1');

        // check key exists

        while (array_key_exists($weight, $dd_elements)) {

          $weight .= '0';

        }

        $taxon_name = '';

        $name_link = '';

        if ($determinationEvent->taxonName) {

          $taxon_name = cdm_ws_get(CDM_WS_NAME, $determinationEvent->taxonName->uuid);

          $taxon_name->taggedName = cdm_ws_get(CDM_WS_NAME, array($determinationEvent->taxonName->uuid, "taggedName"));

          $name_link = path_to_name($determinationEvent->taxonName->uuid);

        } else if ($determinationEvent->taxon) {

          $taxon_name = cdm_ws_get(CDM_WS_TAXON . '/$0/name', $determinationEvent->taxon->uuid);

          $name_link = path_to_taxon($determinationEvent->taxon->uuid);

        }

        if ($taxon_name) {

          //$taxon_html = render_taxon_or_name($taxon_name, $name_link);

          $taxon_html = l($taxon_name->titleCache, $name_link);

          $dd_elements[$weight] = $taxon_html;

        }

        if (isset($determinationEvent->modifier)) {

          $dd_elements[$weight] .= cdm_term_representation($determinationEvent->modifier);

        }

        if ($timeperiod_string) {

          $dd_elements[$weight] .= $glue . $timeperiod_string;

        }

        if (isset($determinationEvent->actor->titleCache)) {

          $dd_elements[$weight] .= $glue . $determinationEvent->actor->titleCache;

        }

        if (isset($determinationEvent->description)) {

          $dd_elements[$weight] .= $glue . $determinationEvent->description;

        }

      }

      ksort($dd_elements);

      @_description_list_group_add($groups, cdm_occurrence_field_name_label('determinations'), $dd_elements);

      break;

     */

      /* TODO

    case 'sources':

      RenderHints::setAnnotationsAndSourceConfig([

        'sources_as_content' => TRUE,

        'link_to_name_used_in_source' => TRUE,

        'link_to_reference' => FALSE,

        'add_footnote_keys' => FALSE,

        'bibliography_aware' => FALSE

      ]);

      $annotations_and_sources = handle_annotations_and_sources($sob_dto);

      if ($annotations_and_sources->hasSourceReferences()) {

        @_description_list_group_add($groups, t('Sources') . ':', join(', ', $annotations_and_sources->getSourceReferences()), '', 12);

      }

      break;

       */

    /*   TODO Extensions

    // TODO: filter by using visible_extensions_sorted()

    // TODO: treat as top level element, see https://dev.e-taxonomy.eu/redmine/issues/2985#note-23

    $extensions = cdm_ws_fetch_all(CDM_WS_PORTAL_OCCURRENCE . '/'  . $sob_dto->uuid . '/extensions', array($sob_dto->uuid));

    if ($extensions && count($extensions)) {

      $extensions_render_array = compose_extensions($extensions);

      @_description_list_group_add($groups, t('Extensions') . ':',

        $extensions_render_array,

        '', 100);

    }

    */

  } // END of $specimenOrObservation exists

  return $render_array;

}