function DisplayHtmlContent()
{
global $config;
echo html_page_header(true, '', 'name');
echo '<h1>' . $this->GetTitle() . '</h1>';
if (count($this->object->specimens) == 0) {
echo '<p>No specimens with this code</p>';
} else {
// What articles have this specimen?
echo '<h2>References in BioStor with this specimen</h2>';
$refs = specimens_references_with_code($this->code);
//print_r($refs);
foreach ($refs as $occurrenceID => $ref_list) {
if ($occurrenceID != 0) {
echo '<p>GBIF occurrence <a class="gbif" href="http://data.gbif.org/occurrences/' . $occurrenceID . '/" target="_new">' . $occurrenceID . '</a>';
$datasetID = specimens_dataset_from_occurrence($occurrenceID);
$dataset = specimens_dataset($datasetID);
echo ' from dataset <a href="gbif_dataset.php?datasetID=' . $dataset->datasetID . '">' . $dataset->dataResourceName . ' (' . $dataset->providerName . ')' . '</a>';
echo '</p>';
$occurrence = specimens_from_occurrenceID($occurrenceID);
echo '<p>' . $occurrence->scientificName . ' (' . join(':', $occurrence->lineage) . ')' . '</p>';
} else {
echo '<p>(specimen not known in GBIF)</p>';
}
echo '<table cellspacing="0" cellpadding="2" width="100%">';
foreach ($ref_list as $reference_id) {
$reference = db_retrieve_reference($reference_id);
echo '<tr';
if (in_array($reference_id, $act_refs)) {
echo ' style="background-color:#D8F3C9;"';
}
echo '>';
if ($reference->PageID != 0) {
$image = bhl_fetch_page_image($reference->PageID);
$imageURL = $image->thumbnail->url;
} else {
// if it's an article we could use journal image
$imageURL = 'http://bioguid.info/issn/image.php?issn=' . $reference->issn;
}
echo '<td valign="top"><img style="border:1px solid rgb(192,192,192);" src="' . $imageURL . '" width="40" />';
echo '</td>';
echo '<td valign="top">';
echo '<a href="' . $config['web_root'] . 'reference/' . $reference_id . '">' . $reference->title . '</a><br/>';
echo '<span>' . reference_authors_to_text_string($reference);
if (isset($reference->year)) {
echo ' (' . $reference->year . ')';
}
echo ' ' . reference_to_citation_text_string($reference) . '</span>';
echo ' ' . reference_to_coins($reference);
if (0) {
echo '<div>';
echo bhl_pages_with_name_thumbnails($reference_id, $this->object->NameBankID);
echo '</div>';
}
echo '</td>';
echo '</tr>';
}
echo '</table>';
}
}
}
$result = $db->Execute($sql);
if ($result == false) {
die("failed [" . __FILE__ . ":" . __LINE__ . "]: " . $sql);
}
while (!$result->EOF) {
$ids[] = $result->fields['reference_id'];
$result->MoveNext();
}
header("Content-type: text/html; charset=utf-8\n\n");
echo html_html_open();
echo html_head_open();
echo html_title('GBIF dataset ' . $datasetID . ' - ' . $config['site_name']);
echo html_head_close();
echo html_body_open();
echo html_page_header(true);
$dataset = specimens_dataset($datasetID);
echo '<h1>' . count($ids) . ' references citing occurrences from GBIF dataset ' . $dataset->dataResourceName . ' (' . $dataset->providerName . ')' . '</h1>';
echo '<p><a href="gbif_data.php">View all GBIF datasets in BioStor</a></p>';
echo '<p><a href="http://data.gbif.org/datasets/resource/' . $datasetID . '/" target="_new">View ' . $dataset->dataResourceName . ' dataset at GBIF</a></p>';
echo '<table cellspacing="0" cellpadding="2" width="100%">';
foreach ($ids as $reference_id) {
$reference = db_retrieve_reference($reference_id);
echo '<tr';
if (in_array($reference_id, $act_refs)) {
echo ' style="background-color:#D8F3C9;"';
}
echo '>';
if ($reference->PageID != 0) {
$image = bhl_fetch_page_image($reference->PageID);
$imageURL = $image->thumbnail->url;
} else {
