#! /usr/bin/perl

# co129_search - find co129 keywords

# PREAMBLE
use CGI;
use strict;

my ($cgi) = new CGI;
print $cgi->header ();
print $cgi->start_html (-title=>'LATIN DECLENSION',
					   -author=>'keloon@catholic.org.hk',
					   -base=>'true',
					   -meta=>{'keywords'=>'Latin Grammar',
					           'copyright'=>'copyright 2000, Louis Ha'},
					   -BGCOLOR=>'#CCCCFF');

print "<BR>";
print "<center>";
print "<H4><font size=5 face=Times News Roman color=red>FIFTH DECLENSION
NOUNS</font></H4>";
print "</center>";

# MAIN-BODY
my ($key_word) = $cgi->param ("keyword");
my ($stem) = $cgi->param ("stem");
my ($gender) = $cgi->param ("gender");
my ($english) = $cgi->param ("english");
decline ($key_word,$english) if ($key_word,$english);
# ending
print $cgi->hr();
print '<strong><font size = "3"><A HREF="http://www.catholic.org.hk/latin/declension/noun_5.html" TARGET="_parent">Return to Main page</strong></font></A><br><br>';
print '<strong><font size = "2">The present website is compiled for an introductory Latin course at the Chinese University of Hong Kong by <A HREF="mailto:keloon@catholic.org.hk" TARGET="_parent">Dr. Louis Ha</A>.<br>';
print 'Copyright by Louis Ha, 2000.</font></strong><br>';
print $cgi->center ('*     *     *');
print '<br><br>';
## MAIN-BODY

# DECLINE
sub decline{
	print "<center><big>";
	printf "<b>Latin   : %s<BR><BR></b>\n",
		$cgi->escapeHTML ($key_word).", -ei ".$gender;
	printf "<b>English : %s<BR><BR>\n",
		$cgi->escapeHTML ($english);
	print $cgi->hr();
print $cgi->blockquote(qq{<font face='Times News Roman'><table border=1>
<tr><td><big><big></td>
<td><big><big>SINGULAR<L></L></td>
<td><big><big>PLURAL<L></L></td>
</tr>
<tr>
<td><big><big>NOM.</td>
<td><big><big><L><FONT COLOR="#FF3333">$key_word</font><B></B></L></td>
<td><big><big><L><FONT COLOR="#FF3333">$stem</font><B>es</B></L></td>
</tr>
<tr><td><big><big>GEN.</td>
<td><big><big><L><FONT COLOR="#FF3333">$stem</font><B>ei</B></L></td>
<td><big><big><L><FONT COLOR="#FF3333">$stem</font><B>erum</B></L></td>
</tr>
<tr>
<td><big><big>DAT.</td>
<td><big><big><L><FONT COLOR="#FF3333">$stem</font><B>ei</B></L></td>
<td><big><big><L><FONT COLOR="#FF3333">$stem</font><B>ebus</B></L></td>
</tr>
<tr>
<td><big><big>ACC.</td>
<td><big><big><L><FONT COLOR="#FF3333">$stem</font><B>em</B></L></td>
<td><big><big><L><FONT COLOR="#FF3333">$stem</font><B>es</B></L></td>
</tr>
<tr>
<td><big><big>ABL.</td>
<td><big><big><L><FONT COLOR="#FF3333">$stem</font><B>e</B></L></td>
<td><big><big><L><FONT COLOR="#FF3333">$stem</font><B>ebus</B></L></td>
</tr>
</table> <p>

</center>
});

}

## WEBPAGE OUTPUT