http://porites.geology.uiowa.edu:8001/ows-bin/owa/type_genus
PROCEDURE TYPE_GENUS IS
BEGIN
HTP.HTMLOPEN;
HTP.HTITLE('Coral Genus Dynamic Search Tool');
HTP.LINE;
HTP.FORMOPEN('TYPE_FORM3');
HTP.PREOPEN;
HTP.FORMSELECTOPEN('GENUS_TYPE', 'Species Type: ');
HTP.FORMSELECTOPTION('Caulastraea');
HTP.FORMSELECTOPTION('Colpophyllia');
HTP.FORMSELECTOPTION('Diploria');
HTP.FORMSELECTOPTION('Favia');
HTP.FORMSELECTOPTION('Hadrophyllia');
HTP.FORMSELECTOPTION('Manicina');
HTP.FORMSELECTOPTION('Thysanus');
HTP.FORMSELECTCLOSE;
HTP.PRECLOSE;
HTP.PARAGRAPH;
HTP.FORMRESET;
HTP.FORMSUBMIT;
HTP.FORMCLOSE;
HTP.LINE;
HTP.HTMLCLOSE;
END;
PROCEDURE TYPE_FORM3
(
GENUS_TYPE VARCHAR2 := NULL) AS
CURSOR C1 IS
SELECT GENUSNAME, GENAUTHORNM, GENYEARAUTH, TYSPGENUS, TYSPSPECIES,
TYSPAUTHORNM, TYSPYEAR
FROM GENUS
WHERE GENUSNAME = GENUS_TYPE;
CURSOR C2 IS
SELECT GENMORCHARNAME, GENCHARSTATE, GENMORWEBPAGE
FROM GENMORPH
WHERE GENUSNAME=GENUS_TYPE;
CURSOR C3 IS
SELECT GENUSNAME,SPECIESNAME,SPWEBPAGE,SPECIESAUTHORNM,SPECIESYEARAU,ILLUSFILE
FROM SPECIES
WHERE GENUSNAME=GENUS_TYPE;
CURSOR C4 IS
SELECT SYGENUSNAME,SYGENUSAUTHORNM,SYGENUSYEARAU
FROM SYGENUS
WHERE GENUSNAME=GENUS_TYPE;
X0 VARCHAR2 (100);
X1 VARCHAR2 (100);
X2 VARCHAR2 (100);
X3 VARCHAR2 (100);
X4 VARCHAR2 (100);
X5 VARCHAR2(100);
X6 VARCHAR2(100);
X7 VARCHAR2(100);
X8 VARCHAR2 (100);
X9 VARCHAR2 (100);
X10 VARCHAR2 (100);
X11 VARCHAR2 (100);
X12 VARCHAR2 (100);
X13 VARCHAR2 (100);
X14 VARCHAR2 (100);
X15 VARCHAR2 (100);
X16 VARCHAR2 (100);
X17 VARCHAR2 (100);
X18 VARCHAR2 (100);
BEGIN
HTP.HTMLOPEN;
HTP.TITLE(GENUS_TYPE);
HTP.HEADER(1,'<img SRC="nmitalog.gif"
HSPACE=6 VSPACE=3 BORDER=2 height=32 width=32 align=LEFT><b><font
size=+1><font color="#005EBB">NMITA:</font><font color="#CA0065">N</font><font
color="#005EBB">eogene</font>
<font color="#CA0065">B</font><font color="#BD005F">i</font><font
color="#005EBB">ota of </font><font color="#C10061">T</font><font
color="#005EBB">ropical</font><font color="#BB005E">
A</font><font color="#005EBB">merica</font></font></b>
');
HTP.NL;
HTP.LINE;
HTP.HEADER(1, '<CENTER><I>'||GENUS_TYPE||'</I></CENTER>');
HTP.LINE;
HTP.NL;
OPEN C1;
FETCH C1 INTO X0,X1,X2,X3,X4,X5,X6;
HTP.BOLD('<I>'||X0||'</I>');
HTP.BOLD(''||X1||',');
HTP.bold(X2);
htp.paragraph;
HTP.bold('Type Species:');
htp.italic(X3);
HTP.italic(X4);
HTP.P(''||X5||',');
HTP.P(X6);
HTP.PARAGRAPH;
FETCH C1 INTO X0,X1,X2,X3,X4,X5,X6;
CLOSE C1;
htp.bold('Synonyms: ');
HTP.ULISTOPEN;
OPEN C4;
FETCH C4 INTO X16,X17,X18;
WHILE C4%FOUND LOOP
HTP.italic(X16);
HTP.P(''||X17||',');
HTP.P(X18);
htp.paragraph;
FETCH C4 INTO X16,X17,X18;
END LOOP;
CLOSE C4;
HTP.ULISTCLOSE;
HTP.BOLD('Morphologic Description: ');
HTP.ULISTOPEN;
OPEN C2;
FETCH C2 INTO X7,X8,X9;
WHILE C2%FOUND LOOP
HTP.ANCHOR('http://nmita.geology.uiowa.edu/database/corals/glossary/'||X9||'',X7);
HTP.P(''||X8||';');
FETCH C2 INTO X7,X8,X9;
END LOOP;
CLOSE C2;
HTP.ULISTCLOSE;
HTP.BOLD('Species: ');
HTP.ULISTOPEN;
OPEN C3;
FETCH C3 INTO X10,X11,X12,X13,X14,X15;
WHILE C3%FOUND LOOP
HTP.P('<img src=http://nmita.geology.uiowa.edu/database/corals/systemat/faviid/'||X15||'
hspace=2 vspace=2 Height=100 Width=100 align=abscenter>');
HTP.ANCHOR('http://nmita.geology.uiowa.edu/database/corals/systemat/faviid/'||X12||'','<I>'||X10||'</I>');
HTP.ANCHOR('http://nmita.geology.uiowa.edu/database/corals/systemat/faviid/'||X12||'','<I>'||X11||'</I>');
HTP.P(''||X13||', '||X14||'');
HTP.PARAGRAPH;
FETCH C3 INTO X10,X11,X12,X13,X14,X15;
END LOOP;
CLOSE C3;
HTP.ULISTCLOSE;
HTP.HTMLCLOSE;
END;