Invertebrates Database
$line) { // process file entries
$linearr = explode("\t", $line);
if($linearr[0] == "SciName") { continue; }
$sciname[$linenumber] = $linearr[0];
$comname[$linenumber] = $linearr[1];
$prevsciname[$linenumber] = $linearr[2];
$status[$linenumber] = $linearr[3];
$habitat[$linenumber] = $linearr[4];
$phylum[$linenumber] = $linearr[5];
$subphylum[$linenumber] = $linearr[6];
$superclass[$linenumber] = $linearr[7];
$class[$linenumber] = $linearr[8];
$subclass[$linenumber] = $linearr[9];
$infraclass[$linenumber] = $linearr[10];
$superorder[$linenumber] = $linearr[11];
$order[$linenumber] = $linearr[12];
$suborder[$linenumber] = $linearr[13];
$infraorder[$linenumber] = $linearr[14];
$superfamily[$linenumber] = $linearr[15];
$family[$linenumber] = $linearr[16];
for($i=17;$i<49;$i++) {
if(isset($linearr[$i]) and strlen($linearr[$i]) > 1) {
$thumbarr = array_reverse(explode("\\", $linearr[$i]));
$thumbarr[0] = "thumb_" . $thumbarr[0];
$thumbs[$linenumber][] = implode("/", array_reverse($thumbarr));
$pics[$linenumber][] = str_replace("\\", "/", $linearr[$i++]);
if(isset($linearr[$i])) {
$picdesc[$linenumber][] = $linearr[$i];
}
else {
$picdesc[$linenumber][] = -1;
}
}
else {
$pics[$linenumber][] = -1;
$picdesc[$linenumber][] = -1;
$i++;
}
}
// listing
if(isset($linearr[5])) {
if(!in_array($linearr[5], $phylist) and $linearr[5] != null) {
$phylist[] = $linearr[5];
}
}
if(isset($linearr[4])) {
if(!in_array($linearr[4], $hablist) and $linearr[4] != null) {
$hablist[] = $linearr[4];
}
}
// filters
if(isset($filterstat)) {
if($filterstat != "A") {
if(strcmp($linearr[3], $filterstat) != 0) {
$filterhide[] = $linenumber;
}
}
}
if(isset($filterhab)) {
if($filterhab != "A") {
if(stripos($linearr[4], $filterhab) === false) {
$filterhide[] = $linenumber;
}
}
}
if(isset($filterphy)) {
if($filterphy != "A") {
if(stripos($linearr[5], $filterphy) === false) {
$filterhide[] = $linenumber;
}
}
}
// clean filterhide
if(isset($filterhide)) {
$filterhide = array_unique($filterhide);
sort($filterhide);
}
} // end process file entries
// choose display mode
if(isset($viewline)) {
$printer = "
EOT;
// data section
$printer .= "\r\n";
$printer .= "\r\n| Scientific Name | \r\n " . $sciname[$viewline] . " | \r\n \r\n";
$printer .= "\r\n| Common Name | \r\n " . $comname[$viewline] . " | \r\n \r\n";
$printer .= "\r\n| Previous Scientific Name | \r\n " . $prevsciname[$viewline] . " | \r\n \r\n";
$printer .= "\r\n| Status | \r\n ";
switch($status[$viewline]) {
case "N":
$printer .= "Native";
break;
case "I":
$printer .= "Exotic";
break;
case "ID":
$printer .= "Indeterminate";
break;
case "C":
$printer .= "Cryptogenic";
break;
}
$printer .= " | \r\n \r\n";
$printer .= "
\r\n";
$printer .= "\r\n| Taxonomy | \r\n \r\n";
$printer .= "\r\n| Phylum | \r\n " . $phylum[$viewline] . " | \r\n \r\n";
if(isset($subphylum[$viewline]) and strlen($subphylum[$viewline]) > 0) {
$printer .= "\r\n| Subphylum | \r\n " . $subphylum[$viewline] . " | \r\n \r\n";
}
if(isset($superclass[$viewline]) and strlen($superclass[$viewline]) > 0) {
$printer .= "\r\n| Superclass | \r\n " . $superclass[$viewline] . " | \r\n \r\n";
}
if(isset($class[$viewline]) and strlen($class[$viewline]) > 0) {
$printer .= "\r\n| Class | \r\n " . $class[$viewline] . " | \r\n \r\n";
}
if(isset($subclass[$viewline]) and strlen($subclass[$viewline]) > 0) {
$printer .= "\r\n| Subclass | \r\n " . $subclass[$viewline] . " | \r\n \r\n";
}
if(isset($infraclass[$viewline]) and strlen($infraclass[$viewline]) > 0) {
$printer .= "\r\n| Infraclass | \r\n " . $infraclass[$viewline] . " | \r\n \r\n";
}
if(isset($superorder[$viewline]) and strlen($superorder[$viewline]) > 0) {
$printer .= "\r\n| Superorder | \r\n " . $superorder[$viewline] . " | \r\n \r\n";
}
if(isset($order[$viewline]) and strlen($order[$viewline]) > 0) {
$printer .= "\r\n| Order | \r\n " . $order[$viewline] . " | \r\n \r\n";
}
if(isset($suborder[$viewline]) and strlen($suborder[$viewline]) > 0) {
$printer .= "\r\n| Suborder | \r\n " . $suborder[$viewline] . " | \r\n \r\n";
}
if(isset($infraorder[$viewline]) and strlen($infraorder[$viewline]) > 0) {
$printer .= "\r\n| Infraorder | \r\n " . $infraorder[$viewline] . " | \r\n \r\n";
}
if(isset($superfamily[$viewline]) and strlen($superfamily[$viewline]) > 0) {
$printer .= "\r\n| Superfamily | \r\n " . $superfamily[$viewline] . " | \r\n \r\n";
}
if(isset($family[$viewline]) and strlen($family[$viewline]) > 0) {
$printer .= "\r\n| Family | \r\n " . $family[$viewline] . " | \r\n \r\n";
}
$printer .= " \r\n | \r\n\r\n";
// pictures section
$printer .= "\r\n";
if($pics[$viewline][0] == -1) {
$printer .= "| Sorry, no pictures available for this specimen | \r\n";
}
else {
foreach($pics[$viewline] as $key => $piclink) {
if($piclink == -1) { break; }
$printer .= "![](\"") | \r\n";
if(isset($picdesc[$viewline][$key]) and $picdesc[$viewline][$key] != -1) {
$printer .= "| " . $picdesc[$viewline][$key] . " | \r\n";
}
}
}
$printer .= " \r\n";
$printer .= " | \r\n
\r\n\r\n";
}
else { // listing and filtered listing
$printer = "\r\n
";
} // end listview
$printer .= "For questions or comments please contact Lisa Needles at, needles@marine.calpoly.edu";
print $printer;
?>
