Project

General

Profile

Statistics
| Branch: | Tag: | Revision:

cdm-dataportal / modules / cdm_dataportal / theme / cdm_dataportal.name.theme @ 384ff2ba

History | View | Annotate | Download (13.9 KB)

1
<?php
2
/**
3
 * @file
4
 * Name theming functions.
5
 *
6
 * @copyright
7
 *   (C) 2007-2012 EDIT
8
 *   European Distributed Institute of Taxonomy
9
 *   http://www.e-taxonomy.eu
10
 *
11
 *   The contents of this module are subject to the Mozilla
12
 *   Public License Version 1.1.
13
 * @see http://www.mozilla.org/MPL/MPL-1.1.html
14
 */
15

    
16
/**
17
 * Return HTML for the lectotype citation with the correct layout.
18
 *
19
 * This function prints the lectotype citation with the correct layout.
20
 * Lectotypes are renderized in the synonymy tab of a taxon if they exist.
21
 *
22
 * @param mixed $typeDesignation
23
 *   Object containing the lectotype citation to print.
24
 *
25
 * @return string
26
 *   Valid html string.
27
 */
28
function type_designation_citation_layout($typeDesignation, $footnote_separator = ',') {
29
  $res = '';
30
  $citation = $typeDesignation->citation;
31
  $pages = $typeDesignation->citationMicroReference;
32
  if(isset($typeDesignation->typeStatus->uuid) && isset($typeDesignation->typeStatus->representation_L10n)) {
33
    if ( $typeDesignation->typeStatus->uuid == UUID_NTD_ORIGINAL_DESIGNATION || $typeDesignation->typeStatus->uuid == UUID_NTD_MONOTYPY) {
34
      $res = ' (' . $typeDesignation->typeStatus->representation_L10n . ')';
35
      return $res;
36
    }
37
  }
38

    
39
  if ($citation) {
40
    // $type = $typeDesignation_citation->type;
41
    $year = isset($citation->datePublished->start) ? substr($citation->datePublished->start, 0, 4) : '';
42
    $author = isset($citation->authorship->titleCache) ? $citation->authorship->titleCache : '';
43
    $res .= ' (designated by ';
44
    $res .= $author;
45
    $res .= ($year ? ' ' . $year : '');
46
    $res .= ($pages ? ': ' . $pages : '');
47
    // $res .= ')';
48

    
49
    // footnotes should be rendered in the parent element so we
50
    // are relying on the FootnoteListKey set there
51
    $fkey_typeDesignation = FootnoteManager::addNewFootnote(RenderHints::getFootnoteListKey(), $typeDesignation->citation->titleCache);
52
    $res .= theme('cdm_footnote_key', array(
53
      'footnoteKey' => $fkey_typeDesignation,
54
      'separator' => $footnote_separator,
55
      'highlightable' => TRUE,
56
      'separator_off' => TRUE,
57
    )) . ')';
58
  }
59
  return $res;
60
}
61

    
62

    
63
/**
64
 * Renders and array of CDM TypeDesignations
65
 *
66
 * @param array $variables
67
 *   - typeDesignations: an array of cdm TypeDesignation entities to render
68
 */
69
function theme_cdm_typedesignations($variables) {
70
  $type_designations = $variables['typeDesignations'];
71

    
72
  // need to add element to render path since type designations
73
  // need other name render template
74
  RenderHints::pushToRenderStack('typedesignations');
75

    
76
  $out = '<ul class="typeDesignations">';
77
  $typeDesignation_footnotes = FALSE;
78
  $is_lectotype = FALSE;
79
  $specimen_type_designations = array();
80
  $separator = ',';
81
  foreach ($type_designations as $type_designation) {
82
    if ($type_designation->class == 'SpecimenTypeDesignation') {
83
      // SpecimenTypeDesignations should be ordered. Collect theme here only.
84
      $specimen_type_designations[] = $type_designation;
85
    }
86
    // It is a lectotype?
87
    else {
88
      if (isset($type_designation->typeStatus->uuid) && $type_designation->typeStatus->uuid == UUID_NTD_LECTOTYPE) {
89
        $is_lectotype = TRUE;
90
      }
91
      // It's a NameTypeDesignation.
92
      if ($type_designation->notDesignated) {
93
        $out .= '<li class="' . html_class_attribute_ref($type_designation) . '"><span class="status">' . ($is_lectotype ? 'Lectotype' : 'Type') . '</span>: ' . t('not designated') . '</li>';
94
      }
95
      elseif ($type_designation->typeName) {
96
        $link_to_name_page = url(path_to_name($type_designation->typeName->uuid));
97
        $out .= '<li class="' . html_class_attribute_ref($type_designation) . '"><span class="status">' . ($is_lectotype ? 'Lectotype' : 'Type') . '</span>';
98

    
99
        if ($type_designation->citation) {
100
          $out .= type_designation_citation_layout($type_designation, $separator);
101

    
102
        }
103
        $referenceUri = '';
104
        if (isset($type_designation->typeName->nomenclaturalReference)) {
105
          $referenceUri = url(path_to_reference($type_designation->typeName->nomenclaturalReference->uuid));
106
        }
107
        $out .= ': ' . render_taxon_or_name($type_designation->typeName, $link_to_name_page, $referenceUri, TRUE, TRUE);
108
      }
109
    }
110
  }
111

    
112
  if (!empty($specimen_type_designations)) {
113
    // Sorting might be different for dataportals so this has to be
114
    // parameterized.
115
    usort($specimen_type_designations, "compare_specimen_type_designation");
116
    foreach ($specimen_type_designations as $type_designation) {
117
      $typeReference = '';
118

    
119
      if (!empty($type_designation->citation)) {
120

    
121
        $citation_footnote_str = theme('cdm_reference', array('reference' => $type_designation->citation, 'doIconLink' => true));
122
        $author_team = cdm_ws_get(CDM_WS_REFERENCE_AUTHORTEAM, $type_designation->citation->uuid);
123

    
124
        if (isset($author_team->titleCache)) {
125
          $year = timePeriodToString($type_designation->citation->datePublished, true, 'YYYY');
126
          $authorteam_str = $author_team->titleCache . ($year ? ' ' : '') . $year;
127
          if ($authorteam_str == $type_designation->citation->titleCache) {
128
            $citation_footnote_str = '';
129
          }
130
        } else {
131
          $authorteam_str = $citation_footnote_str;
132
          // no need for a footnote in case in case it is used as replacement for missing author teams
133
          $citation_footnote_str = '';
134
        }
135

    
136
        // to be registered a typedesignation MUS HAVE a citation, so it is save to handle the
137
        // Registration output in if condition checking if the citation is present
138
        $registration_markup = render_registrations($type_designation->registrations);
139
        $citation_footnote_str .= ($citation_footnote_str ? ' ' : '') . $registration_markup;
140

    
141
        $footnote_key_markup = '';
142
        if ($citation_footnote_str) {
143
          // footnotes should be rendered in the parent element so we
144
          // are relying on the FootnoteListKey set there
145
          $_fkey2 = FootnoteManager::addNewFootnote(RenderHints::getFootnoteListKey(), $citation_footnote_str);
146
          $footnote_key_markup = theme('cdm_footnote_key', array(
147
            'footnoteKey' => $_fkey2,
148
            'separator' => $separator,
149
            'highlightable' => TRUE,
150
            'separator_off' => TRUE,
151
          ));
152

    
153
        }
154

    
155
        $typeReference .= '&nbsp;(' . t('designated by') . '&nbsp;<span class="typeReference">' . $authorteam_str . '</span>';
156
        if (!empty($type_designation->citationMicroReference)) {
157
          $typeReference .= ': ' . trim($type_designation->citationMicroReference);
158
        }
159
        $typeReference .= $footnote_key_markup . ')';
160

    
161
      }
162

    
163
      $derivedUnitFacadeInstance = null;
164

    
165
      $out .= '<li class="' . html_class_attribute_ref($type_designation) . '">';
166
      $out .= '<span class="status">'
167
        . ((isset($type_designation->typeStatus->representation_L10n)) ? $type_designation->typeStatus->representation_L10n : t('Type'))
168
        . $typeReference
169
        . '</span>';
170

    
171

    
172
      if (isset($type_designation->typeSpecimen)) {
173
        $derivedUnitFacadeInstance = cdm_ws_get(CDM_WS_DERIVEDUNIT_FACADE, $type_designation->typeSpecimen->uuid);
174
      }
175
      if (isset($derivedUnitFacadeInstance)) {
176
        $out .= ': ' . $derivedUnitFacadeInstance->titleCache; // . ': ' . theme('cdm_specimen', array('specimenTypeDesignation' => $derivedUnitFacadeInstance));
177
      }
178

    
179
      // Footnotes for collection acronyms.
180
      // footnotes should be rendered in the parent element so we
181
      // are relying on the FootnoteListKey set there
182
      $_fkey = FootnoteManager::addNewFootnote(
183
        RenderHints::getFootnoteListKey(),
184
        (isset($derivedUnitFacadeInstance->collection->titleCache) ? $derivedUnitFacadeInstance->collection->titleCache : FALSE)
185
      );
186
      $out .= theme('cdm_footnote_key', array('footnoteKey' => $_fkey, 'separator' => $separator));
187
      $out .= '</li>';
188

    
189
    }
190
  }
191

    
192
  $out .= '</ul>';
193

    
194
  RenderHints::popFromRenderStack();
195

    
196
  return $out;
197
}
198

    
199
/**
200
 * FIXME this definitively has to be in another spot.
201
 * just didn't know where to put it right now.
202
 * Compares the status of two SpecimenTypeDesignations
203
 *
204
 * @param object $a
205
 *   A SpecimenTypeDesignation.
206
 * @param object $b
207
 *   SpecimenTypeDesignation.
208
 */
209
function compare_specimen_type_designation($a, $b) {
210
  /*
211
  This is the desired sort order as of now: Holotype Isotype Lectotype
212
  Isolectotype Syntype.
213
  TODO Basically, what we are trying to do is, we define
214
  an ordered array of TypeDesignation-states and use the index of this array
215
  for comparison. This array has to be filled with the cdm- TypeDesignation
216
  states and the order should be parameterisable inside the dataportal.
217
  */
218
  // Make that static for now.
219
  $typeOrder = array(
220
    'Holotype',
221
    'Isotype',
222
    'Lectotype',
223
    'Isolectotype',
224
    'Syntype',
225
  );
226

    
227
  $aQuantifier = FALSE;
228
  $bQuantifier = FALSE;
229
  if (isset($a->typeStatus->label) && isset($b->typeStatus->label)) {
230
    $aQuantifier = array_search($a->typeStatus->label, $typeOrder);
231
    $bQuantifier = array_search($b->typeStatus->label, $typeOrder);
232
  }
233
  if ($aQuantifier == $bQuantifier) {
234
    // Sort alphabetically.
235
    $a_text =  isset($a->typeSpecimen->titleCache) ? preg_replace('/[\[\]\"]/', '', $a->typeSpecimen->titleCache) : '';
236
    $b_text =  isset($b->typeSpecimen->titleCache) ? preg_replace('/[\[\]\"]/', '', $b->typeSpecimen->titleCache) : '';
237
    return strcasecmp($a_text, $b_text);
238
  }
239
  return ($aQuantifier < $bQuantifier) ? -1 : 1;
240
}
241

    
242
/**
243
 * @todo Please document this function.
244
 * @see http://drupal.org/node/1354
245
 */
246
function theme_cdm_homotypicSynonymLine($variables) {
247
  $taxon = $variables['taxon'];
248
  $out = '';
249
  $out .= '<li class="synonym">' . cdm_related_taxon($taxon, UUID_HOMOTYPIC_SYNONYM_OF) . '</li>';
250

    
251
  return $out;
252
}
253

    
254
/**
255
 * @todo Please document this function.
256
 * @see http://drupal.org/node/1354
257
 */
258
function theme_cdm_heterotypicSynonymyGroup($variables) {
259
  $homotypicalGroup = $variables['homotypicalGroup'];
260
  RenderHints::pushToRenderStack('heterotypicSynonymyGroup');
261

    
262
  $out = '';
263
  $out = '<div class="heterotypic-synonymy-group"><ul class="heterotypicSynonymyGroup">';
264
  $footnoteListKey = (isset($homotypicalGroup[0]) ? $homotypicalGroup[0]->uuid : 'NULL');
265
  RenderHints::setFootnoteListKey($footnoteListKey);
266

    
267
  $is_first_entry = TRUE;
268
  $type_designations = NULL;
269
  foreach ($homotypicalGroup as $synonym) {
270
    if ($is_first_entry) {
271
      $is_first_entry = FALSE;
272
      $type_designations = cdm_ws_get(CDM_WS_PORTAL_NAME_TYPEDESIGNATIONS, $synonym->name->uuid);
273
      // Is first list entry.
274
      $out .= '<li class="firstentry synonym">' . cdm_related_taxon($synonym, UUID_HETEROTYPIC_SYNONYM_OF) . '</li>';
275
    }
276
    else {
277
      $out .= '<li class="synonym">' . cdm_related_taxon($synonym, UUID_HOMOTYPIC_SYNONYM_OF) . '</li>';
278
    }
279
  }
280

    
281
  if ($type_designations) {
282
    $out .= theme('cdm_typedesignations', array('typeDesignations' => $type_designations));
283
  }
284
  $out .= '</ul>';
285

    
286
  // ------- footnotes ------- //
287
  $out .= '<ul class="footnotes">';
288
  $out .= theme('cdm_annotation_footnotes', array('footnoteListKey' => RenderHints::getFootnoteListKey(), 'enclosingTag' => 'li'));
289
  $out .= theme('cdm_footnotes', array('footnoteListKey' => RenderHints::getFootnoteListKey(), 'enclosingTag' => 'li'));
290
  $out .= '</ul>';
291

    
292
  $out .= '</div>';
293

    
294
  RenderHints::popFromRenderStack();
295
  return $out;
296
}
297

    
298
/**
299
 * Renders the homotypic synonymy group for the accepted taxon in the synonymy.
300
 *
301
 * Foonotes of the accepted taxon will also be rendered here in the
302
 * homotypic synonymy group even if the synonymList or prependedSynonyms are
303
 * empty. Therefore  the homotypic group and accepted taxon share the  same
304
 * footnote key.
305
 *
306
 * @param $variables
307
 *   an associative array:
308
 *   - synonymList: the list of cdm Synonym entities
309
 *   - accepted_taxon_uuid: the uuid of the accepted taxon
310
 *   - prependedSynonyms: further synonyms which should be prepended
311
 *      before the actual list of synonyms
312
 */
313
function theme_cdm_homotypicSynonymyGroup($variables) {
314
  $synonymList = $variables['synonymList'];
315
  $accepted_taxon_name_uuid = $variables['accepted_taxon_name_uuid'];
316
  $prependedSynonyms = $variables['prependedSynonyms'];
317

    
318
  RenderHints::pushToRenderStack('homotypicSynonymyGroup');
319

    
320
  $homonym_typeDesignations = NULL;
321

    
322
  // TODO improve typeDesignations retrieval: wouldn't it be sufficient to retrieve all typeDesignations
323
  // only from the accepted taxon?
324
  $accepted_typeDesignations = cdm_ws_get(CDM_WS_PORTAL_NAME_TYPEDESIGNATIONS, $accepted_taxon_name_uuid);
325

    
326
  $out = '<div class="homotypic-synonymy-group">';
327

    
328
  if (isset ($accepted_typeDesignations) || is_array($prependedSynonyms) || is_array($synonymList)) {
329
    $out .= '<ul class="homotypicSynonyms">';
330
  if (!empty($prependedSynonyms)) {
331
    foreach ($prependedSynonyms as $taxon) {
332
      $out .= '<li class="synonym">' . cdm_related_taxon($taxon, UUID_HOMOTYPIC_SYNONYM_OF) . '</li>';
333
    }
334
  }
335

    
336
  $homonym_typeDesignations = NULL;
337
  if (isset($synonymList[0])) {
338
    foreach ($synonymList as $synonym) {
339
      $out .= '<li class="synonym">' . cdm_related_taxon($synonym, UUID_HOMOTYPIC_SYNONYM_OF) . '</li>';
340
    }
341
    $homonym_typeDesignations = cdm_ws_get(CDM_WS_PORTAL_NAME_TYPEDESIGNATIONS, $synonymList[0]->name->uuid);
342
  }
343

    
344
  // type designations
345
  if ($accepted_typeDesignations) {
346
    $type_designations = filter_cdm_entity_list($homonym_typeDesignations, $accepted_typeDesignations);
347
  }
348
  else {
349
    $type_designations = $homonym_typeDesignations;
350
  }
351

    
352
  if ($type_designations) {
353
    $out .= theme('cdm_typedesignations', array('typeDesignations' => $type_designations));
354
  }
355

    
356
  }
357

    
358
  $out .= '</ul>';
359

    
360
  // ------- footnotes ------- //
361

    
362
  // all foonotes of the homotypic group and also of the accepted taxon are
363
  // rendered here, both should have the same footnote key
364
  $out .= '<ul class="footnotes">';
365
  $out .= theme('cdm_annotation_footnotes', array('footnoteListKey' => RenderHints::getFootnoteListKey(), 'enclosingTag' => 'li'));
366
  $out .= theme('cdm_footnotes', array('footnoteListKey' => RenderHints::getFootnoteListKey(), 'enclosingTag' => 'li'));
367
  $out .= '</ul>';
368

    
369
  $out .= '</div>';
370

    
371

    
372
  RenderHints::popFromRenderStack();
373
  return $out;
374
}
Add picture from clipboard (Maximum size: 40 MB)