###############################################################################
#         A U T O M A T I C   V I E W / M O D I F Y   S E A R C H             #
# If you have set up your database with either $auth_modify_own=1 or          #
# $auth_view_own=1 (or both), this mod will allow users to view or modify     #
# their records without having to first go to the search page. It does allow  #
# anyone with admin permission to search for records to view or modify,       #
# however.                                                                    #
###############################################################################

###############################################################################
#                              script:  html.pl                               #
#                              sub html_footer                                #
#                                                                             #
#                             replace subroutine                              #
#   modified by shann123 8 March 2004 to work with DBMan SQL version 1			#
###############################################################################

sub html_footer {
# --------------------------------------------------------
# Print the menu. 
#
# We only print options that the user have permissions for.
#
$key = &get_key;

    print qq!<P align=center><$font>!;
    print qq!| <A HREF="$db_script_link_url">Home</A> !;
    print qq!| <A HREF="$db_script_link_url&add_form=1">Add</A> !                    if ($per_add);
  if (!$per_admin && $auth_view_own) {
    print qq!| <A HREF="$db_script_link_url&view_records=1&$db_key=$key">View</A> !      if ($per_view);
  }
  else {
    print qq!| <A HREF="$db_script_link_url&view_search=1">View</A> !                if ($per_view);
    print qq!| <A HREF="$db_script_link_url&view_records=1&$db_key=*">List All</A> ! if ($per_view);
  }
  if (!$per_admin && $auth_modify_own) {
    print qq!| <A HREF="$db_script_link_url&delete_form=1&$db_key=$key">Delete</A> !     if ($per_del);
    print qq!| <A HREF="$db_script_link_url&modify_form=1&$db_key=$key">Modify</A> !    if ($per_mod);
  }
  else {
    print qq!| <A HREF="$db_script_link_url&delete_search=1">Delete</A> !            if ($per_del);
    print qq!| <A HREF="$db_script_link_url&modify_search=1">Modify</A> !            if ($per_mod);
  }
    print qq!| <A HREF="$db_script_link_url&admin_display=1">Admin</A> !             if ($per_admin);
    print qq!| <A HREF="$db_script_link_url&logoff=1">Log Off</A> !;
    print qq!|</font></p>!;

# Print the Footer.
	print qq!	
		<table border=0 width=100%>
			<tr><td align=left><$font>Copyright 1998 <A HREF="http://www.gossamer-threads.com">Gossamer Threads Inc.</A></font></td>
				<td align=right><a href="http://www.gossamer-threads.com/scripts/dbman/"><img src="http://www.gossamer-threads.com/images/powered.gif" border=0 width=100 height=31 alt="Database Powered by Gossamer Threads Inc."></a></td></tr>
		</table>
	!;

}	


###############################################################################
#                              script:  db.cgi                                #
#                              sub get_key                                    #
#                                                                             #
#                             New subroutine                                  #
#   modified by shann123 8 March 2004 to work with DBMan SQL version 1			#
###############################################################################

sub get_key { 
# -------------------------------------------------------- 
# Pulls the key from the Items table. Can be used for pulling other info from the Items table.


my ($message, $userid, $pw, $view, $add, $del, $mod, $admin, $email, $password, $found, $output, $pass, $query); 

my $username_q = $DBH->quote($db_userid); 

$query = qq! 
SELECT * FROM $db_table 
WHERE userid = $username_q 
!; 
my $sth = $DBH->prepare($query); 
$sth->execute(); 
if ($sth->rows) { 
while (@data = $sth->fetchrow_array) { 
$key = $data[0]; 
} 
} 

$sth->finish; 
return $key; 
}