my $query = new CGI;

$query->param('Action') = "nothing yet";

#PRINT HEADER
print $query->header;
print $query->start_html(
	-title=>'Add to the Cancer Genomics Online Library');
#	-script=>$JSCRIPT);

#PRINT TITLE
&print_title;

#PRINT FORM
print "<h2>Cancer Genomics Online Library Addition Form</h2>\n";
if ($query->param('Action') eq 'Submit') 
{
   	# we have some data
   print "<h2>Entry Results</h2>\n";

   	# check data
   if (&check_entry($query) == 0) 
	{
		&print_success($query);
		&make_entry($query);
   }
   else 
	{
		print "<HR><H2>Errors Found</H2>\n";
		print "<P>Please correct the errors above on the form below.\n";
		&print_form($query);
   }
}
else 
{
    &print_intro;
    &print_form($query);
}

&print_tail;
print $query->end_html;

#End of Program