EDIT

<?php

 * @file

 * cdm_dataportal

/**

 * @param section which section of the site we're displaying help

 * @return help text for section

 */

function cdm_dataportal_help($section='') {

  switch ($section) {

    case "admin/modules#description":

      $out = t("The dataportal publishes CDM data hosted in a CommunityStore on the web.");

      break;

  }

  return $out;

/**

 * @return array An array of valid permissions for the portfolio module

 */

function cdm_dataportal_perm() {

        'cdm_dataportal view notes',

  );

/**

function cdm_dataportal_menu($may_cache) {

  $items = array();

  if ($may_cache) {

      'path' => 'admin/settings/cdm_dataportal',

      'title' => t('CDM Dataportal'),

      'description' => t('Setting for the CDM Dataportal'),

      'access' => user_access('administer cdm_dataportal'),

      'callback' => 'drupal_get_form',

      'callback arguments' => 'cdm_dataportal_settings',

      'title' => t('Web Service'),

      'description' => t('Setting for the CDM Dataportal'),

      'access' => user_access('administer cdm_dataportal'),

      'callback' => 'drupal_get_form',

      'callback arguments' => 'cdm_dataportal_settings',

      'weight' => 1,

      'type' => MENU_DEFAULT_LOCAL_TASK,

	    'path' => 'cdm_dataportal/names',

	    'callback' => 'cdm_dataportal_view_names',

	    'access' => true,

	    'type' => MENU_CALLBACK, 

    // optional callback arguments: page

    $items[] = array(

	    'callback' => 'cdm_dataportal_view_taxon',

	    'access' => true,

	    'type' => MENU_CALLBACK, 

    );

    $items[] = array(

      'path' => 'cdm_dataportal/search/taxon',

      'callback' => 'cdm_dataportal_view_search_taxon',

      'access' => true,

      'type' => MENU_CALLBACK, 

    );

      'callback' => 'cdm_view_xml2json',

      'access' => true,

      'type' => MENU_CALLBACK, 

  drupal_add_css(drupal_get_path('module', 'cdm_dataportal').'/cdm_dataportal_screen.css', 'screen');

 * Implementation of hook_block()

 *  0: list of links useful during development

 *

 * @param String $op

 * @param int $delta

 */

function cdm_dataportal_block($op='list', $delta=0) {

  // listing of blocks, such as on the admin/block page

  if ($op == "list") {

    $block[0]["info"] = t("CDM DataPortal DevLinks");

  }

  else if ($op == 'view') {

    switch($delta){

      case 0:

        $block['subject'] = t('CDM DataPortal DevLinks');

        <li>'.l('Name List - page1 of A', 'cdm_dataportal/names/A/1')

        //.'</li><li>'.l('xml2json', 'cdm/xml2json/namelist;startwith=A.xml')

        .'</li>

        $block['subject'] = t('Credits');

        return $block;

        $block['subject'] = t('Search Taxa');

        $block['content'] = drupal_get_form('cdm_dataportal_search_taxon_form');

        return $block;

  }

}

 * Implementation of hook_validate()

 *

 * @param $element

 */

  }

  $cdm_webservice_url_changed = variable_get('cdm_webservice_url', '') != $form_values['cdm_webservice_url'];

  if ($cdm_webservice_url_changed) {

    //TODO does the currentSecUuid need to be stored?

    //   Yes - if switching to another concept is permanent until an other concept switch is used.

    //   NO  - if a user only 'visits' other concepts until this context is left by visiting a non taxon page

    //         , or explicitly when a concept switch is used.

    //

    //  >> NO seems to be the desired solution <<

    //

    cache_clear_all(NULL, 'cache_cdm_ws');

    cdm_api_secref_cache_clear();

    cache_clear_all(NULL, 'cache_cdm_ws');

    cdm_api_secref_cache_clear();

  $_SESSION['cdm'] = null;

  if(is_string($cdm_ws_uri_update)){

    $_SESSION['cdm'] = array('ws_uri'=>$cdm_ws_uri_update);

  }

}

function cdm_dataportal_session_validate(){

  if(!isset($_SESSION['cdm']['ws_uri'])){

    $_SESSION['cdm'] = array('ws_uri'=>variable_get('cdm_webservice_url', false));

  } else if($_SESSION['cdm']['ws_uri'] != variable_get('cdm_webservice_url', false)){

    cdm_dataportal_session_clear(variable_get('cdm_webservice_url', false));

  }

}

  $form['#method'] = 'get';

  $form['#process'] = array('cdm_dataportal_search_process' => array());

  $form['#action'] = url($url, NULL, NULL, true);

    '#type' => 'textfield',

    '#size' => 20,

    '#attributes' => array('title' => t('Enter the name or part of a name you wish to search for.')),

    '#default_value' => (isset($_SESSION['cdm']['search']['queryString']) ? $_SESSION['cdm']['search']['queryString'] : ''),

  );

    '#type' => 'select',

    '#title' => t('Search Mode'),

    '#options' => array(

        'EXACT' => t('Exact'),

        'BEGINNING' => t('Beginning'),

        'ANYWHERE' => t('Anywhere')

        ),

    '#description'   => t('* can always be used as wildcard'),

    '#default_value' => (isset($_SESSION['cdm']['search']['mode']) ? $_SESSION['cdm']['search']['mode'] : 'start'),

  );

  /*$form['onlyAccepted'] = array(

    '#title' => t('Only Accepted'),

    '#attributes' => array('title' => t('Search only for taxa which are accepted by the current treatment.')),

    '#default_value' => isset($_SESSION['cdm']['search']['onlyAccepted']) && $_SESSION['cdm']['search']['onlyAccepted'],

  );

  $form['vernacular'] = array(

    '#type' => 'checkbox',

    '#title' => t('Vernacular Names'),

    '#attributes' => array('title' => t('Search for vernacular names.')),

    '#default_value' => isset($_SESSION['cdm']['search']['vernacular']) && $_SESSION['cdm']['search']['vernacular'],

  );

  $form['language'] =  array(

    '#type' => 'select',

    '#title' => t('Language'),

    '#options' => array(

        '*' => t('ALL')

        ),

    '#description'   => t('The language of the vernacular name'),

    '#default_value' => (isset($_SESSION['cdm']['search']['language']) ? $_SESSION['cdm']['search']['language'] : ''),

  );

  */

  '#type' => 'hidden',

  '#value' => '1',

  );

  '#type' => 'submit',

  );

  // clean URL get forms breaks if we don't give it a 'q'.

  if (!(bool)variable_get('clean_url', '0')) {

    $form['q'] = array(

      '#type' => 'hidden',

      '#value' => $url,

      '#name' => 'q',

    );

  }

}

  unset($form['form_id']);

  unset($form['form_token']);

  return $form;

}

/**

 * Filters $_REQUEST by a list of valid request  parameters and also sets defaults if required.

 * returns the processed request parameters submitted by the search form.

 */

function cdm_dataportal_search_form_request(){

  // keys map $REQUEST Keys values are optional default parameters if not null

  $form_params = array();

  foreach($search_form_params as $key=>$default ){

    $form_params[$key] = ( isset($_REQUEST[$key]) && $_REQUEST[$key] != '' ? $_REQUEST[$key] : $default);

  }

}

  $_SESSION['cdm']['search'] = $form_values;

  //return '/cdm_dataportal/search/taxon/'.$form_values['queryString'].'/'.($form_values['vernacular']?'1':'0').'/'.$form_values['language'];      

  //$paramstr = compose_url_prameterstr($form_values);

  //return url('/cdm_dataportal/search/taxon/', $paramstr);

/**

 * Generate main administration form.

 *

 * @return

 *   An array containing form items to place on the module settings page.

 */

function cdm_dataportal_settings(){

      '#type' => 'fieldset',

      '#title' => t('CDM DataPortal'),

      '#collapsible' => FALSE,

      '#collapsed' => TRUE,

  );

  $form['cdm_dataportal']['secuuid_widget'] = array(

    '#type' => 'select_secuuid',

    '#title' => t('Default Concept Reference'),

    '#description'   => t('The default \'sensu\' reference to start the cdm_dataportal with. Per user choices are possible and may override this value.'),

    '#varname' => 'cdm_secUuid_default',

}

/**

 * Implementation of hook_elements().

 */

function cdm_dataportal_elements() {

  $type['select_secuuid'] = array(

    '#input' => TRUE, 

    '#process' => array('cdm_dataportal_select_secuuid_expand' => array()),

    //'#validate' => array('cdm_dataportal_select_secuuid_validate' => array()),

    //'#default_value' => array(),

}

/*

 * 

 */

function cdm_dataportal_select_secuuid_expand($element){

  // any value submitted?

  if(isset($element['#post'][$element['#varname']])){

    $selected_values = $element['#post'][$element['#varname']];

  } else {

    // use those store in drupal

    $selected_values = variable_get( $element['#varname'], array());

  }

  if(!is_array($selected_values)){

    $selected_values = array($selected_values);

  }

  $options = array();

  foreach($selected_values as $secUuid){

    '#type' => 'select',

    '#options' => $options,

    '#default_value' => array_values($options),

    '#size' => $element['#multiple'] ? 12 : 2,

    '#multiple' => $element['#multiple'],

  );

  return $element;

}

 * Displays a list of the known taxonomic names. Long lists are split up into multiple pages

 *

 * @param boolean $hide_unaccepted whether to hide nams which are not accepted by the current view

 */

    'q' => $beginsWith, 

         //'sec' = '',

         //'higherTaxa' => getFiters(),

          // 'matchAnywhere' => false, // default is false

    'page' => $page, 

    'onlyAccepted' => $onlyAccepted, 

    'pagesize' => 20  /*$_SESSION['cdm']['namelist_pagesize'] */);

  $taxonSTOs = cdm_ws_get(CDM_WS_FIND_TAXA, $request_params);

   * FIXME the filter for accepted names will be a form element, thus this widget

   * should be generated via form api preferably as block

   */

  //$out  = theme('cdm_dataportal_widget_filter_accepted', $onlyAccepted);

  //$out .= theme('cdm_dataportal_widget_names_list', $names, $page);

 * The taxon page gives detailed information on a taxon, it shows:

 *  - Taxon name

 *    heterotypic and finally followed by misapplied names.

    switch ($args[0]){

      case 'alternatives':

        $alternatives = cdm_ws_get(CDM_WS_TAXON_ALTERNATIVES, $uuid);

        return theme('cdm_alternative_taxa', $alternatives);

    }

  } else {

    // display the page for the taxon defined by $uuid

    $taxonTO = cdm_ws_get(CDM_WS_TAXON ,$uuid);

      drupal_set_title(t('Taxon does not exist'));

      return false;   

    }

    drupal_set_title(theme('cdm_taxon', $taxonTO, true));

    //TODO retrieve complete synonymy and other data

    $out = theme('cdm_taxon_page', $taxonTO);

    return $out;

  }

}

 * Expected URL request parameters:

 *  - text

 *  - language

 *  - vernacular

 * 

 * future extensions to meet palmweb mockup requirements:

 *  - habitat

 *  - uses

 *  - conservation status

 *  - locality / tdwg region

 */

  $sw_params = array_replace_key($request_params, array('queryString'=> 10 ));

  $resultPageSTO = cdm_ws_get(CDM_WS_FIND_TAXA, $sw_params);

  $resultPageSTO->pageNumber = $request_params['page'];

  return theme('cdm_search_results', $resultPageSTO, 'cdm_dataportal/search/taxon', $request_params);

  $file = arg(2);

  $datastr = get_content(variable_get('cdm_webservice_url', '').$file);

  return  xml2json::transformXmlStringToJson($datastr);

}

 * Get a term for the current locale from the $localised_terms array.

 * Uses global variable $locale from drupal (see drupal functions locale_initialize() for details)

 */

function cdm_dataportal_t($localised_terms){

  global $locale;  // drupal variable containing the current locale

  return cdm_get_localised_term($localised_terms, $locale);

}

 * Enter description here...

 *

 * @param String $uuid the UUID of the taxon

 * @return the URL

 */

function cdm_dataportal_taxon_path($uuid){

  return 'cdm_dataportal/taxon/'.$uuid;

 * Creates a short taxonname by using the taggename field of NameSTO or NameTO instances.

 * If the taggename if empty the fullname will be returned.

 *

function cdm_dataportal_shortname_of($NameSTO){

  // get all tagged text tokens of the scientific name

  foreach($NameSTO->taggedName as $tagtxt){

      if($tagtxt->type == 'name' || $tagtxt->type == 'rank'){

        $name .= ($name ? ' ' : '').$tagtxt->text;

      }

  }

  $name = trim($name);

    } else {

      return $name;

    }

  } else {

    return $NameSTO->fullname;

  }

}

    $secUuid = $secUuid[0];

  }

      $_SESSION['cdm']['currentSecRef'] = null;

    } else {

        $_SESSION['cdm']['currentSecRef'] = (array)($secRef[0]);

      }

}

/**

 * returns the current secRef array from the users session. 

 * If the according session variable is not jet set the default

 * currentSecRef['uuid']

 * currentSecRef[....

 * @return array

 */

  $current_secref = _cdm_dataportal_currentSecRef_array();

  return $current_secref->uuid == $taxonTO->secuuid && $taxonTO->accepted;

}

 * @param $str the string to truncate

 * @param $len the maximun length

 * @param $appendix an optional appendix.

 *

 * @return the string truncated to the specified length or the original string as given as parameter.

 * if an appendix has been defined the resulting string

 * will have the specified length inculding the the appendix.

 */

function str_trunk(&$str, $len, $appendix=''){

  return  substr($str, 0, $len - strlen($appendix)).$appendix;

  else

  return $str;

/**

 * @param string $str

 * @param string $sub

 * @return boolean

 */

function str_beginsWith( $str, $sub ) {

/**

 * @param string $sub

 * @return boolean

 */

function str_endsWith( $str, $sub ) {

function array_replace_key($array, $replace_map){

  foreach($replace_map as $key=>$newkey){

    if(isset($array[$key])){

      $array[$newkey] = $array[$key];

      unset($array[$key]);

    }

  }

  return $array;

}

  $pstr = '';

  foreach($parameters as $key=>$value){

  return $pstr;

}