Table IDTOOL (249 records)
B. SQL code for dynamic search
/database/corals/identool/taxonkey.htm
PROCEDURE IDTOOL_MORPH (x2 varchar2 := null,
x4 varchar2 := null, x5 varchar2 := null, x6 varchar2 := null, x7 varchar2
:= null, x8 varchar2 := null, x9 varchar2 := null) as
Cursor C1 is
select genwebpage, genusname
FROM IDTOOL
WHERE (COLFORM=x2) AND
(COLSHAPE=x4) AND
(BUDDING=x5) AND
(COLUMELLA=x6) AND
(CRSIZE=x7) AND
(WALL=x8) AND
(LOBES=x9);
x1 VARCHAR2(35);
x3 VARCHAR2(100);
begin
htp.htmlopen;
htp.p('<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#009191" VLINK="#551A8B"
ALINK="#00CACA">');
htp.title ('Morphology search');
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="#C40062">M</font><font
color="#005EBB">arine
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.paragraph;
htp.bold ('The following genera have the morphologic characteristics:');
htp.paragraph;
htp.ulistopen;
open C1;
fetch C1 into x1, x3;
while c1%found loop
htp.anchor('http://nmita.geology.uiowa.edu/database/corals/systemat/'||x1||'',x3);
htp.paragraph;
fetch c1 into x1, x3;
end loop;
htp.ulistclose;
htp.p('<P><HR ALIGN=LEFT WIDTH=100%><B>[ <A HREF="index.htm">NMITA
home
page</A> | <A HREF="database/corals/coralmnu.htm">Zooxanthellate
Corals</A> | <A HREF="http://nmita.geology.uiowa.
edu/database/corals/identool/taxonkey.htm">Return to Search Tool </A>
] </B></P>
</OL>');
htp.htmlclose;
end;