#! /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 "
";
print "
";
print "SECOND DECLENSION
NOUNS
";
print "";
# 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 'Return to Main page
';
print 'The present website is compiled for an introductory Latin course at the Chinese University of Hong Kong by Dr. Louis Ha.
';
print 'Copyright by Louis Ha, 2000.
';
print $cgi->center ('* * *');
print '
';
## MAIN-BODY
# DECLINE
sub decline{
print "";
printf "Latin : %s
\n",
$cgi->escapeHTML ($key_word).", -i ".$gender;
printf "English : %s
\n",
$cgi->escapeHTML ($english);
print $cgi->hr();
print $cgi->blockquote(qq{
|
SINGULAR |
PLURAL |
NOM. |
$key_word |
$stema |
GEN. |
$stemi |
$stemorum |
DAT. |
$stemo |
$stemis |
ACC. |
$stemum |
$stema |
ABL. |
$stemo |
$stemis |
});
}
## WEBPAGE OUTPUT