drupalISMI: ISMIBioFilter/ISMIBioFilter.module annotate

annotate ISMIBioFilter/ISMIBioFilter.module @ 20:bdf91a4a40ff

fix problem with newer relation feed modules.

author	casties
date	Fri, 18 Sep 2015 18:25:10 +0200
parents	124ef8f3b22d
children

rev	line source
0 124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	1 <?php
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	2
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	3 /**
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	4 * @file
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	5 * Provides a Markdown input filter.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	6 */
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	7
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	8
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	9
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	10
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	11 function ISMIBioFilter_menu(){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	12 $items['showBio/%'] = array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	13 'title' => 'View',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	14 'description' => 'show an object.',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	15 'page callback' => 'ISMIBioFilter_showBio_page',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	16 'access arguments' => array('access content'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	17 'page arguments' => array(1),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	18
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	19 'access arguments' => array('access content'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	20 'type' => MENU_LOCAL_TASK,
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	21
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	22 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	23
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	24 $items['showEntity/%'] = array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	25 'title' => 'View',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	26 'description' => 'show an object.',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	27 'page callback' => 'ISMIBioFilter_showEntity_page',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	28 'access arguments' => array('access content'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	29 'page arguments' => array(1),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	30
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	31 'access arguments' => array('access content'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	32 'type' => MENU_LOCAL_TASK,
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	33
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	34 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	35
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	36
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	37 return $items;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	38
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	39
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	40 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	41
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	42
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	43 function ISMIBioFilter_showEntity_page($keys){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	44 #$results = db_query("SELECT * FROM {field_data_field_id} n where field_id_value ='" . $keys . "' and bundle = 'openmind_entity' ");
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	45 #$results = db_query("SELECT * FROM {field_data_field_id} n where field_id_value ='" . $keys . "' ");
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	46
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	47 $query = new EntityFieldQuery;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	48 $query->entityCondition('entity_type', 'node')
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	49 ->entityCondition('bundle', 'openmind_entity')
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	50 ->fieldCondition('field_id', 'value',$value = $keys);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	51 $results = $query->execute();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	52
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	53 if (isset($results['node'])){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	54 $nids = array_keys($results['node']);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	55
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	56 foreach ($nids as $nid){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	57
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	58 drupal_goto("node/" . $nid);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	59 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	60 } else {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	61 drupal_goto("/unknownEntity");
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	62 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	63
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	64 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	65
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	66 function ISMIBioFilter_showBio_page($keys){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	67 ##$results = db_query("SELECT * FROM {field_data_field_original_url} n where field_original_url_value ='" . $keys . "'");
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	68
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	69 # zerlege den string
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	70 $paths = explode("/",$keys);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	71 #gebraucht wird nur der letzte teil
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	72
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	73 $fn = $paths[sizeof(paths)-1];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	74 dpm($fn);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	75 dpm($keys);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	76 drupal_goto($fn);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	77 #foreach ($results as $result){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	78 # drupal_goto("node/" . $result->entity_id);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	79 #}
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	80 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	81 /**
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	82 * Implements hook_help().
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	83 */
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	84 function ISMIBioFilter_help($path, $arg) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	85 switch ($path) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	86 case 'admin/help#ISMIBioFilter':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	87 return t('<p> Filters the original biographies to make the Drupal compatible.</p>');
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	88 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	89 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	90
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	91 /**
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	92 * Implements hook_filter_info().
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	93 */
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	94 function ISMIBioFilter_filter_info() {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	95 $filters['filter_ISMIBioFilter'] = array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	96 'title' => t('ISMIBioFilter'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	97 'description' => t('Filter for the Biographies from the Springer Website'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	98 'process callback' => '_filter_ISMIBioFilter',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	99 'settings callback' => '_filter_ISMIBioFilter_settings',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	100 'tips callback' => '_filter_ISMIBioFilter_tips',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	101 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	102
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	103 return $filters;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	104 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	105
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	106
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	107 function _ISMIBioFilter_getSources($rel){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	108 $vals = array();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	109 $relNode = relation_load($rel->rid);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	110 $eps = relation_get_endpoints($relNode);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	111 foreach($eps as $ep){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	112
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	113 $vals[]=array_shift(array_values($ep));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	114
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	115 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	116
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	117 return $vals;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	118 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	119
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	120 function _ISMIBioFilter_getTargets($rel){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	121 $vals = array();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	122 $relNode = relation_load($rel->rid);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	123 $eps = relation_get_endpoints($relNode);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	124 foreach($eps as $ep){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	125
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	126 $ar = array_values($ep);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	127 array_shift($ar);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	128 $vals[]=array_shift($ar);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	129 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	130
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	131 return $vals;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	132 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	133
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	134
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	135 /**
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	136 * Returns the ISMIBioFilter input filter tips.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	137 * @TODO: make it easier for translators.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	138 */
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	139 function _filter_ISMIBioFilter_tips($format, $long = FALSE) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	140 if ($long) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	141 return t('no tip');
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	142 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	143 else {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	144 return t('no tip');
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	145 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	146 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	147
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	148 /**
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	149 * Implements hook_block_view().
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	150 */
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	151 function ISMIBioFilter_block_view($delta = '') {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	152 $block = array();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	153 switch ($delta) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	154 case 'ISMIBioFilter_help':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	155 $block['title'] = t('ISMIBio filter tips');
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	156 $block['content'] = _ISMIBioFilter_help_block();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	157 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	158
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	159
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	160 case 'ISMIObjects_main':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	161 // main info for an object
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	162
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	163 $node = menu_get_object();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	164
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	165 //node hat keine objektype dann mache nichts
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	166 if (!isset($node->field_oc)){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	167 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	168 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	169
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	170 $tid = $node->field_oc[LANGUAGE_NONE][0]['tid'];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	171 $taxonomy = taxonomy_term_load($tid)->name;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	172
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	173 switch($taxonomy){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	174
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	175 case 'PERSON':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	176 $ov = $node->field_ov[LANGUAGE_NONE][0]['value'];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	177 $nov = $node->field_nov[LANGUAGE_NONE][0]['value'];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	178 $block['title'] = t('Person');
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	179 //$block['content']= theme('ISMIPersons_main',array('node' => $node));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	180
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	181 $rows[] = array("Name",$ov);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	182 $rows[] = array("Normalisiert",$nov);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	183
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	184 $block['content']=theme('table', array('header' => null, 'rows' => $rows));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	185
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	186
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	187 //is_prime_alias_name_of,invOf_is_prime_alias_name_of, invOf_is_alias_name_of ,is_alias_name_of
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	188 $rels = relation_query("node",$node->nid)->execute();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	189 $prime_alias = "";
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	190 $aliases = array();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	191
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	192 foreach($rels as $rel){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	193
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	194 switch($rel->relation_type){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	195 case "is_prime_alias_name_of":
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	196 $prime_alias = _ISMIBioFilter_getSources($rel);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	197 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	198
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	199 case "is_alias_name_of":
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	200 $aliases = _ISMIBioFilter_getSources($rel);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	201 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	202 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	203 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	204
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	205 $block['content'] .= theme("ISMIObject_aliases",array("prime_alias"=>$prime_alias,"aliases"=>$aliases));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	206 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	207
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	208 case 'TEXT':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	209 $ov = $node->field_ov[LANGUAGE_NONE][0]['value'];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	210 $nov = $node->field_nov[LANGUAGE_NONE][0]['value'];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	211 $block['title'] = t('Text');
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	212 //$block['content']= theme('ISMIPersons_main',array('node' => $node));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	213
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	214 $rows[] = array("Title",$ov);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	215 $rows[] = array("Normalisiert",$nov);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	216
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	217 $block['content']=theme('table', array('header' => null, 'rows' => $rows));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	218 $rels = relation_query("node",$node->nid)->execute();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	219 $prime_alias = "";
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	220 $aliases = array();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	221
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	222 foreach($rels as $rel){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	223
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	224 switch($rel->relation_type){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	225 case "is_prime_alias_name_of":
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	226 $prime_alias = _ISMIBioFilter_getSources($rel);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	227 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	228
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	229 case "is_alias_name_of":
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	230 $aliases = array_merge($aliases,_ISMIBioFilter_getSources($rel));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	231 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	232 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	233 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	234
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	235 $block['content'] .= theme("ISMIObject_aliases",array("prime_alias"=>$prime_alias,"aliases"=>$aliases));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	236
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	237 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	238
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	239 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	240
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	241 case 'ISMIObjects_titles':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	242
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	243 $node = menu_get_object();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	244 //node hat keine objektype dann mache nichts
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	245 if (!isset($node->field_oc)){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	246 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	247 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	248
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	249
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	250 $tid = $node->field_oc[LANGUAGE_NONE][0]['tid'];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	251 $taxonomy = taxonomy_term_load($tid)->name;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	252
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	253 switch($taxonomy){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	254
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	255 case 'PERSON':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	256 $rels = relation_query("node",$node->nid)->execute();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	257
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	258 foreach($rels as $rel){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	259
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	260 if ($rel->relation_type=="was_created_by"){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	261 $relNode = relation_load($rel->rid);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	262 $targets = relation_get_endpoints($relNode);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	263 foreach($targets as $target){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	264
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	265 $titles[]=array_shift(array_values($target));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	266
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	267
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	268
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	269
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	270 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	271 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	272 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	273
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	274 $block['title'] = t('Titles');
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	275 $block['content']= theme('ISMIPersons_titles',array('titles' => $titles));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	276
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	277 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	278 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	279
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	280 case 'ISMIText_witnesses':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	281 $node = menu_get_object();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	282 //node hat keine objektype dann mache nichts
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	283 if (!isset($node->field_oc)){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	284 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	285 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	286
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	287
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	288 $tid = $node->field_oc[LANGUAGE_NONE][0]['tid'];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	289 $taxonomy = taxonomy_term_load($tid)->name;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	290
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	291 switch($taxonomy){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	292
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	293 case 'TEXT':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	294 $rels = relation_query("node",$node->nid)->execute();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	295 $titles=array();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	296 foreach($rels as $rel){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	297
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	298 if ($rel->relation_type=="is_exemplar_of"){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	299 $titles = array_merge($titles,_ISMIBioFilter_getSources($rel));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	300
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	301 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	302 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	303
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	304 _ISMIBioFilter_enrich($titles);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	305
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	306 $block['title'] = t('Witnesses');
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	307 //$block['content']= theme('ISMIWitnesses_list',array('witnesses' => $titles));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	308
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	309 // create table
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	310 $rows=array();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	311
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	312 foreach ($titles as $witness){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	313
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	314 $rows[]=array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	315 l($witness->field_nov[LANGUAGE_NONE][0]['value'],$witness->nid),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	316 l($witness->codex->field_nov[LANGUAGE_NONE][0]['value'],$witness->codex->nid),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	317 l($witness->collection->field_nov[LANGUAGE_NONE][0]['value'],$witness->collection->nid),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	318 l($witness->repository->field_nov[LANGUAGE_NONE][0]['value'],$witness->repository->nid),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	319 l($witness->place->field_nov[LANGUAGE_NONE][0]['value'],$witness->place->nid)
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	320 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	321 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	322
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	323 $header = array("witness","codex","collection","repository","place");
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	324 $block['content'] = array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	325 '#theme' => 'table',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	326 '#header' => $header,
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	327 '#rows' => $rows,
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	328 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	329 #$block['content'] = theme("table",array('header'=>null,'rows'=>$rows));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	330 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	331 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	332
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	333
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	334 case 'ISMIPersons_bea':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	335 $node = menu_get_object();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	336 //node hat keine objektype dann mache nichts
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	337 if (!isset($node->field_oc)){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	338 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	339 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	340
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	341 $tid = $node->field_oc[LANGUAGE_NONE][0]['tid'];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	342 $taxonomy = taxonomy_term_load($tid)->name;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	343 switch($taxonomy){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	344
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	345 case 'PERSON':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	346
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	347
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	348
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	349 $author_id = $node->field_id[LANGUAGE_NONE][0]['value'];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	350
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	351
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	352 $query = new EntityFieldQuery;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	353 $query->entityCondition('entity_type', 'node')
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	354 ->entityCondition('bundle', 'biography')
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	355 ->fieldCondition('field_id', 'value',$value = $author_id);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	356 $results = $query->execute();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	357
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	358 if (isset($results['node'])){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	359 $nids = array_keys($results['node']);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	360
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	361 foreach ($nids as $nid){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	362
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	363 $body = entity_load_single("node", $nid)->body[LANGUAGE_NONE][0]['value'];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	364
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	365 $block['title'] = t('BEA');
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	366 $block['content']= $body;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	367 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	368 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	369 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	370 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	371
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	372
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	373 case 'ISMIObjects_relations':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	374 $node = menu_get_object();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	375 $author_id = $node->field_id[LANGUAGE_NONE][0]['value'];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	376
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	377
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	378 $rels = relation_query("node",$node->nid)->execute();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	379
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	380 $block['content'] = ISMIBioFilter_RelationsFormat("node",$node,$rels);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	381
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	382 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	383 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	384
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	385 return $block;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	386 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	387
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	388 /**
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	389 * Implements hook_block_info().
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	390 */
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	391 function ISMIBioFilter_block_info() {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	392 $blocks = array();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	393 $blocks['ISMIBioFilter_help'] = array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	394 'info' => t('ISMI Bio filter tips'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	395 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	396 $blocks['ISMIObjects_main'] = array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	397 'info' => t('ISMI Main information of an object'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	398 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	399
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	400 $blocks['ISMIObjects_titles'] = array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	401 'info' => t('ISMI Titles related to an object'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	402 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	403
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	404 $blocks['ISMIPersons_bea'] = array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	405 'info' => t('ISMI Bea Entry of Person'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	406 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	407
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	408 $blocks['ISMIObjects_relations'] = array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	409 'info' => t('ISMI all relations'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	410 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	411
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	412 $blocks['ISMIText_witnesses'] = array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	413 'info' => t('ISMI witnesses'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	414 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	415
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	416 return $blocks;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	417 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	418
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	419 /**
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	420 * Provides content for the ISMIBioFilter help block.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	421 */
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	422 function _ISMIBioFilter_help_block() {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	423 return '<pre>' . t('Replaces external links to authors in the text to links to nodes in this website. ') . '</pre>';
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	424 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	425
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	426 /**
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	427 *
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	428 * Filter process callback.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	429 */
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	430 function _filter_ISMIBioFilter($text, $format) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	431 if (!empty($text)) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	432
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	433 $params = drupal_get_query_parameters();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	434
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	435 $text=preg_replace('/href="([^>]+?_BEA.htm)"\>/', 'href="$1">', $text);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	436
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	437 $text=preg_replace('#</span>\n#',"</span>",$text); #remove returns nach span otherwise this gives an extra space
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	438
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	439 $text=preg_replace('#style="[^"]+#',"",$text); #remove all style information
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	440
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	441
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	442 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	443
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	444 return $text;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	445 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	446
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	447 /**
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	448 * Filter settings callback. Just provides a version overview.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	449 */
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	450 function _filter_ISMIBioFilter_settings($form, &$form_state, $filter, $format, $defaults) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	451 module_load_include('php', 'ISMIBioFilter', 'ISMIBioFilter');
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	452
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	453 $settings['ISMIBioFilter_wrapper'] = array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	454 '#type' => 'fieldset',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	455 '#title' => t('ISMIBioFilter'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	456 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	457 $links = array('NO LINK',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	458 /*'Markdown PHP Version: <a href="http://michelf.com/projects/php-ISMIBioFilter/">' . MARKDOWN_VERSION . '</a>',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	459 'Markdown Extra Version: <a href="http://michelf.com/projects/php-ISMIBioFilter/">' . MARKDOWNEXTRA_VERSION . '</a>',*/
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	460 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	461 $settings['ISMIBioFilter_wrapper']['ISMIBioFilter_status'] = array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	462 '#title' => t('Versions'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	463 '#type' => 'item',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	464 '#markup' => theme('item_list', array('items' => $links)),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	465 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	466
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	467 return $settings;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	468 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	469
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	470
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	471 /* add id to url */
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	472
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	473 function ISMIBioFilter_addIDs(){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	474 $txt = file_get_contents(drupal_get_path("module", "ISMIBioFilter") . "/bio2ismi.txt");
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	475 $lines = explode("\n",$txt);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	476 foreach ($lines as $line){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	477 $content = explode(" ",$line);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	478 $id = $content[0];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	479 $origPath=$content[sizeof($content)-1];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	480 $path = explode("/",$origPath);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	481 $url = $path[sizeof($path)-1];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	482
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	483
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	484 $nodePath = explode("/",drupal_lookup_path("source",$url));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	485 #$nodePath = explode("/",drupal_lookup_path("source",str_replace(".htm","",$url)));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	486
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	487 $nodeId = $nodePath[sizeof($nodePath)-1];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	488
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	489 if ($nodeId != ""){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	490 $node = node_load($nodeId);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	491
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	492 $node->field_id[LANGUAGE_NONE][0]['value']=$id;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	493 dpm($node);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	494
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	495 node_save($node);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	496 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	497 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	498
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	499
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	500 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	501
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	502
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	503 function ISMIBioFilter_field_formatter_info(){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	504 return array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	505 // This formatter shows the obejct with fullmetadata
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	506 'ISMIBioFilter_entityLink' => array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	507 'label' => t('Entity Link Formatter'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	508 'field types' => array('text'),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	509 ),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	510 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	511 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	512
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	513 function ISMIBioFilter_field_formatter_view($entity_type, $entity, $field, $instance, $langcode, $items, $display) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	514 $element = array();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	515
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	516 #TODO make this configurable
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	517 $text ="Show data entry";
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	518
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	519 switch ($instance['label']){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	520 case 'author_id':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	521 $text = "More about the author";
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	522 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	523
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	524 switch ($display['type']) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	525 // This formatter simply outputs the field as text and with a color.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	526 case 'ISMIBioFilter_entityLink':
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	527 foreach ($items as $delta => $item) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	528 if ($item['value']!=""){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	529
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	530 $element[$delta]['#markup'] = l($text,"showEntity/" . $item['value']);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	531
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	532 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	533 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	534 break;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	535
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	536 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	537 return $element;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	538 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	539
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	540
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	541
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	542 function ISMIBioFilter_theme(){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	543
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	544 return array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	545 'ISMIObject_aliases' => array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	546 'variables' => array($prime_alias=null,$aliases=null),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	547 'template' => 'ISMIObject-aliases',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	548 ),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	549
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	550 'ISMIPersons_titles' => array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	551 'variables' => array('titles' => NULL),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	552 'template' => 'ISMITitlesOfPerson',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	553 ),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	554
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	555 'ISMIWitnesses_list' => array(
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	556 'variables' => array('witnesses' => NULL),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	557 'template' => 'ISMIWitnesses-list',
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	558 ),
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	559 );
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	560 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	561
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	562 function ISMIBioFilter_RelationsFormat($entity_type,$entity,$rels){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	563 $ret ="";
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	564 $sentences = array();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	565
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	566
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	567 foreach ($rels as $item) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	568 list($id, $vid, $bundle) = entity_extract_ids($entity_type, $entity);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	569 $relation = (object) relation_load($item->rid);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	570
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	571 $relation_type = relation_type_load($relation->relation_type);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	572
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	573 $subject = entity_label($entity_type, $entity) . ' '; // Subject of the sentence.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	574 $subject_is_source = ($relation->endpoints[LANGUAGE_NONE]['0']['entity_id']) == $id ? TRUE : FALSE;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	575 $count = 0; // For comma separation of objects.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	576 $duplicate = FALSE; // To make sure duplicates of $entity get included in object list.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	577 $objects = ''; // Comma separated list of entities that are the object of the sentence.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	578 // Gramatical predicate of teh sentence.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	579 $predicate = $relation_type->directional ? $relation_type->reverse_label : $relation_type->label;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	580
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	581 foreach ($relation->endpoints[LANGUAGE_NONE] as $endpoint) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	582 // Add all entities that aren't this entity to the sentence $objects.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	583 // Check for duplicates of the $subject first.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	584 if ($endpoint['entity_type'] == $entity_type && $endpoint['entity_id'] == $id && $duplicate == FALSE) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	585 $duplicate = TRUE;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	586 // Use the forward label as sentence predicate if r_index == 0.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	587 // (only makes a difference if relation is directional).
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	588 if ($endpoint['r_index'] == 0) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	589 $predicate = ' ' . $relation_type->label;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	590 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	591 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	592 else {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	593 // If the relation is directional and the subject isn't the source,
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	594 // we want to list the source without any siblings. If it is
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	595 // directional and the subject is a source, list all targets.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	596 // If non-directional, list everything as normal.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	597 if (!$relation_type->directional \|\| $subject_is_source \|\| $endpoint['r_index'] == 0) {
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	598 $object_entities = entity_load($endpoint['entity_type'], array($endpoint['entity_id']));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	599 $object_entity = reset($object_entities);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	600 $object_label = entity_label($endpoint['entity_type'], $object_entity);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	601 $object_uri = entity_uri($endpoint['entity_type'], $object_entity);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	602 // Just add a space before the first element, comma and space before further ones.
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	603 $objects .= $count ? ', ' : ' ';
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	604 $count += 1;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	605 $objects .= l($object_label, $object_uri['path']);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	606
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	607 $ret .=theme('item_list',array('items' => array(".." . $predicate . $objects)));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	608 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	609 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	610
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	611
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	612 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	613
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	614
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	615
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	616
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	617 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	618
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	619 return $ret;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	620 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	621
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	622 function _ISMIBioFilter_non_indentical($tars,$nid){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	623 $ret=array();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	624 foreach($tars as $tar){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	625 if($tar->nid!=$nid){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	626 $ret[]=$tar;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	627 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	628 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	629 return $ret;
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	630 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	631 function _ISMIBioFilter_enrich(&$titles){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	632 foreach($titles as $title){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	633 $title->codex=_ISMIBioFilter_find_unique_entity("is_part_of",$title->nid);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	634 $title->collection=_ISMIBioFilter_find_unique_entity("is_part_of",$title->codex->nid);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	635 $title->repository=_ISMIBioFilter_find_unique_entity("is_part_of",$title->collection->nid);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	636 $title->place=_ISMIBioFilter_find_unique_entity("is_in",$title->repository->nid);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	637
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	638 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	639 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	640
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	641
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	642
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	643
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	644
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	645 function _ISMIBioFilter_find_unique_entity($rel_type,$nid){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	646 $rels = relation_query("node",$nid)->execute();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	647 $is_in_place=array();
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	648 foreach($rels as $rel){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	649 if ($rel->relation_type==$rel_type){
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	650 $reps = _ISMIBioFilter_getTargets($rel);
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	651 $is_in_place = array_merge($is_in_place,_ISMIBioFilter_non_indentical($reps,$nid));
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	652 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	653
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	654 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	655 return $is_in_place[0];
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	656 }
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	657
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	658
124ef8f3b22d initial Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de> parents: diff changeset	659

Mercurial > hg > drupalISMI

annotate ISMIBioFilter/ISMIBioFilter.module @ 20:bdf91a4a40ff