$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