#################################################################
#                  Database Definition Variables 		#
#################################################################

#Columns of database
$db{"gen_name"}	        =		0;
$db{"trade_name"}  	= 		1;
$db{"drug_class"} 	= 		2;
$db{"indications"}   	=		3;
$db{"pharmacodynamics"}	= 		4;
$db{"side_effects"}	= 		5;
$db{"pharmacokinetics"}	= 		6;
$db{"routes"}		= 		7;
$db{"similar"}    	= 		8;
$db{"remarks"}    	= 		9;
$db{"email"}            =               10;
$db{"modification_time"}= 		11;
$db{"who_modified"} 	=	 	12;
$db{"group_modified"}   =               13;
$db{"db_id"}		=		14; 

#Where things are located
$index_of_db_id_number = 14;
$index_of_who_modified = 12;
$index_of_group_who_modified = 13;
$index_of_modification_time = 11;
$index_for_email = 10;
$index_of_field_to_be_sorted_by = "0";


#What can be edited by owners
@db_user_definable_field_order = ("gen_name", "trade_name",
			"drug_class", "indications",
			"pharmacodynamics", "side_effects", 
			"pharmacokinetics", "routes",
			"similar", "remarks", "email");

#these will become parameters which can contain multiple fields (ie. checkboxes),
#they will become comma delimited.
@multi_fields = ("side_effects", "routes");

#Move the addition fields to here
@db_user_add_field_order = (
"<INPUT TYPE = \"text\" NAME = \"gen_name\" SIZE = \"62\" MAXSIZE = \"80\">",
"<INPUT TYPE = \"text\" NAME = \"trade_name\" SIZE = \"62\" MAXSIZE = \"80\">",
"<TEXTAREA NAME = \"drug_class\" COLS = 60 ROWS = 3 wrap=\"virtual\"></TEXTAREA>",
"<TEXTAREA NAME = \"indications\" COLS = 60 ROWS = 5 wrap=\"virtual\"></TEXTAREA>",
"<TEXTAREA NAME =\"pharmacodynamics\" COLS = 60 ROWS = 4 wrap=\"virtual\"></TEXTAREA>",
"  <INPUT TYPE=\"checkbox\" NAME=\"side_effects\" VALUE=\"CNS\">CNS
  <INPUT TYPE=\"checkbox\" NAME=\"side_effects\" VALUE=\"CV\">CV
  <INPUT TYPE=\"checkbox\" NAME=\"side_effects\" VALUE=\"Derm\">Derm
  <INPUT TYPE=\"checkbox\" NAME=\"side_effects\" VALUE=\"Endo\">Endo
  <INPUT TYPE=\"checkbox\" NAME=\"side_effects\" VALUE=\"GI\">GI
  <INPUT TYPE=\"checkbox\" NAME=\"side_effects\" VALUE=\"GU\">GU
  <INPUT TYPE=\"checkbox\" NAME=\"side_effects\" VALUE=\"Hemo\">Hemo
  <INPUT TYPE=\"checkbox\" NAME=\"side_effects\" VALUE=\"Immuno\">Immuno
  <INPUT TYPE=\"checkbox\" NAME=\"side_effects\" VALUE=\"Musc/Skel\">Musc/Skel
  <INPUT TYPE=\"checkbox\" NAME=\"side_effects\" VALUE=\"None\">None
  <INPUT TYPE=\"checkbox\" NAME=\"side_effects\" VALUE=\"Resp\">Resp
  <INPUT TYPE=\"checkbox\" NAME=\"side_effects\" VALUE=\"Teratogenic\">Teratogenic
  <INPUT TYPE=\"checkbox\" NAME=\"side_effects\" VALUE=\"Other\">Other",
"<TEXTAREA NAME =\"pharmacokinetics\" COLS = 60 ROWS = 2 wrap=\"virtual\"></TEXTAREA>",
"    <INPUT TYPE=\"checkbox\" NAME=\"routes\" VALUE=\"inhalation\">inhalation
    <INPUT TYPE=\"checkbox\" NAME=\"routes\" VALUE=\"intramuscular\">intramuscular
    <INPUT TYPE=\"checkbox\" NAME=\"routes\" VALUE=\"intrathecal\">intrathecal
    <INPUT TYPE=\"checkbox\" NAME=\"routes\" VALUE=\"intravenous\">intravenous
    <INPUT TYPE=\"checkbox\" NAME=\"routes\" VALUE=\"oral\">oral
    <INPUT TYPE=\"checkbox\" NAME=\"routes\" VALUE=\"subcutaneous\">subcutaneous
    <INPUT TYPE=\"checkbox\" NAME=\"routes\" VALUE=\"topical\">topical",
" <TEXTAREA NAME = \"similar\" COLS = 60 ROWS = 2 wrap=\"virtual\"></TEXTAREA>",
"<TEXTAREA NAME = \"remarks\" COLS = 60 ROWS = 4 wrap=\"virtual\"></TEXTAREA>",
"<INPUT TYPE = \"text\" NAME = \"email\" SIZE = \"40\" MAXSIZE = \"60\"></TD>");

#Fields to be added by adders
@db_add_fields = ("Generic Name", 
                  "Trade Name",
                  "Drug Class",
                  "Indications", 
                  "Pharmacodynamics", 
                  "Side Effects", 
                  "Pharmacokinetics", 
                  "Administration Routes", 
                  "Similar Drugs",
                  "Remarks",
	          "Email");

#What is viewed by viewers, headers
@db_display_fields = ("Generic Name", 
                      "Trade Name",
                      "Drug Class",
                      "Indications", 
                      "Pharmacodynamics", 
                      "Side Effects", 
                      "Pharmacokinetics", 
                      "Administration Routes", 
                      "Similar Drugs",
                      "Remarks",
		      "Email");

#What is viewed by viewers, body
@db_index_for_display = ($db{"gen_name"},
                         $db{"trade_name"},
                         $db{"drug_class"},
                         $db{"indications"},
                         $db{"pharmacodynamics"},
                         $db{"side_effects"},
                         $db{"pharmacokinetics"},
                         $db{"routes"},
                         $db{"similar"},
                         $db{"remarks"},
                         $db{"email"});

#possible searches of data
@db_query_criteria = ("keywords|0,1,2,3,4,5,6,7,9|=|string",
		      "gen_name|0|=|string",
                      "trade_name|1|=|string",
                      "drug_class|2|=|string", 
                      "indications|3|=|string",
                      "pharmacodynamics|4|=|string",
                      "side_effects|5|=|string",
                      "pharmacokinetics|6|=|string",
                      "pharmacokinetics|7|=|string",
                      "routes|8|=|string",
		      "similar|10|=|string",
		      "remarks|11|=|string");

#########################################################################
#                       Authentication Variables                        #
#########################################################################

$should_i_authenticate = "no";
$auth_lib = "./Library";
$auth_server =                  "off";
$auth_cgi =                     "on";
$auth_user_file =               "./Users/drug.users";
$auth_alt_user_file =           "";
$auth_default_group =           "user";
$auth_add_register =            "on";
$auth_allow_register =          "on";
$auth_email_register =          "off";
$auth_admin_from_address =      "doyle\@cs.umn.edu";
$auth_admin_email_address =     "doyle\@cs.umn.edu";
$auth_session_length = 1;
$auth_session_dir = "./Session_files";
$auth_register_message = "Thanks, you may now logon with your new username
        and password.";
$auth_allow_search =            "off";
$auth_generate_password =       "off";
$auth_check_duplicates =        "on"; 
$auth_password_message =
        "Thanks for applying to our site, your password is";
@auth_extra_fields = ("auth_first_name",
                      "auth_last_name",
                      "auth_email");
@auth_extra_desc = ("First Name",
                    "Last Name",
                    "Email");

#################################################################      
#                  Miscellaneous Variables	                #
#################################################################      

$data_file_path = "./Data_files/drug.data";
$max_rows_returned = "50";
$current_century = "20";
$this_script_url = "db_manager.cgi";
$location_of_counter_file = "./Data_files/drug.counter";
$location_of_log_file = "./Data_files/drug.log";
$location_of_lock_file = "./Data_files/drug.lock";

##### Specifically for ISAP #####
$MOD_DATE='10/02/97';             # Date last modified
$HOME = 'index.cgi';                      #
$SCRIPT_AUTHOR='Dave Doyle';              #
$AUTHOR_EMAIL='doyle@cs.umn.edu  ';       #
$QUESTIONS_NAME='Len Lichtblau';          # Contact person
$QUESTIONS_ADDR='len@phcl.umn.edu';       #
 
#################################################################      
#                     Add to Log Subroutine                     #
#################################################################      

sub add_to_log
{
    local ($drug_to_log) = @_;
    @time = localtime(time);
    $mon = $time[4]+1;
    $time = "$time[2]:$time[1]-$mon/$time[3]/$time[5]";
    ($user, $access_string, $random) = split(/:/, $form_data{'session_key'});
    open (LOG, ">>admin/drug_log") || die "$0: can\'t open drug_log: $!\n";
    print LOG "$drug_to_log $access_string $time\n";
    close(LOG);
}

#################################################################
#                  Generic Header Subroutine                    #
#################################################################
 
sub generic_header
  {
  local ($title) = @_;
  print qq~
  <HTML>
  <HEAD>
  <TITLE>$title</TITLE>
  </HEAD>
  <BODY BGCOLOR = "#FFFFFF" TEXT = "#000000">~;
  }

#################################################################
#                  Generic Form Header Subroutine               #  
#################################################################

sub generic_form_header
  {
  print qq~
  <FORM METHOD = "post" ACTION = "db_manager.cgi">
  <INPUT TYPE = "hidden" NAME = "setup_file"  
         VALUE = "$form_data{'setup_file'}">  
  <INPUT TYPE = "hidden" NAME = "session_file"
         VALUE = "$session_file">
  <INPUT TYPE = "hidden" NAME = "session_key"
      VALUE = "$form_data{'session_key'}"> ~;

  foreach $multi_field (@multi_fields)
  {
      print qq~
   <INPUT TYPE = "hidden" NAME = "multi_field"
      VALUE = "$multi_field"> ~;
  }

  foreach $key (keys(%db))
  {
      if ($form_data{$key} ne "")
      {	
          print qq~
	      <INPUT TYPE = "hidden" NAME = "$key"
		  VALUE = "$form_data{$key}">~;
      }
  }
  if ($form_data{keywords} ne "")
  {
      print qq~
	  <INPUT TYPE = "hidden" NAME = "keywords"
	   VALUE = "$form_data{keywords}">~;
  }

  }

#################################################################
#                  Generic Form Footer Subroutine               #
#################################################################
        
sub generic_form_footer
  {
  print qq~
  </FORM>

  <P><IMG SRC="Icons/line.jpg" Alt="--------" WIDTH=100%>
  <TABLE>
  <TR><TD><A HREF="$HOME?session_key=$session_key">
  <IMG WIDTH=75 HEIGHT=50 SRC="ISAP2.gif"></A></TD>
  <TD><B>Script Author: </B>
  <A HREF="mailto:$AUTHOR_EMAIL">$SCRIPT_AUTHOR</A><BR>
  <B>For Questions or Comments:</B>
  <A HREF="mailto:$QUESTIONS_ADDR">$QUESTIONS_NAME</A><BR>
  <B>Script Last Updated: </B>$MOD_DATE<BR>
  </TD></TR>
  </TABLE>

  </BODY>
  </HTML>~;
  }

#################################################################
#                  Display Frontpage Subroutine                 #
#################################################################

sub display_frontpage
  {
  print qq~

  <CENTER>
  Please choose a database management function from the buttons below.
  <P>
  <INPUT TYPE = "submit" NAME = "add_item_button"
	 VALUE = "Add an Item">
  <INPUT TYPE = "submit" NAME = "modify_item_button"
         VALUE = "Modify an Item">
  <INPUT TYPE = "submit" NAME = "delete_item_button"
         VALUE = "Delete an Item">
  <INPUT TYPE = "submit" NAME = "view_database_button"
         VALUE = "View the Database">
  </CENTER>~;
  }

#################################################################
#               Add Subroutine header and footer                #
#################################################################

sub add_form_header
  {
  print qq~
  <CENTER>
  <H2>Add an Entry to the Database</H2>
  </CENTER>~;
  }

sub add_form_footer
  {
  print qq~
  <P>
  <CENTER>
  <INPUT TYPE = "submit" NAME = "submit_addition"
	 VALUE = "Submit this Entry">
  </CENTER>~;

  }

#################################################################
#                  Add Item Form Subroutine                     #
#################################################################

sub add_modify_data_entry_form
  {
  print qq~
  <CENTER>
  <TABLE BORDER = "1">~;

      for ($i=0; $i<$#db_user_add_field_order; $i++)
      {
	  print "<TR>";
	  print "<TH ALIGN = \"left\">$db_add_fields[$i]</TH>";
	  print "<TD>$db_user_add_field_order[$i]</TD>";
	  print "</TR>";   
      }
  print qq~
  </CENTER>
  </TABLE>~;
  }

#################################################################
#        search_and_display_for_modification Subroutine         #
#################################################################


sub search_and_display_for_modification
  {
  &generic_header("Modify Data");
  &generic_form_header;
  &search_and_display_db;
  }

#################################################################
#                  Modify Search Form Subroutine               #
#################################################################

sub modify_search_form
  {
  &generic_header("Search for an Item to Modify");
  &generic_form_header;

  print qq~
  <H2>
  <CENTER>Search the Database for Item to Modify</CENTER>
  </H2>~;

  &display_generic_search_form;

  print qq~
  <P>
  <CENTER>  
  <INPUT TYPE = "submit" NAME = "search_and_display_for_modification_button"
         VALUE = "Search for Item to Modify">
  </CENTER>~;

  &generic_form_footer;
  }

#################################################################
#          search_and_display_for_deletion Subroutine           #
#################################################################

sub search_and_display_for_deletion
  {
  &generic_header("Delete Data");
  &generic_form_header;
  &search_and_display_db;
  }

#################################################################
#                  Delete Search Form Subroutine                #
#################################################################

sub delete_search_form
  {          
  &generic_header("Search for an Item to Delete");
  &generic_form_header;

  print qq~
  <H2>
  <CENTER>Search the Database for Item to Delete</CENTER>
  </H2>~;

  &display_generic_search_form;

  print qq~
  <P>
  <CENTER>  
  <INPUT TYPE = "submit" NAME = "search_and_display_for_deletion_button"   
         VALUE = "Search for Item to Delete">     
  </CENTER>~;

  &generic_form_footer;
  }

#################################################################
#                 View Database Form Subroutine                 # 
#################################################################

sub view_database_form
  {          
  &generic_header("Search the Database");
  &generic_form_header;

  print qq~
  <H2>
  <CENTER>Search the Database</CENTER>
  </H2>~;

  &display_generic_search_form;

  print qq~
  <P>
  <CENTER>  
  <INPUT TYPE = "submit" NAME = "search_and_display_db_button"   
         VALUE = "Search Database for Matching Items">     
  </CENTER>~;

  &generic_form_footer;
  }

#################################################################
#             Display Generic Search Form Subroutine            #
#################################################################

sub display_generic_search_form
  {
  print qq~
  <TABLE BORDER = "1">

  <TR>
  <TD COLSPAN = "2"><P><B><CENTER>Keyword Searching</B></CENTER>
  <BLOCKQUOTE>In the following text fields, you may
  search the database according to keywords.  You can also use the exact
  match and case sensitive boxes to modify your search</BLOCKQUOTE></TD>
  </TR> 
  
  <TR>
  <TH>Keywords</TH>
  <TD><INPUT TYPE = "text" SIZE = "40" MAXLENGTH = "40" NAME = "keywords"></TD>
  </TR>
  </TABLE>
  <P> 

  <TABLE BORDER = "1"> 
  <TR>
  <TD COLSPAN = "2"><P><B><CENTER>More Specific Searching</B></CENTER>
  <BLOCKQUOTE>In the following fields, you can enter the word or words that would
 help find information about specific drugs.
</BLOCKQUOTE></TD>
  </TR>
  
  <TR><TH>Drug Name(s)</TH>
  <TD align=center><INPUT TYPE = "text" SIZE = "20" MAXLENGTH = "30"
             NAME = "gen_name">
  </TR>

  <TR><TH>Similar Drug(s)</TH>
  <TD align=center><INPUT TYPE = "text" SIZE = "20" MAXLENGTH = "30"
             NAME = "similar">
  </TR>

  </TABLE>

  <P> 
  
  <TABLE BORDER = "1">
  <TR>
  <TH>Sort by which field</TH>
  <TD><SELECT NAME = "sort_by">
  <OPTION VALUE = "0">Drug Name
  <OPTION VALUE = "1">Generic Name
  <OPTION Selected VALUE = "2">Drug Class
  </SELECT></TD>
  </TR>
  </TABLE>~;
  }

#################################################################      
#           search_and_display_db_for_view Subroutine           #  
#################################################################  

sub search_and_display_db_for_view
  {
  &generic_header("Records that Fit the Criteria");
  &generic_form_header;
  &search_and_display_db;
  }

#################################################################      
#                 search_results_single Subroutine              #  
#################################################################  

sub search_results_single
  {

		# Notice that in this subroutine we have access to the
		# $total_row_count hits variable if we want to display it.

      if ($form_data{'search_and_display_for_deletion_button'} ne "")
      {
	  print "<B>Item to Delete</B>\n";
      }

      elsif ($form_data{'search_and_display_for_modification_button'} ne "")
      {
	  print "<B>Item to Modify</B>\n";
      }
      else
      {
	  print "<font color=blue size=+2>Expanded Drug Information</font><P>\n";
      }
      print "<TABLE BORDER = 1>";


		# Basically, we will display a simple HTML table to show
		# all of the rows which satisfied the search criteria
		# entered by the user.
		#
		# The idea is this.  We will go through the @database_rows
		# (which was given to us by db-lib.pl and contains all of
		# the hits) one element at a time and convert the pipe
		# delimited database row into an HTML row.

      foreach $row (@database_rows)
      {

	  @fields = split (/\|/, $row);

		# Of course, we will only actually display fields which we
		# have defined as displayable in @db_index_for_display and
		# we will be careful to convert all pipe sybmbols and new
		# lines from our db representation values into their
		# original forms.
	  if ($form_data{'search_and_display_for_modification_button'} ne "")
	  {
	      print qq~
		  <INPUT TYPE = "hidden" NAME = "item_to_modify"
		      VALUE = "$fields[$index_of_db_id_number]">~;
	  }

	  if ($form_data{'search_and_display_for_deletion_button'} ne "")
	  {
	      print qq~
		  <INPUT TYPE = "hidden" NAME = "item_to_delete"
		      VALUE = "$fields[$index_of_db_id_number]">~;
	  }

	  foreach $index (@db_index_for_display)
	  {
	      $fields[$index] =~ s/~p~/\|/g;
	      $fields[$index] =~ s/~nl~/<br>\n/g;

		# Also, we will check to see if the current field being
		# displayed happens to be an email field. If so, we will
		# make it a clickable mailto link.
		#
		# Notice that you would use the exact same method for
		# making a clickable URL.

	      if ($form_data{'search_and_display_for_modification_button'} ne "")
	      {
		  print "<tr><th rowspan=2>@db_display_fields[$index]</th>";

	      }
	      else
	      {
	      print "<tr><th>@db_display_fields[$index]</th>";
	  }
	      if ($index == $index_for_email)
	      {
		  print qq~
		  <TD><A HREF="mailto:$fields[$index]">$fields[$index]</A><font color=white>.</font></TD></tr>\n ~;
	      }
	      else
	      {
		  print qq~
		      <TD>$fields[$index]<font color=white>.</font></TD></TR>\n ~;
	      }

	      if ($form_data{'search_and_display_for_modification_button'} ne "")
	      {
		  print "<tr><td>$db_user_add_field_order[$index]</td></tr>";
	      }
	  } # End of foreach $index (@db_index_for_display)
      }        
      print "</TABLE>";
  
  }

#################################################################
#          search_results_single_footer Subroutine              #
#################################################################
                
sub search_results_single_footer
  {
  print qq~     
  </TABLE>
  <CENTER>~;
      
                # In this subroutine we can include just a little bit of
                # logic in order to  create a "See more hits button"
                # 
                # The besic logic is that they either 1) still have more
                # than the $max_rows_returned hits to see, 2) have only 1
                # more hit to see, 3) have less than $max_rows_returned
                # but more than 1 hit to see, or 4) have no hits left to
                # see.
                #
                # These cases are handled in three if tests (the 4th case,
                # in which there are no more hits to see just defaults to
                # the </BODY></HTML> tags since no submit button need be
                # created.)

  if ($form_data{'search_and_display_for_deletion_button'} ne "") 
    {
    print qq~
    <P><INPUT TYPE = "submit" NAME = "submit_deletion_button"
	   VALUE = "Submit Deletion">~;
    }         

  if ($form_data{'search_and_display_for_modification_button'} ne "")
    {
    print qq~
    <P><INPUT TYPE = "submit" NAME = "submit_modification_button"
	   VALUE = "Submit Modification">~;
    }         

  print qq~
  <INPUT TYPE = "hidden" NAME = "sort_by"
         VALUE = "$index_of_field_to_be_sorted_by">~;    
  &generic_form_footer;
  }    


#################################################################
#                 search_results_multi Subroutine               #
#################################################################
   
sub search_results_multi
  {

                # Notice that in this subroutine we have access to the
                # $total_row_count hits variable if we want to display it.

  if ($total_row_count > $max_rows_returned)
    {
    print qq~
    <b>Your search turned up $total_row_count hits, but I am designed to only
    show you $max_rows_returned at a time.  I suggest you narrow your
    search criteria a bit.</b><P>~;
    }
  
  else
    {
    print qq~
    <font color=red><b>Your search turned up $total_row_count hits.</b></font><P>~;
    }

		# We next need to display the table header.  Make sure
		# that in the case of modify and delete we add a colmun so
		# that the user can select items to be modified or
		# deleted.

  print qq~
  <TABLE BORDER = "1">
  <TR>~;
  
  if ($form_data{'search_and_display_for_deletion_button'} ne "")
  {
      print "<TH>Select Items to Delete</TH>\n";
  }
  elsif ($form_data{'search_and_display_for_modification_button'} ne "")
  {
      print "<TH>Select Item to Modify</TH>\n";
  }
  
  foreach $header (@db_display_fields)
    {
	print "<TH>$header</TH>\n";  
    }  
      

  print "</TR>";

                # Basically, we will display a simple HTML table to show
                # all of the rows which satisfied the search criteria
                # entered by the user.
                #
                # The idea is this.  We will go through the @database_rows
                # (which was given to us by db-lib.pl and contains all of
                # the hits) one element at a time and convert the pipe
                # delimited database row into an HTML row.

             
  foreach $row (@database_rows)
    {
    @fields = split (/\|/, $row);

    if ($form_data{'search_and_display_for_modification_button'} ne "")
      {
      print qq~
      <TR>
      <TD ALIGN = "center">
      <INPUT TYPE = "radio" NAME = "item_to_modify"
	     VALUE = "$fields[$index_of_db_id_number]"></TD>~;
      }

    if ($form_data{'search_and_display_for_deletion_button'} ne "")
      {
      print qq~
      <TR>
      <TD ALIGN = "center">
      <INPUT TYPE = "checkbox" NAME = "item_to_delete"
	     VALUE = "$fields[$index_of_db_id_number]"></TD>~;
      }

                # Of course, we will only actually display fields which we
                # have defined as displayable in @db_index_for_display and
                # we will be careful to convert all pipe sybmbols and new
                # lines from our db representation values into their
                # original forms.
                
    foreach $index (@db_index_for_display)
    {
	$fields[$index] =~ s/~p~/\|/g;
	$fields[$index] =~ s/~nl~/\n/g;
  
                # Also, we will check to see if the current field being
                # displayed happens to be an email field. If so, we will
                # make it a clickable mailto link.
                # 
                # Notice that you would use the exact same method for
                # making a clickable URL.
                
      if ($index == $index_for_email)
        {
        print qq~
        <TD><A HREF = "mailto:$fields[$index]">$fields[$index]</A></TD>\n~;
        }
     else
        {
	    print qq~
	    <TD>$fields[$index]<font color=white>.</font></TD>\n~;
        }
  
      } # End of foreach $index (@db_index_for_display)
    print "</TR>";
    }
  print "</TABLE>";
  }
    
#################################################################
#            search_results_multi_footer Subroutine             #
#################################################################

  sub search_results_multi_footer
  {
  print qq~     
  </TABLE>
  <CENTER>~;
      
                # In this subroutine we can include just a little bit of
                # logic in order to  create a "See more hits button"
                # 
                # The besic logic is that they either 1) still have more
                # than the $max_rows_returned hits to see, 2) have only 1
                # more hit to see, 3) have less than $max_rows_returned
                # but more than 1 hit to see, or 4) have no hits left to
                # see.
                #
                # These cases are handled in three if tests (the 4th case,
                # in which there are no more hits to see just defaults to
                # the </BODY></HTML> tags since no submit button need be
                # created.)

  if ($form_data{'search_and_display_for_deletion_button'} ne "") 
    {
    print qq~
    <P><INPUT TYPE = "submit" NAME = "submit_deletion_button"
	   VALUE = "Submit Deletions">~;
    }         

  if ($form_data{'search_and_display_for_modification_button'} ne "")
    {
    print qq~
    <P><INPUT TYPE = "submit" NAME = "search_and_display_for_modification_button"
	   VALUE = "Modify Item">~;
    }         


  &generic_form_footer;
  }
    
#################################################################
#                      Messages Subroutines                     #
#################################################################
  
sub no_hits_message
  {
  print qq~  
  <BLOCKQUOTE>
  I am sorry, but it appears that there were no records in the database
  that matched your search criteria, please try again.
  </BLOCKQUOTE>
  </BODY>
  </HTML>~;
  }

sub successful_addition_message
  {
  &generic_header("Success: Your Item has been added to the Database");
  print qq~
  <FORM METHOD = "post" ACTION = "db_manager.cgi">
  <INPUT TYPE = "hidden" NAME = "setup_file"
         VALUE = "$form_data{'setup_file'}">
  <INPUT TYPE = "hidden" NAME = "session_file"
         VALUE = "$session_file">
  <INPUT TYPE = "hidden" NAME = "session_key"
      VALUE = "$form_data{'session_key'}">
  <INPUT TYPE = "hidden" NAME = "sort_by"
         VALUE = "$index_of_field_to_be_sorted_by">
  <CENTER>
  Your Item has been successfully added!
  <P></CENTER>~;
  &display_frontpage;
  &generic_form_footer;
  }

sub successful_deletion_message
  {
  &generic_header("Success: Your Item has been Deleted from the Database");
  print qq~
  <FORM METHOD = "post" ACTION = "db_manager.cgi">
  <INPUT TYPE = "hidden" NAME = "setup_file"
         VALUE = "$form_data{'setup_file'}">
  <INPUT TYPE = "hidden" NAME = "session_file"
         VALUE = "$session_file">
  <INPUT TYPE = "hidden" NAME = "session_key"
      VALUE = "$form_data{'session_key'}">
  <INPUT TYPE = "hidden" NAME = "sort_by"
         VALUE = "$index_of_field_to_be_sorted_by">
  <CENTER>
  Your Item has been successfully deleted!
  <P></CENTER>~;
  &display_frontpage;
  &generic_form_footer;
  }

sub successful_modification_message
  {
  &generic_header("Success: Your Item has been modified in the Database");
  print qq~
  <FORM METHOD = "post" ACTION = "db_manager.cgi">
  <INPUT TYPE = "hidden" NAME = "setup_file"
         VALUE = "$form_data{'setup_file'}">
  <INPUT TYPE = "hidden" NAME = "session_file"
         VALUE = "$session_file">
  <INPUT TYPE = "hidden" NAME = "session_key"
      VALUE = "$form_data{'session_key'}">
  <INPUT TYPE = "hidden" NAME = "sort_by"
         VALUE = "$index_of_field_to_be_sorted_by">
  <CENTER>
  Your Item has been successfully modified!
  <P></CENTER>~;
  &display_frontpage;
  &generic_form_footer;
  }

sub unsuccessful_modification_message
  {
  &generic_header("Error: Your item has not been modified");
  print qq~
  I am sorry but you are only allowed to modify items added by you or
  those within your group.~;
  &generic_form_footer;
  }

sub no_item_submitted_for_modification
{
    &generic_header("Error: Your Item has not been modified");
    print qq~
    I am sorry but I was unable to modify the database because you did not
    select an item to modify.  Would you please hit the back button and make
    sure that you use the radio button or checkbox to choose an item to
    modify or delete?  Thank you.~;
    &generic_form_footer;
}