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

$db{"breed"}		=		0;
$db{"group"}   		= 		1;
$db{"club_name"}    	= 		2;
$db{"club_contact"}    	=		3;
$db{"club_address"}  	= 		4;
$db{"club_city"}     	= 		5;
$db{"club_state"}    	= 		6;
$db{"club_zip"}      	= 		7;
$db{"club_url"}     	= 		8;
$db{"club_email"}     	= 		9;
$db{"links"}           	= 		10;
$db{"image"}           	= 		11;
$db{"pronounce"}      	= 		12;
$db{"bark"}            	=    	 	13;
$db{"descrip"}     	= 		14;
$db{"pros"}            	= 		15;
$db{"cons"}            	= 		16;
$db{"health"}     	= 		17;
$db{"fun"}     		= 		18;
$db{"history"}		=		19;
$db{"modification_time"}= 		20;
$db{"who_modified"} 	=	 	21;
$db{"group_modified"}   =		22;
$db{"db_id"}		=		23;

$index_of_db_id_number = 23;
$index_of_who_modified = 21;
$index_of_group_who_modified = 22;
$index_of_modification_time = 20;
$index_of_field_to_be_sorted_by = "0";

# Information for different types of fields
# additional important fields
$index_for_email = 9;
$index_of_multi_link_field = 10;
$index_of_webpage = 8;
$index_of_image = 11;
@index_of_files = (12, 13);
@index_of_uploads = ("image", "pronounce", "bark");
$index_for_menu = 0;

@db_user_definable_field_order = ("breed", "group",
        "club_name", "club_contact", "club_address", "club_city", "club_state", "club_zip",
	"club_url", "club_email", "links", "image", "pronounce", "bark",
	"descrip", "pros", "cons", "health", "fun", "history");
 
@db_display_fields = ("Dog Breed", "Dog Group",
                      "Dog Club Name", "Contact", "Address", "City",
"State", "Zip",
                      "Webpage", "Email", "Additional Links", 
                      "Picture", "Bark (sound)", "Pronunciation (sound)", 
		      "Description", "Pros (what we like about this
breed)", "Cons(things to watch out for)", "Health & Genetics", 
		      "Fun things to do", "History & Uses");

@db_index_for_display = ($db{"breed"}, $db{"group"},
				 $db{"club_name"}, $db{"club_contact"}, $db{"club_address"},
				 $db{"club_city"}, $db{"club_state"}, $db{"club_zip"},
				 $db{"club_url"}, $db{"club_email"}, $db{"links"},
				 $db{"image"}, $db{"pronounce"}, $db{"bark"},
				 $db{"descrip"}, $db{"pros"}, $db{"cons"},
				 $db{"health"}, $db{"fun"}, $db{"history"});

@db_query_criteria = ("breed|0|=|string", "group|1|=|string",
                      "club_name|2|=|string", "club_contact|3|=|string",
                      "club_address|4|=|string", "club_city|5|=|string",
                      "club_state|6|=|string", "club_zip|7|=|string",
                      "club_url|8|=|string", "club_email|9|=|string",
                      "pronounce|14|=|string", "pros|15|=|string",
                      "cons|16|=|string", "health|17|=|string",
                      "fun|18|=|string", "history|18|=|string");

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

$should_i_authenticate = "yes";
$auth_lib = "./Library";
$auth_server =                  "off";
$auth_cgi =                     "off";
$auth_user_file =               "./Users/default.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 =      "you\@yourdomain.com";
$auth_admin_email_address =     "you\@yourdomain.com";
$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	                #
#################################################################      

$site_title = "CARE Pet Database";
$bgcolor="#ffffff";
$data_file_path = "./Data_files/pet_info.data";
$max_rows_returned = "300";
$current_century = "20";
$this_script_url = "db_manager.cgi";
$location_of_counter_file = "./Data_files/pet_info.counter";
$location_of_log_file = "./Data_files/pet_info.log";
$location_of_lock_file = "./Data_files/pet_info.lock";
$upload_dir = "./files";


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

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

sub generic_form_header
  {
  # <FORM METHOD = "post" ACTION = "db_manager.cgi"
  print qq~
  <form enctype="multipart/form-data" action="db_manager.cgi" method=post>  
  <INPUT TYPE = "hidden" NAME = "setup_file"  
         VALUE = "$form_data{'setup_file'}">  
  <INPUT TYPE = "hidden" NAME = "session_file"
         VALUE = "$session_file">~;
  }

#################################################################
#                  Generic Form Footer Subroutine               #
#################################################################
        
sub generic_form_footer
  {
  print qq~
  </FORM>
  </BODY>
  </HTML>~;
  }

#################################################################
#                  Display Frontpoage 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 = "print_db_button"
#         VALUE = "Print the Database">
  print qq~
  <INPUT TYPE = "submit" NAME = "print_menu_button"
         VALUE = "Add Information">

  <INPUT TYPE = "submit" NAME = "view_database_button"
         VALUE = "View the Database">
  </CENTER>~;
}
#################################################################      
#                   Print Database Subroutine                   #
#################################################################      

sub print_db
{  
    &generic_header("All Information");

    foreach $row (@database_rows)
    {
	print "<TABLE BORDER = \"1\">";
	
	@fields = split (/\|/, $row);
                  
    
	foreach $index (@db_index_for_display)
	{
	    $fields[$index] =~ s/~p~/\|/g;
#	    $fields[$index] =~ s/~nl~/\n/g;
	    $fields[$index] =~ s/~nl~~nl~/<p>/g;
	    $fields[$index] =~ s/~nl~/<br>/g;

	    if ($index != $index_for_email)
	    {
		print qq~
		<tr><th>@db_display_fields[$index]</th>
		<TD>$fields[$index]<font color=$bgcolor>-</font></TD></tr>\n ~;
	    }
	
	} # End of foreach $index (@db_index_for_display)
    print "</TR>";
	print "</TABLE><p>";
    }
    print "</BODY></HTML>";
}

#################################################################      
#                     Print Menu Subroutine                     #
#################################################################      

sub print_menu
{
    local ($frame) = @_;
    &generic_header("All Entries");


    print "<center><h1>Click on the Dog who's information you would like to modify</h1>";
    print "<hr width=60%>";

# get names and id's of database entries
    for ($i=0; $i<=$#database_rows;$i++)
    {
	@fields = split(/\|/,$database_rows[$i]);
	
	if ($frame =~ /y/i)
	{
	    print "<a href=\"$this_script_url?setup_file=$form_data{'setup_file'}&search_and_display_for_modification_button=single&session_file=$form_data{'session_file'}&item_to_modify=$fields[$index_of_db_id_number]\" TARGET=\"detail\">";
	}
	else
	{
	    if ($i==0) {
		print "<TABLE cellspacing=5><TR><TD>\n"; }
	    elsif ($i== ( int $#database_rows/2)) {
		print "</TD><TD>\n" }
	    
	    print "<a href=\"$this_script_url?setup_file=$form_data{'setup_file'}&search_and_display_for_modification_button=single&session_file=$form_data{'session_file'}&item_to_modify=$fields[$index_of_db_id_number]\">";
	}	
	print "<nobr>$fields[$index_for_menu]</nobr></a><br>\n";
    }
    if (($frame =~ /[^y]/i) || ($frame =~ /^$/))
    {
	print "</TD></TR></TABLE>";
    }

# add item button
    print qq~
    <FORM METHOD = "post" ACTION = "./db_manager.cgi" target="_top">
    <center>
    <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 = "submit" NAME = "add_item_button"
         VALUE = "Add a new dog">
    </center>
    </FORM>~;

    print "</center></body></html>";
}

sub bad_file
{
    print "can't find file $data_file_path";
}

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



sub add_modify_data_entry_form
  {
  print qq~
 <TABLE BORDER=2>
<TR>
<TD>Dog breed</TD><TD width=100%><INPUT type="text" size="20" name="breed"></TD>
</TR><TR>
<TD>Dog class</TD><TD><SELECT name="group">
				<OPTION>Herding</OPTION>
				<OPTION>Hound</OPTION>
				<OPTION>Misc</OPTION>
				<OPTION>Non-sporting</OPTION>
				<OPTION>Sporting</OPTION>
				<OPTION>Terrier</OPTION>
				<OPTION>Toy</OPTION>
				<OPTION>Working</OPTION>
			        <OPTION>Unknown</OPTION>
                     </SELECT></TD>
</TR><TR>
<TD>Image</TD><TD>
<INPUT type="file" size="30" name="image"><br>
file extension <input type="text" size=3 maxsize=3 name="image_ext">
</TD></TR>

<TR><TD>Pronunciation (sound file)
</TD><TD>
<INPUT type="file" size="30" name="pronounce"><br>
file extension <input type="text" size=3 maxsize=3 name="pronounce_ext">
</TD></TR>

<TR>
<TD>Bark (sound file)</TD><TD> 
<INPUT type="file" size="30" name="bark"><br>
file extension <input type="text" size=3 maxsize=3 name="bark_ext">
</TD></TR><TR>
<TD>Dog club</TD><TD><INPUT type="text" size="20" name="club_name"></TD>
</TR><TR>
<TD>Contact</TD><TD><INPUT type="text" size="20" name="club_contact"></TD>
</TR><TR>
<TD>Address</TD><TD><INPUT type="text" size="20" name="club_address"></TD>
</TR><TR>
<TD>City</TD><TD><INPUT type="text" size="20" name="club_city"></TD>
</TR><TR>
<TD>State</TD><TD><INPUT type="text" size="2" name="club_state"></TD>
</TR><TR>
<TD>Zip</TD><TD><INPUT type="text" size="7" name="club_zip"></TD>
</TR><TR>
<TD>club web address</TD><TD><INPUT type="text" size="40" name="club_url"></TD>
</TR><TR>
<TD>Club email</TD><TD><INPUT type="text" size="40" name="club_email"></TD>
</TR><TR>
<TD>Additional links</TD><TD><TEXTAREA name="links" rows="7" cols="70" wrap=physical>
</TEXTAREA></TD>
</TR><TR>
<TD>Descriptions</TD><TD><TEXTAREA name="descrip" rows="7" cols="70" wrap=physical>
</TEXTAREA></TD>
</TR><TR>
<TD>Pros<br><font size=-1>(Things we like about
this breed)</font></TD><TD><TEXTAREA name="pros" rows="7"
cols="70" wrap=physical></TEXTAREA></TD> </TR><TR>
<TD>Cons<br><font size=-1>(things to be aware of about
this breed)</font></TD><TD><TEXTAREA name="cons" rows="7"
cols="70" wrap=physical></TEXTAREA></TD>
</TR><TR>
<TD>Health (& Genetic) Considerations</TD><TD><TEXTAREA name="health"
rows="7" cols="70" wrap=physical></TEXTAREA></TD>
</TR><TR>
<TD>Fun Things to Do</TD><TD><TEXTAREA name="fun" rows="7"
cols="70" wrap=physical></TEXTAREA></TD>
</TR><TR>
<TD>Breed History</TD><TD><TEXTAREA name="history"
rows="7" cols="70" wrap=physical></TEXTAREA></TD>
</TR>

</TABLE>
~;
  }

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

  }


#################################################################
#                  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;
  }

#################################################################
#                  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>Breed</TH>
  <TD><INPUT TYPE = "text" SIZE = "40" MAXLENGTH = "40"
             NAME = "breed"></TD>
  </TR>
         
  <TR>
  <TH>Dog Group</TH>
<TD><SELECT name="group">
	<OPTION></OPTION>
      <OPTION>Herding</OPTION>
      <OPTION>Hound</OPTION>
      <OPTION>Misc</OPTION>
      <OPTION>Non-sporting</OPTION>
      <OPTION>Sporting</OPTION>
      <OPTION>Terrier</OPTION>
      <OPTION>Toy</OPTION>
      <OPTION>Working</OPTION>
      <OPTION>Unknown</OPTION>
  </SELECT></TD>
</TR>
  </TABLE>~;
  }

#################################################################
#              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>$site_title 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.
      }

	  print qq~


 <TABLE BORDER=2>
<TR>
<TH>@db_display_fields[0]</TH>
<TD width=100%>$fields[0]</TD></TR><TR>

<TH>@db_display_fields[1]</TH>
<TD width=100%>$fields[1]</TD></TR><TR>

<TH rowspan=2>@db_display_fields[11]</TH>
<TD width=100%><img src="files/$fields[11]"></TD></TR><TR>
<TD><INPUT type="file" size="30" name="image"><br>
file extension <input type="text" size=3 maxsize=3 name="image_ext">
</TD></TR>

<TH rowspan=2>@db_display_fields[12]</TH>
<TD width=100%><a href="files/$fields[12]">$fields[12]</a></TD></TR><TR>
<TD><INPUT type="file" size="30" name="pronounce"><br>
file extension <input type="text" size=3 maxsize=3 name="pronounce_ext">
</TD></TR>

<TH rowspan=2>@db_display_fields[13]</TH>
<TD width=100%><a href="files/$fields[13]">$fields[13]</a></TD></TR><TR>
<TD><INPUT type="file" size="30" name="bark"><br>
file extension <input type="text" size=3 maxsize=3 name="bark_ext">
</TD></TR><TR>

<TH rowspan=2>@db_display_fields[2]</TH>
<TD width=100%>$fields[2]</TD></TR><TR>
<TD><INPUT type="text" size="20" name="club_name"></TD>
</TR><TR>

<TH rowspan=2>@db_display_fields[3]</TH>
<TD width=100%>$fields[3]</TD></TR><TR>
<TD><INPUT type="text" size="20" name="club_contact"></TD>
</TR><TR>

<TH rowspan=2>@db_display_fields[4]</TH>
<TD width=100%>$fields[4]</TD></TR><TR>
<TD><INPUT type="text" size="20" name="club_address"></TD>
</TR><TR>

<TH rowspan=2>@db_display_fields[5]</TH>
<TD width=100%>$fields[5]</TD></TR><TR>
<TD><INPUT type="text" size="20" name="club_city"></TD>
</TR><TR>

<TH rowspan=2>@db_display_fields[6]</TH>
<TD width=100%>$fields[6]</TD></TR><TR>
<TD><INPUT type="text" size="2" name="club_state"></TD>
</TR><TR>

<TH rowspan=2>@db_display_fields[7]</TH>
<TD width=100%>$fields[7]</TD></TR><TR>
<TD><INPUT type="text" size="7" name="club_zip"></TD>
</TR><TR>

<TH rowspan=2>@db_display_fields[8]</TH>
<TD width=100%><a href="$fields[8]">$fields[8]</a></TD></TR><TR>
<TD><INPUT type="text" size="40" name="club_url"></TD>
</TR><TR>

<TH rowspan=2>@db_display_fields[9]</TH>
<TD width=100%><a href="mailto:$fields[9]">$fields[9]</a></TD></TR><TR>
<TD><INPUT type="text" size="40" name="club_email"></TD>
</TR><TR>

<TH rowspan=2>@db_display_fields[10]</TH>
<TD width=100%>$fields[10]</TD></TR><TR>
<TD><TEXTAREA name="links" rows="7" cols="70" wrap=physical>
</TEXTAREA></TD>
</TR><TR>

<TH rowspan=2>@db_display_fields[14]</TH>
<TD width=100%>$fields[14]</TD></TR><TR>
<TD><TEXTAREA name="descrip" rows="7" cols="70" wrap=physical>
</TEXTAREA></TD>
</TR><TR>

<TH rowspan=2>@db_display_fields[15]</TH>
<TD width=100%>$fields[15]</TD></TR><TR>
<TD><TEXTAREA name="pros" rows="7"
cols="70" wrap=physical></TEXTAREA></TD> 
</TR><TR>

<TH rowspan=2>@db_display_fields[16]</TH>
<TD width=100%>$fields[16]</TD></TR><TR>
<TD><TEXTAREA name="cons" rows="7"
cols="70" wrap=physical></TEXTAREA></TD>
</TR><TR>

<TH rowspan=2>@db_display_fields[17]</TH>
<TD width=100%>$fields[17]</TD></TR><TR>
<TD><TEXTAREA name="health"
rows="7" cols="70" wrap=physical></TEXTAREA></TD>
</TR><TR>

<TH rowspan=2>@db_display_fields[18]</TH>
<TD width=100%>$fields[18]</TD></TR><TR>
<TD><TEXTAREA name="fun" rows="7"
cols="70" wrap=physical></TEXTAREA></TD>
</TR><TR>

<TH rowspan=2>@db_display_fields[19]</TH>
<TD width=100%>$fields[19]</TD></TR><TR>
<TD><TEXTAREA name="history"
rows="7" cols="70" wrap=physical></TEXTAREA></TD>
</TR>

</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_body Subroutine                #
#################################################################
   
sub search_results_body
  {

                # 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~
    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.<P>~;
    }
  
  else
    {
    print qq~
    Your search turned up $total_row_count hits.<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<BR></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 height=20>
      <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)
        {
	  if ($fields[$index] ne "") {
		print qq~
      <TD><A HREF = "mailto:$fields[$index]">$fields[$index]</A></TD>\n
	  ~;
	    }
	  else {
		print qq~
		<TD><font color="$bgcolor">.</font></TD>
		~;
	     }
        }
	elsif ($index == $index_of_webpage)
	{
	  if ($fields[$index] ne "") {
		print qq~
		<TD><A HREF=\"$fields[$index]\">$fields[$index]</a></TD>
		~;
	    }
	  else {
		print qq~
		<TD><font color="$bgcolor">.</font></TD>
		~;
	     }
	}
	elsif ($index == $index_of_image)
	{
	  if ($fields[$index] ne "") {
		print qq~
		<TD><IMG SRC=\"$upload_dir/$fields[$index]\"></TD>
	        ~;
	    }
	  else {
		print qq~
		<TD><font color="$bgcolor">.</font></TD>
		 ~;
	     }
	}
#	elsif ($index == is in @index_of_files
	elsif (($index == $index_of_files[0]) || ($index == $index_of_files[1]))
	{
	  if ($fields[$index] ne "") {
		print qq~
		<TD><a href=\"$upload_dir/$fields[$index]\">
		$upload_dir/$fields[$index]</a></TD>
		~;
	    }
	  else {
		print qq~
		<TD><font color="$bgcolor">.</font></TD>
		~;
	     }
	}
	elsif ($index == $index_of_multi_link_field)
	{
	print "<TD>";	
		@links = split (/,/, $fields[$index]);
		foreach $link (@links)
		{
			print "<a href=\"$link\">$link</a> ";
		}
		print "</TD>";
	}
      else
      {
	  if ($fields[$index] ne "") {
		print qq~
      <TD height=200>$fields[$index]</TD>
      ~;
	    }
	  else {
		print qq~
		<TD><font color="$bgcolor">.</font></TD>
		~;
	     }
      }
  
  } # End of foreach $index (@db_index_for_display)
    print "</TR>";
}
  print "</TABLE>";
}
    
#################################################################
#                 search_results_footer Subroutine              #
#################################################################
                
sub search_results_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(s)">~;
    }         

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

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

#################################################################
#                  search_and_display Subroutines               #
#################################################################

sub search_and_display_db_for_view
  {
  &generic_header("View");
  &generic_form_header;
  &search_and_display_db;
  }

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

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

#################################################################
#                          Message 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 = "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 = "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 = "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("Success: Your Item has been modified in the Database");
  print qq~
  I am sorry but you are only allowed to modify items added by you or
  those within your group.
  </BODY></HTML>~;
  }

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.
  </BODY>
  </HTML>~;
}