- return if (!%rec);
- print OUT "<table border=\"1\" frame=\"border\" rules=\"none\"><col width=\"0*\" /><col width=\"1*\" />\n";
- print OUT "<tr><th colspan=\"2\">".$preinsert.&rec_to_name(%rec).$postinsert."</th></tr>\n";
- delete $rec{"Genus"};
- delete $rec{"Species"};
- foreach $key (sort keys %rec)
- { print OUT "<tr><td class=\"left\">".&htmlquote($key).":</td><td>".&htmlquote($rec{$key})."</td></tr>\n"; }
- print OUT "</table>\n";
+ my($r)="<p><span class=\"name\">".$preinsert.&htmlquote(&rec_to_name(%rec)).$postinsert."</span>";
+ $r.="\n".htmlquote($rec{"Publ. Author"}) if (exists($rec{"Publ. Author"}));
+ $r.="<br />\n".htmlquote($rec{"Publication"}) if (exists($rec{"Publication"}));
+ $r.="<br />\n".htmlquote($rec{"Notes"}) if (exists($rec{"Notes"}));
+ $r.="</p>\n";
+ return($r);
+}
+
+sub extract_year
+{
+ ($_)=@_;
+ if (defined($_)) {
+ s/\(([0-9]{4}) publ. [0-9]{4}\)/($1)/g;
+ while (/\(([0-9]{4})(-[0-9]+)?\)/) {
+ return $1 if ($1>=1700 && $1<=2010);
+ $_=$';
+ }
+ }
+ return(-1);