######################################################
# oratut.pl by Mike Moxcey #
# Basic routines for the Oracle/Perl Tutorial system #
######################################################

$sql_login="*****/*****";

############################################################
# HtmlTopTut #
# Returns the top part of Oracle Tutorial System HTML docs #
# with title/body <h2> specified by the parameter #
############################################################

sub HtmlTopTut
{
local ($title) = @_;

return <<END_OF_TEXT;
<html>
<head>
<title>$title</title>
</head>
<body>
<center>
<h1>Oracle/Perl Tutorial System</h1>
<h2>$title</h2>
</center>
END_OF_TEXT
}

#########################################################
# HtmlBotTut #
# Returns the bottom of every Oracle Tutorial HTML page #
#########################################################

sub HtmlBotTut
{
return <<END_OF_TEXT;
<HR>
<ADDRESS>
Mike Moxcey<BR>
email:
<A href="mailto:Michael.S.Moxcey\@usda.gov">Michael.S.Moxcey\@usda.gov</A>
</ADDRESS><br>
Links to
<a href="http://www.wwwvoice.com/bud/bud.html">Bud Ugly Web Designs</a>,
<a href="http://www.cooltext.com/">Cooltext.com</a>, and
<a href="http://www.aphis.usda.gov/~mmoxcey/htmledit.html">Web Page Tutorial</a> sites.
</BODY>
</HTML>
END_OF_TEXT
}

######################################################
# error: sends html to user about required field error #
# Pass in the name of field AS IT APPEARS ON THE FORM #
######################################################

sub FieldRequiredError {
($bad_field) = @_;

print &PrintHeader;

print &HtmlTopTut("Required Field Error");
print "The field $bad_field is required<p>\n";
print "Press the [Back] button on your browser and enter the information.\n";
print &HtmlBotTut;
exit;
}

1; #return true: required at end of include files


home