Project

General

Profile

Download (16.5 KB) Statistics
| Branch: | Tag: | Revision:
1 806baeb2 Andreas Kohlbecker
<?php
2
// $Id$
3
4
/**
5
* Copyright (C) 2007 EDIT
6
* European Distributed Institute of Taxonomy 
7
* http://www.e-taxonomy.eu
8
* 
9
* The contents of this file are subject to the Mozilla Public License Version 1.1
10
* See http://www.mozilla.org/MPL/MPL-1.1.html for the full license terms.
11
*/
12
13
14
15
function theme_cdm_typedesignations($typeDesignations = array()){
16
17 80e0aa8e Andreas Kohlbecker
	RenderHints::pushToRenderStack('typedesignations');
18 806baeb2 Andreas Kohlbecker
	_add_js_cluetip();
19
	$out = '<ul class="typeDesignations">';
20
21
	$specimenTypeDesignations = array();
22
	foreach($typeDesignations as $typeDesignation){
23
		if($typeDesignation->class == 'SpecimenTypeDesignation'){
24
			// SpecimenTypeDesignations should be ordered. collect theme here only
25
			$specimenTypeDesignations[] = $typeDesignation;
26
		}else {
27
28
			// it's a NameTypeDesignation
29
			if($typeDesignation->notDesignated){
30
				$out .= '<li class="nameTypeDesignation"><span class="status">Type</span>: '.t('not designated'). '</li>';
31
			}else if($typeDesignation->typeName){
32 80e0aa8e Andreas Kohlbecker
                $link_to_name_page = '?q=' . path_to_name($typeDesignation->typeName->uuid);
33 806baeb2 Andreas Kohlbecker
				$out .= '<li class="nameTypeDesignation"><span class="status">Type</span>: ';
34
35
				if($typeDesignation->typeName->nomenclaturalReference){
36
					$referenceUri = url(path_to_reference($typeDesignation->typeName->nomenclaturalReference->uuid));
37
				}
38 80e0aa8e Andreas Kohlbecker
				$out .= theme('cdm_taxonName', $typeDesignation->typeName, $link_to_name_page, $referenceUri);
39 806baeb2 Andreas Kohlbecker
40
				//        if($typeDesignation->typeName->class == 'ZoologicalName') {
41
				//          // appending authorTeam which has been skipped in cdm_name
42
				//          $authorTeam = cdm_taggedtext_value($typeDesignation->typeName->taggedName, 'authors');
43
				//          $authorTeamPart = l('<span class="authors">'.$authorTeam.'</span>', "/cdm_dataportal/reference/".$typeDesignation->typeName->nomenclaturalReference->uuid, array(), NULL, NULL, FALSE, TRUE);
44
				//          $out .= (str_endsWith($authorTeam, ')') ? '' : ', ').$authorTeamPart;
45
				//        } else {
46
				//          $out .= ' '.theme('cdm_reference', $typeDesignation->citation, true, $referenceStyle);
47
				//          $out .= '</li>';
48
				//        }
49
			}
50
		}
51
	}
52
53
	if(!empty($specimenTypeDesignations)){
54
		// sorting might be different for dataportals so this has to be parameterized
55
		usort($specimenTypeDesignations, "compare_specimenTypeDesignationStatus");
56
		foreach($specimenTypeDesignations as $std){
57
58
			$typeReference = '';
59
			//show citation only for Lectotype or Neotype
60
			$showCitation = isset($std->typeStatus) && ($std->typeStatus->uuid == UUID_NEOTYPE || $std->typeStatus->uuid == UUID_LECTOTYPE);
61
			if($showCitation && !empty($std->citation)){
62 3147f061 f.revilla
				//$shortCitation = $std->citation->authorTeam->titleCache;
63 15f11e83 f.revilla
64
			     $author_team = cdm_ws_get(CDM_WS_REFERENCE_AUTHORTEAM, $std->citation->uuid);
65
			     $shortCitation = $author_team->titleCache;
66
67 806baeb2 Andreas Kohlbecker
				$shortCitation .= (strlen($shortCitation) > 0 ? ' ' : '' ). partialToYear($std->citation->datePublished->start);
68
				if(strlen($shortCitation) == 0){
69 48650990 Andreas Kohlbecker
					$shortCitation = theme('cdm_reference', $std->citation);
70 806baeb2 Andreas Kohlbecker
					$missingShortCitation = true;
71
				}
72
				$typeReference .= '&nbsp;(' . t('designated by');
73
				$typeReference .= '&nbsp;<span class="typeReference '.($missingShortCitation ? '' : 'cluetip').' no-print" title="'. htmlspecialchars('|'.theme('cdm_reference',$std->citation ).'|') .'">';
74
				$typeReference .= $shortCitation.'</span>';
75
				$typeReference .= ')';
76
				//$typeReference .= '<span class="reference only-print">(designated by '.theme('cdm_reference',$std->citation ).')</span>';
77
			}
78
79
			$out .= '<li class="specimenTypeDesignation">';
80
			$out .= '<span class="status">'.(($std->typeStatus->representation_L10n) ? $std->typeStatus->representation_L10n : t('Type')) .$typeReference.'</span>: '.$std->typeSpecimen->titleCache;
81 e70c228f f.revilla
			//$out .= '<span class="status">'.(($std->typeStatus->representation_L10n) ? $std->typeStatus->representation_L10n : t('Type')) .$typeReference.'</span>: '.$std->typeSpecimen->titleCache . ' footnote: '. theme_cdm_footnote($std->typeSpecimen->collection->code, $std->typeSpecimen->collection->titleCache);
82
  
83 806baeb2 Andreas Kohlbecker
			$out .= theme('cdm_specimen', $std->typeSpecimen);
84
			$out .= '</li>';
85
		}
86
	}
87
88
	$out .= '</ul>';
89
90 80e0aa8e Andreas Kohlbecker
	RenderHints::popFromRenderStack();
91 806baeb2 Andreas Kohlbecker
	return $out;
92
}
93
94
95
/**
96
 * FIXME this definitively has to be in another spot. just didn't know where to put it right now.
97
 * Compares the status of two SpecimenTypeDesignations
98
 * @param String $a 	a SpecimenTypeDesignations
99
 * @param String $b		another SpecimenTypeDesignations
100
 */
101
function compare_specimenTypeDesignationStatus($a, $b){
102
	/* this is the desired sort oder as of now:
103
	 * 	Holotype
104
	 * 	Isotype
105
	 * 	Lectotype
106
	 * 	Isolectotype
107
	 * 	Syntype
108
	 *
109
	 * TODO
110
	 * Basically, what we are trying to do is, we define an ordered array of TypeDesignation-states
111
	 * and use the index of this array for comparison. This array has to be filled with the cdm-
112
	 * TypeDesignation states and the order should be parameterisable inside the dataportal.
113
	 */
114
	// make that static for now
115
	$typeOrder = array('Holotype', 'Isotype', 'Lectotype', 'Isolectotype', 'Syntype');
116
117
	$aQuantifier = array_search($a->typeStatus->label, $typeOrder);
118
	$bQuantifier = array_search($b->typeStatus->label, $typeOrder);
119
120
	if ($aQuantifier == $bQuantifier) {
121
		// sort alphabetically
122
		return ($a->typeStatus->label < $b->typeStatus->label) ? -1 : 1;
123
	}
124
	return ($aQuantifier < $bQuantifier) ? -1 : 1;
125
126
}
127
128 0387c539 Andreas Kohlbecker
function theme_cdm_nameRelationships($nameRelationships, $skipTypes = false){
129 806baeb2 Andreas Kohlbecker
130 0387c539 Andreas Kohlbecker
    if(!$nameRelationships){
131
        return;
132
    }
133
    
134
	RenderHints::pushToRenderStack('nameRelationships');
135
    $footnoteListKey = 'nameRelationships';
136
    RenderHints::setFootnoteListKey($footnoteListKey);
137
    
138 806baeb2 Andreas Kohlbecker
	// group by relationship type
139
	$relationshipGroups = array();
140
	foreach($nameRelationships as $nameRelationship){
141
		if(!array_key_exists($nameRelationship->type->uuid, $relationshipGroups)){
142
			$relationshipGroups[$nameRelationship->type->uuid] = array();
143
		}
144
		$relationshipGroups[$nameRelationship->type->uuid][] = $nameRelationship;
145
	}
146
147
	// generate output
148
	$out = '';
149
	foreach($relationshipGroups as $group){
150
		$type = $group[0]->type;
151
152
		if(is_array($skipTypes) && in_array($type->uuid, $skipTypes)){
153
			continue;
154
		}
155
156
		$block->module = 'cdm_dataportal';
157
		$block->subject = t(ucfirst($type->inverseRepresentation_L10n));
158
		$block->delta = generalizeString(strtolower($type->inverseRepresentation_L10n));
159
160
		foreach($group as $relationship){
161
			$relatedNames[] = cdm_taggedtext2html($relationship->fromName->taggedName);
162
		}
163
164
		$block->content .= implode('; ', $relatedNames);
165
		$out .= theme('block', $block);
166
	}
167 0387c539 Andreas Kohlbecker
	$out .= theme('cdm_footnotes', $footnoteListKey, 'div');
168
	
169
	RenderHints::popFromRenderStack();
170 806baeb2 Andreas Kohlbecker
	return $out;
171
}
172
173
174
175
function theme_cdm_homotypicSynonymLine($taxon){
176
	$out = '';
177
	$out .= '<li class="synonym">'.theme('cdm_related_taxon', $taxon, UUID_HOMOTYPIC_SYNONYM_OF).'</li>';
178 80e0aa8e Andreas Kohlbecker
	
179 806baeb2 Andreas Kohlbecker
	return $out;
180
}
181
182
function theme_cdm_heterotypicSynonymyGroup($homotypicalGroup){
183 80e0aa8e Andreas Kohlbecker
	
184
	RenderHints::pushToRenderStack('heterotypicSynonymyGroup');
185 0387c539 Andreas Kohlbecker
	
186 806baeb2 Andreas Kohlbecker
	$out = '';
187
	$out = '<ul class="heterotypicSynonymyGroup">';
188 0387c539 Andreas Kohlbecker
    $footnoteListKey = ( isset($homotypicalGroup[0]) ? $homotypicalGroup[0]->uuid : 'NULL');
189
	RenderHints::setFootnoteListKey($footnoteListKey);
190
    
191 806baeb2 Andreas Kohlbecker
	$is_first_entry = true;
192
	$typeDesignations = null;
193
	foreach($homotypicalGroup as $synonym){
194
		if($is_first_entry){
195
			$is_first_entry = false;
196
			//$typeDesignations = cdm_ws_get(CDM_WS_NAME_TYPEDESIGNATIONS, $synonym->name->uuid);
197 80e0aa8e Andreas Kohlbecker
			$typeDesignations = cdm_ws_get(CDM_WS_PORTAL_TAXON_NAMETYPEDESIGNATIONS, $synonym->uuid);
198 806baeb2 Andreas Kohlbecker
			// is first list entry
199
			$out .= '<li class="firstentry synonym">'.theme('cdm_related_taxon',$synonym, UUID_HETEROTYPIC_SYNONYM_OF).'</li>';
200
		} else {
201
			$out .= '<li class="synonym">'.theme('cdm_related_taxon',$synonym, UUID_HOMOTYPIC_SYNONYM_OF).'</li>';
202
		}
203
	}
204
	if($typeDesignations){
205
		$out .= theme('cdm_typedesignations', $typeDesignations);
206
	}
207
208 b5e773ef Andreas Kohlbecker
	$out .= theme('cdm_annotation_footnotes', $footnoteListKey, 'li');
209 806baeb2 Andreas Kohlbecker
	$out .= '</ul>';
210 80e0aa8e Andreas Kohlbecker
    
211
    
212
    RenderHints::popFromRenderStack();
213 806baeb2 Andreas Kohlbecker
	return $out;
214
}
215
216
217
218
function theme_cdm_homotypicSynonymyGroup($synonymList, $prependedSynonyms = array()){
219 80e0aa8e Andreas Kohlbecker
	
220
	RenderHints::pushToRenderStack('homotypicSynonymyGroup');
221
	
222 0387c539 Andreas Kohlbecker
	$footnoteListKey = isset($prependedSynonyms[0]) ? $prependedSynonyms[0]->uuid : (isset($synonymList[0]) ? $synonymList[0]->uuid : 'NULL');
223
	RenderHints::setFootnoteListKey($footnoteListKey);
224 80e0aa8e Andreas Kohlbecker
	
225 806baeb2 Andreas Kohlbecker
	if(! is_array($synonymList) || count($synonymList) == 0){
226
		return;
227
	}
228
229
	$out = '<ul class="homotypicSynonyms">';
230
231
	if(!empty($prependedSynonyms)){
232
		foreach($prependedSynonyms as $taxon){
233
			$out .= '<li class="synonym">'.theme('cdm_related_taxon', $taxon, UUID_HOMOTYPIC_SYNONYM_OF).'</li>';
234
		}
235
	}
236
237
	foreach($synonymList as $synonym){
238
		$out .= '<li class="synonym">'.theme('cdm_related_taxon', $synonym, UUID_HOMOTYPIC_SYNONYM_OF).'</li>';
239
	}
240
241 80e0aa8e Andreas Kohlbecker
	$typeDesignations = cdm_ws_get(CDM_WS_PORTAL_TAXON_NAMETYPEDESIGNATIONS, $synonymList[0]->uuid);
242 806baeb2 Andreas Kohlbecker
	if($typeDesignations){
243
		$out .= theme('cdm_typedesignations', $typeDesignations);
244
	}
245
246 b5e773ef Andreas Kohlbecker
	$out .= theme('cdm_annotation_footnotes', $footnoteListKey, 'li');
247 806baeb2 Andreas Kohlbecker
	$out .= '</ul>';
248 80e0aa8e Andreas Kohlbecker
	
249
	RenderHints::popFromRenderStack();
250 806baeb2 Andreas Kohlbecker
	return $out;
251
}
252
253
254 b5e773ef Andreas Kohlbecker
function theme_cdm_taxonName($taxonName, $nameLink = NULL, $refenceLink = NULL, $showAnnotations = true){
255 806baeb2 Andreas Kohlbecker
256 26afc97d f.revilla
  $renderTemplate = get_nameRenderTemplate(RenderHints::getRenderPath(), $nameLink, $refenceLink);
257 806baeb2 Andreas Kohlbecker
	$partDefinition = get_partDefinition($taxonName->class);
258
259
	// apply defintions to template
260
	foreach($renderTemplate as $part=>$uri){
261
		if(isset($partDefinition[$part])){
262
			$renderTemplate[$part] = $partDefinition[$part];
263
		}
264
		if(is_array($uri)){
265
			$renderTemplate[$part]['#uri'] = $uri['#uri'];
266
		}
267
	}
268
269
	$firstEntryIsValidNamePart = is_array($taxonName->taggedName)
270 59a9c029 Katja Luther
	&& is_string($taxonName->taggedName[0]->text)
271
	&& $taxonName->taggedName[0]->text != ''
272
	&& $taxonName->taggedName[0]->type == 'name';
273
	
274 806baeb2 Andreas Kohlbecker
	// got to use second entry as first one, see ToDo comment below ...
275
	if($firstEntryIsValidNamePart){
276
277
		$taggedName = $taxonName->taggedName;
278 59a9c029 Katja Luther
		
279 806baeb2 Andreas Kohlbecker
		$lastAuthorElementString = false;
280
		$hasNamePart_with_Authors = isset($renderTemplate['namePart']) && isset($renderTemplate['namePart']['authors']);
281
		$hasNameAuthorPart_with_Authors = isset($renderTemplate['nameAuthorPart']) && isset($renderTemplate['nameAuthorPart']['authors']);
282
283
		if(!($hasNamePart_with_Authors || $hasNameAuthorPart_with_Authors)){
284
			//      // find author and split off from name
285
			//      // TODO expecting to find the author as the last element
286
			//      if($taggedName[count($taggedName)- 1]->type == 'authors'){
287
			//        $authorTeam = $taggedName[count($taggedName)- 1]->text;
288
			//        unset($taggedName[count($taggedName)- 1]);
289
			//      }
290
291
			// remove all authors
292
			$taggedNameNew = array();
293
			foreach($taggedName as $element){
294
				if($element->type != 'authors'){
295
					$taggedNameNew[] = $element;
296
				} else {
297
					$lastAuthorElementString = $element->text;
298
				}
299
			}
300
			$taggedName = $taggedNameNew;
301
302
		}
303
		$name = '<span class="'.$taxonName->class.'">'.theme('cdm_taggedtext2html', $taggedName).'</span>';
304
	} else {
305
		$name = '<span class="'.$taxonName->class.'_titleCache">'.$taxonName->titleCache.'</span>';
306
	}
307
308
	// fill name into $renderTemplate
309
	array_setr('name', $name, $renderTemplate);
310
311
	//  // fill with authorTeam
312
	//  if($authorTeam){
313
	//    $authorTeamHtml = ' <span class="authorTeam">'.$authorTeam.'</span>';
314
	//    array_setr('authorTeam', $authorTeamHtml, $renderTemplate);
315
	//  }
316
317
318
	// fill with reference
319
	if(isset($renderTemplate['referencePart'])){
320
321
		// [Eckhard]:"Komma nach dem Taxonnamen ist grunsätzlich falsch,
322
		// Komma nach dem Autornamen ist überall dort falsch, wo ein "in" folgt."
323
		if(isset($renderTemplate['referencePart']['reference']) && $taxonName->nomenclaturalReference){
324
			$microreference = null;
325
			if(isset($renderTemplate['referencePart']['microreference'])){
326
				$microreference = $taxonName->nomenclaturalMicroReference;
327
			}
328 a91d2f20 f.revilla
			$citation = cdm_ws_get(CDM_WS_NOMENCLATURAL_REFERENCE_CITATION, array($taxonName->nomenclaturalReference->uuid), "microReference=".urlencode($microreference));
329 806baeb2 Andreas Kohlbecker
			$citation = $citation->String;
330
			// find preceding element of the refrence
331
			$precedingKey = get_preceding_contentElementKey('reference', $renderTemplate);
332
			if(str_beginsWith($citation, ", in")){
333
				$citation = substr($citation, 2);
334
				$separator = ' ';
335
			} else if(!str_beginsWith($citation, "in") && $precedingKey == 'authors'){
336
				$separator = ', ';
337
			} else {
338
				$separator = ' ';
339
			}
340
341
			$referenceArray['#separator'] = $separator;
342
			$referenceArray['#html'] = '<span class="reference">'.$citation.'</span>';
343
			array_setr('reference', $referenceArray, $renderTemplate);
344
		}
345
346
		// if authors have been removed from the name part the last named authorteam
347
		// should be added to the reference citation, otherwise, keep the separator
348
		// out of the reference
349
		if(isset($renderTemplate['referencePart']['authors']) && $lastAuthorElementString){
350
			// if the nomenclaturalReference cintation is not included in the reference part but diplay of the microreference
351
			// is whanted append the microreference to the authorTeam
352
			if(!isset($renderTemplate['referencePart']['reference']) && isset($renderTemplate['referencePart']['microreference'])){
353
				$separator = ": ";
354
				$citation = $taxonName->nomenclaturalMicroReference;
355
			}
356
			$referenceArray['#html'] = ' <span class="reference">'.$lastAuthorElementString.$separator.$citation.'</span>';
357
			array_setr('authors', $referenceArray, $renderTemplate);
358
		}
359
360
	}
361
362
	// fill with status
363
	if(array_setr('status', true, $renderTemplate)){
364
		if(isset($taxon->name->status[0])){
365
			foreach($taxon->name->status as $status){
366
				$statusHtml .= ', '.$status->type->representation_L10n;
367
			}
368
		}
369
		array_setr('status', ' <span class="nomenclatural_status">'.$statusHtml.'</span>', $renderTemplate);
370
	}
371
372
	// fill with protologues etc...
373
	if(array_setr('description', true, $renderTemplate)){
374 80e0aa8e Andreas Kohlbecker
		$descriptions = cdm_ws_get(CDM_WS_PORTAL_NAME_DESCRIPTIONS, $taxonName->uuid);
375 806baeb2 Andreas Kohlbecker
		foreach($descriptions as $description){
376
			if(!empty($description)){
377
				foreach($description->elements as $description_element){
378
					$descriptionHtml .= theme("cdm_media", $description_element, array('application/pdf', 'image/png', 'image/jpeg', 'image/gif', 'text/html'));
379
				}
380
			}
381
		}
382
		array_setr('description', $descriptionHtml, $renderTemplate);
383
	}
384
385
	// render
386 2643c320 Katja Luther
	$out = '<span ref="/name/'.$taxonName->uuid.'">';
387
	
388 806baeb2 Andreas Kohlbecker
	foreach($renderTemplate as $partName=>$part){
389
		$separator = '';
390
		$partHtml = '';
391
		$uri = false;
392
		if(!is_array($part)){
393
			continue;
394
		}
395
		if(isset($part['#uri']) && is_string($part['#uri'])){
396
			$uri = $part['#uri'];
397
			unset($part['#uri']);
398
		}
399
		foreach($part as $key=>$content){
400
			$html = '';
401
			if(is_array($content)){
402
				$html = $content['#html'];
403
				$separator = $content['#separator'];
404
			} else if(is_string($content)){
405
				$html = $content;
406
			}
407
			$partHtml .= '<span class="'.$key.'">'.$html.'</span>';
408
		}
409
		if($uri){
410
			$out .= $separator.'<a href="'.$uri.'" class="'.$partName.'">'.$partHtml.'</a>';
411
		} else {
412
			$out .= $separator.$partHtml;
413
		}
414
	}
415 0387c539 Andreas Kohlbecker
    $out .= '</span>';
416
    
417 b5e773ef Andreas Kohlbecker
	$out .= theme('cdm_annotations_as_footnotekeys', $taxonName);
418 0387c539 Andreas Kohlbecker
	
419
	return $out;
420 806baeb2 Andreas Kohlbecker
}
421
422
/**
423
 * Recursively searches the array for the $key and sets the given value
424
 * @param $key
425
 * @param $value
426
 * @param $array
427
 * @return true if the key has been found
428
 */
429
function &array_setr($key, $value, array &$array){
430
	foreach($array as $k=>&$v){
431
		if($key == $k){
432
			$v = $value;
433
			return $array;
434
		} else if(is_array($v)){
435
			$innerArray = array_setr($key, $value, $v);
436
			if($innerArray){
437
				return $array;
438
			}
439
		}
440
	}
441
	return null;
442
}
443
444
function &get_preceding_contentElement($contentElementKey, array &$renderTemplate){
445
	$precedingElement = null;
446
	foreach($renderTemplate as &$part){
447
		foreach($part as $key=>&$element){
448
			if($key == $contentElementKey){
449
				return $precedingElement;
450
			}
451
			$precedingElement = $element;
452
		}
453
	}
454
	return null;
455
}
456
457
function &get_preceding_contentElementKey($contentElementKey, array &$renderTemplate){
458
	$precedingKey = null;
459
	foreach($renderTemplate as &$part){
460
		foreach($part as $key=>&$element){
461
			if($key == $contentElementKey){
462
				return $precedingKey;
463
			}
464
			if(!str_beginsWith($key, '#')){
465
				$precedingKey = $key;
466
			}
467
		}
468
	}
469
	return null;
470
}
471
472
473
474
475
476
477