Location: PHPKode > projects > Generic Genetic Studies Database > ggsd-2.19/cgi-bin/delete_pedigree_groups.php
<?php

#Copyright 2008 Aaron Day-Williams <hide@address.com>
#
#This file is part of Generic Genetic Studies Database (GGSD).
#
#GGSD is free software: you can redistribute it and/or modify
#it under the terms of the GNU General Public License as published by
#the Free Software Foundation, either version 3 of the License, or
#(at your option) any later version.
#
#GGSD is distributed in the hope that it will be useful,
#but WITHOUT ANY WARRANTY; without even the implied warranty of
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#GNU General Public License for more details.
#
#You should have received a copy of the GNU General Public License
#along with GGSD.  If not, see <http://www.gnu.org/licenses/>.


header('Content-type: text/html');
session_cache_limiter('private');
session_start();
require 'sql_lib.inc';
require 'html_lib.inc';
require 'file_system_lib.inc';

#NAME	delete_pedigree_groups.php

#TYPE	PHP

#USES	sql_lib.inc (authenticate deletePedigreeGroup deletePedigreePedigreeGroupLink)

#PURPOSE	To allow the user to dynamically delete pedigree groups from the database.

#USAGE	delete_pedigree_groups.php

#PARAMETERS
#	pedigree group id	ped_group_id	int	optional

#RETURNS
#	success message					string	if success
#	error message					string	if error

#DATASTRUCTURES No special datastructures

#FUNCTIONAL DESCRIPTION The script will authorized the user, then give a select list of
#		       pedigree groups for the user to select which status to delete.

#ASSUMPTIONS

#LIMITATIONS

#COMMENTS

#PRELIMINARY DESIGN
#	    1     Get Args
#	    2	  Authorize User
#	    3	  Select How to Delete
#	    4	  If don't want list, give select list
#           5	  If have id, delete
#           6     If want list, give check list
#           7     If mulitple pages of ids, give next
#           8     If have ids, delete
#           9     Select whether file on server or user's computer
#           10    Upload File
#           11    Parse File and Delete

echo "<html>\n";
echo "<head>\n";

echo "  <title>Delete Pedigree Groups</title>\n";
echo "</head>\n";
if (isset($_POST['end_session'])){echo "  <META HTTP-EQUIV=Refresh CONTENT=\"$logout_refresh_time;URL=../right.html\">\n";}
else                             {echo "  <META HTTP-EQUIV=Refresh CONTENT=\"$normal_refresh_time; URL=$_SERVER[SCRIPT_NAME]\">\n";}
echo "<body bgcolor=\"white\">\n";
echo "<center><h3>Delete Pedigree Group</h3></center>\n";
echo "<hr>\n";
printHomeNavBar();
echo"<br>\n";


#1     Get Args
$access_type_required     = 'administrative';
$want_list                = $_POST['want_list'];
$upload_file              = $_POST['upload_file'];
$file_on_server           = $_POST['file_name'];
$ped_group_id             = $_POST['pedigree_group_id'];
$ped_group_multiple_pages = $_POST['indiv_group_multiple_pages'];
$function_to_call         = $_POST['function_to_call'];
$table_name               = $_POST['table_name'];
$field_list               = $_POST['field_list'];
$term                     = $_POST['term'];
$mode                     = $_POST['mode'];
$order_by                 = $_POST['order_by'];
$last_record_retrieved    = $_POST['last_record_retrieved'];

$ret_val = connect();
if ($ret_val != '1')
  {
    $date = date('Y-m-d H:i:s');
    echo "Error #1: $date<br>\n";
    echo "Error in call to connect from delete_pedigree_groups.php<br>\n";
    echo "$ret_val<br><br>\n";
    echo "Please email the above error using the Comments/Help/Support link \n";
    echo "in the left navigation bar.<br>\n";
    echo "</body></html>\n";
    exit;
  }

#2     Authorize User
if (isset($_POST['end_session']))#if want to end session
  {
    #if (key_exists('files_on_server',$_SESSION))
    #  {
    #    $files_to_delete_array = $_SESSION['files_on_server'];
    #    $ret_val = deleteFiles($files_to_delete_array);
    #    if ($ret_val != '1')
    #      {
    #        $date = date('Y-m-d H:i:s');
    #        echo "Error #2: $date<br>\n";
    #        echo "Error in call to deleteFiles from delete_pedigree_groups.php<br>\n";
    #        echo "$ret_val<br><br>\n";
    #        echo "Please email the above error using Comments/Help/Support link \n";
#	    echo "in the left navigation bar.<br>\n";
#	    echo "</body></html>\n";
#	    session_unset();
#	    session_destroy();
#	    $ret_val = disconnect();
#	    exit;
#	  }#end error in call to deleteFiles
#      }#end if files that need to be deleted

    if (is_dir("../data/download_data/$_SESSION[user_name]"))
      {
        $ret_val = deleteExpiredFiles($_SESSION['user_name']);
        if ($ret_val != '1')
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #3: $date<br>\n";
            echo "Error in call to deleteExpiredFiles from delete_pedigree_groups.php<br>\n";
            echo "$ret_val<br><br>\n";
            echo "Please email the above error using Comments/Help/Support link \n";
	    echo "in the left navigation bar.<br>\n";
	    echo "</body></html>\n";
	    session_unset();
	    session_destroy();
	    $ret_val = disconnect();
	    exit;
	  }#end error in call to deleteExpiredFiles
      }#end if user has own directory in download_data directory
    session_unset();
    session_destroy();
    echo "You have successfully logged out of the system.<br>\n";
    #echo "To log back in click on any of the links on the left navigation bar.<br>\n";
    $ret_val = disconnect();
    exit;
  }#end if want to end session
else#don't want to end session
  {
    if ((!session_is_registered('user_name')) and (!session_is_registered('user_passwd')))
      {
	if ((!preg_match('/\w+/',$_POST['user_name'])) and (!preg_match('/\w+/',$_POST['user_passwd'])))
	  {
	    $ret_val = printLoginPage('delete_pedigree_groups.php');
            if ($ret_val != '1')
              {
                $date = date('Y-m-d H:i:s');
		echo "Error #4: $date<br>\n";
		echo "Error in call to printLoginPage from delete_pedigree_groups.php<br>\n";
		echo "$ret_val<br><br>\n";
		echo "Please email the above error using Comments/Help/Support link \n";
		echo "in the left navigation bar.<br>\n";
		echo "</body></html>\n";
		session_unset();
		session_destroy();
		$ret_val = disconnect();
		exit;
	      }#end if error in call to printLoginPage
	  }#end if haven't started a session yet
        else #have started a session
	  {
	    $auth_user = authenticate($_POST['user_name'],$_POST['user_passwd'],$_POST['rand'],$access_type_required,$_POST['database_id']);
	    if (($auth_user != '1') and ($auth_user != '0'))
	      {
		$date = date('Y-m-d H:i:s');
		echo "Error #5: $date<br>\n";
		echo "Error in call to authenticate from delete_pedigree_groups.php<br>\n";
		echo "$auth_user<br>\n";
		echo "Please email the above error using Comments/Help/Support link \n";
		echo "in the left navigation bar.<br>\n";
		echo "</body></html>\n";
		session_unset();
		session_destroy();
		$ret_val = disconnect();
		exit;
	      }
            if ($auth_user == '0')
	      {
		echo "You are not an authorized user of this website!!<br><br>\n";
		echo "You must be an authorized user to access the data contained in this site.\n";
		echo "If you feel like you should be an authorized user, or want to see if you can\n";
		echo "become an authorized user please contact $contact_person at \n";
                echo "<a href=\"mailto:$contact_email\">$contact_email</a>\n";
		echo "</body></html>\n";
		session_unset();
		session_destroy();
		$ret_val = disconnect();
		exit;
	      }
            if ($auth_user == '1')
	      {
		$_SESSION['user_name']   = $_POST['user_name'];
		$_SESSION['user_passwd'] = $_POST['user_passwd'];
                $_SESSION['database_id'] = $_POST['database_id'];
		$_SESSION['rand']        = $_POST['rand'];
                $_SESSION['entry_time']  = time();
		session_write_close();
	      }
	  }#end else have user name an passwd
      }#end if session variables not registered
    else #session variable are registered
      {
        if ((time() - $_SESSION['entry_time']) > $session_expiration_time)#if session has expired
          {
            #if (key_exists('files_on_server',$_SESSION))
            #  {
            #    $files_to_delete_array = $_SESSION['files_on_server'];
            #    $ret_val = deleteFiles($files_to_delete_array);
            #    if ($ret_val != 1)
            #      {
            #        $date = date('Y-m-d H:i:s');
            #        echo "Error #6: $date<br>\n";
            #        echo "Error in call to deleteFiles from delete_pedigree_groups.php<br>\n";
            #        echo "$ret_val<br><br>\n";
            #        echo "Please email the above error using Comments/Help/Support link \n";
	#	    echo "in the left navigation bar.<br>\n";
        #            session_unset();
        #            session_destroy();
        #            $ret_val = disconnect();
        #            exit;
        #          }#end if error in call to deleteFiles
        #      }#end if files that need to be deleted

            if (is_dir("../data/download_data/$_SESSION[user_name]"))
              {
                $ret_val = deleteExpiredFiles($_SESSION['user_name']);
                if ($ret_val != 1)
                  {
                    $date = date('Y-m-d H:i:s');
                    echo "Error #7: $date<br>\n";
                    echo "Error in call to deleteExpiredFiles from delete_pedigree_groups.php<br>\n";
                    echo "$ret_val<br><br>\n";
                    echo "Please email the above error using Comments/Help/Support link \n";
		    echo "in the left navigation bar.<br>\n";
                    session_unset();
                    session_destroy();
                    $ret_val = disconnect();
                    exit;
                  }#end if error in call to deleteExpiredFiles
              }#end if user has a data directory
            session_unset();
            session_destroy();

            echo "<b>Your Session has expired.  You must log back into the system.</b><br><br><br>\n";
            $ret_val = printLoginPage('delete_pedigree_groups.php');
            if ($ret_val != '1')
              {
                $date = date('Y-m-d H:i:s');
		echo "Error #8: $date<br>\n";
		echo "Error in call to printLoginPage from delete_pedigree_groups.php<br>\n";
		echo "$ret_val<br><br>\n";
		echo "Please email the above error using Comments/Help/Support link \n";
		echo "in the left navigation bar.<br>\n";
		echo "</body></html>\n";
		session_unset();
		session_destroy();
		$ret_val = disconnect();
		exit;
	      }#end if error in call to printLoginPage
          }#end if session has expired 
        else #session hasn't expired
          {
	    if ((!session_is_registered('database_id')) and (!isset($_POST['database_id'])))
	      {
		$ret_val = printDatabaseSelectPage('delete_pedigree_groups.php');
		if ($ret_val != '1')
		  {
		    $date = date('Y-m-d H:i:s');
		    echo "Error #9: $date<br>\n";
		    echo "Error in call to printDatabaseSelectPage from delete_pedigree_groups.php<br>\n";
		    echo "$ret_val<br><br>\n";
		    echo "Please email the above error using Comments/Help/Support link \n";
		    echo "in the left navigation bar.<br>\n";
		    echo "</body></html>\n";
		    session_unset();
		    session_destroy();
		    $ret_val = disconnect();
		    exit;
		  }#end if error in call to printDatabaseSelectPage
	      }#end if the database id session variable isn't set and haven't selected
	    else #all the session variables are set
	      {
		$user_name   = $_SESSION['user_name'];
		$user_passwd = $_SESSION['user_passwd'];
		if (session_is_registered('database_id')){$database_id = $_SESSION['database_id'];}
		else #set database id session variable
		  {
		    $database_id = $_POST['database_id']; 
		    $_SESSION['database_id'] = $_POST['database_id'];
		  }#end else set database id session variable
		$rand        = $_SESSION['rand'];
		$_SESSION['entry_time'] = time();
		$auth_user = authenticate($user_name,$user_passwd,$rand,$access_type_required,$database_id);
		if (($auth_user != '1') and ($auth_user != '0'))
		  {
		    $date = date('Y-m-d H:i:s');
		    echo "Error #10: $date<br>\n";
		    echo "Error in call to authenticate from delete_pedigree_groups.php<br>\n";
		    echo "$auth_user<br>\n";
		    echo "Please email the above error using Comments/Help/Support link \n";
		    echo "in the left navigation bar.<br>\n";
		    echo "</body></html>\n";
		    session_unset();
		    session_destroy();
		    $ret_val = disconnect();
		    exit;
		  }
		if ($auth_user == '0')
		  {
		    echo "You are not an authorized user of this website!!<br><br>\n";
		    echo "You must be an authorized user to access the data contained in this site.\n";
		    echo "If you feel like you should be an authorized user, or want to see if you can\n";
		    echo "become an authorized user please contact $contact_person \n";
		    echo "at <a href=\"mailto:$contact_email\">$contact_email</a>\n";
		    echo "</body></html>\n";
		    session_unset();
		    session_destroy();
		    $ret_val = disconnect();
		    exit;
		  }
	      }#end else all the session variables are set
          }#end else session hasn't expired
      }#end else registered values
  }#end else not ending session

if ($auth_user == '1')
  {
    $database_id = $_SESSION['database_id'];
    #3     Determine how to delete
    if (!preg_match('/^\d$/',$want_list))
      {
	echo "<form action=\"delete_pedigree_groups.php\" name=\"form\" method=\"POST\" target=\"main\">\n";
	echo "This from will allow you to delete any Pedigree Group record in the database.  If you only want to delete one Pedigree Group at \n";
	echo " a time and you know the Group Name, select the 'I Know Which Individual Group I Want to Delete' button.  If you want to delete \n";
	echo "multiple Pedigree Groups or you don't which Pedigree Groups you want to delete, select the \n";
        echo "'Want a List of All Pedigree Groups' button.  \n";
        echo "If you want to delete multiple Pedigree Groups and you know the Group Names, \n";
        echo "select the 'Upload a File of Pedigree Group Names' button.<br>\n";
	echo "Please select how you would like to proceed:<br><br>\n";
        
        echo "<table>\n";
	echo "<tr><td><input type=\"radio\" name=\"want_list\" value=\"0\" checked></td><td>I Know Which Pedigree Group I Want to Delete</td></tr>\n";
	echo "<tr><td><input type=\"radio\" name=\"want_list\" value=\"1\"></td><td>I Want to See a List of All the Pedigree Groups in the Database</td></tr>\n";
        echo "<tr><td><input type=\"radio\" name=\"want_list\" value=\"2\"></td><td>Upload a File of Pedigree Group Names</td></tr>\n";
	echo "</table>\n";
        echo "<br><br>\n";

        echo "<table align=\"center\">\n";
        echo "<tr>\n";
	echo "<td><input type=\"submit\" name=\"submit\" value=\"Select Pedigree Group(s) to Delete\"></td>\n";
        echo "<td><input type=\"reset\" name=\"reset\" value=\"Reset Selection Method\"></td>\n";
        echo "</tr>\n";
        echo "</table>\n";
        echo "</form>\n";
        echo "<br><br>\n\n";

        $ret_val = printLogOutButton('delete_pedigree_groups.php');
      }#end if don't have want_list

    #4     Get Pedigree Group ID
    if (($want_list == '0') and
        (!preg_match('/\d+/',$ped_group_id))
       )
      {
	echo "<form action=\"delete_pedigree_groups.php\" name=\"form\" method=\"POST\" target=\"main\" onSubmit=\"return(Validate(this))\">\n";
	echo "Please select the Pedigree Group you want to delete from the database:<br><br>\n";
	echo "<table align=\"center\">\n";
        echo "<tr><td>Pedigree Group:</td><td>\n";
	$jscript = printPedigreeGroupSelectList($database_id);
	if ($jscript == '0')
	  {
            echo "</td></tr>\n";
            echo "</table>\n";
            echo "<br><br>\n";

	    echo "Error#2:<br>\n";
	    echo "Error in call to printPedigreeGroupSelectList from delete_pedigree_groups.php<br>\n";
	    echo "See the above error message from printPedigreeGroupSelectList for an explanation.<br><br>\n";
	    echo "Please email the above error message using the Comments/Help/Support link \n";
	    echo "on the left navigation bar.<br>\n";
	    $ret_val = disconnect();
	    exit;
	  }#end error in call to printPedigreeGroupSelectList
        if ($jscript == 'no_defined_pedigree_groups')
          {
            echo "</td></tr>\n";
            echo "</table>\n";
            echo "<br><br>\n";

            $date = date('Y-m-d H:i:s');
            echo "This message was generated at $date.\n";
            $ret_val = disconnect();
            exit;
          }
        echo "</td></tr>\n";
        echo "</table>\n";
	echo "<br><br>\n";

        echo "<input type=\"hidden\" name=\"want_list\" value=\"$want_list\">\n";
        echo "<table align=\"center\">\n";
        echo "<tr>\n";
	echo "<td><input type=\"submit\" name=\"submit\" value=\"Delete Pedigree Group\"></td>\n";
	echo "<td><input type=\"reset\" name=\"reset\" value=\"Reset Selected Pedigree Group\"></td>\n";
        echo "</tr>\n";
        echo "</form>\n";
        echo "</table>\n";
        echo "<br><br>\n";
        
        $ret_val = printLogOutButton('delete_pedigree_groups.php');
	echo "\n\n";

	echo "<script>\n";
	echo "function Validate(form)\n";
	echo "$jscript\n";
	echo "</script>\n";
      }#end if no affection_status_name

    #5     Delete Pedigree Group
    if (($want_list == '0') and
        (preg_match('/\d+/',$ped_group_id))
       )
      {
        $rand = rand();
        $tmp_log_file = "log_file_"."$rand".".txt";
        $log_file_handle = fopen("../data/$tmp_log_file","w");
        if (!$log_file_handle)
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #11: $date<br>\n";
            echo "Error in call to fopen from delete_pedigree_groups.php<br>\n";
            echo "Unable to open log file to keep track of when, what, and by whom data is altered in the database<br><br>\n";
            echo "Please email the above error using the Comments/Help/Support link \n";
            echo "on the left navigation bar.\n";
            echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end error in call to fopen
        $log_file_statement = ""; 

        echo "Deleting the selected Pedigree Group from the database.<br>\n";
        $field_list_array = array('pedigree_group_id');
        $ped_ped_group_link_rec_list = tableQuery('pedigree_pedigree_group_link_table',$database_id,$field_list_array,$ped_group_id,'equal','all');
        if (!is_array($ped_ped_group_link_rec_list))
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #12: $date<br>\n";
            echo "Error in call to tableQuery from delete_pedigree_groups.php<br>\n";
            echo "$ped_ped_link_rec_list<br><br>\n";
            echo "Please email the above error message using the Comments/Help/Support link \n";
	    echo "on the left navigation bar.<br>\n";
            fclose($log_file_handle);
            chmod("../data/$tmp_log_file",0777);
            $command = "rm ../data/$tmp_log_file";
            exec($command,$output_array,$return_code);
	    $ret_val = disconnect();
	    exit;
          }#end error in call to tableQuery
        foreach ($ped_ped_group_link_rec_list as $ped_ped_group_link_rec)
          {
            $ped_ped_group_link_id = $ped_ped_group_link_rec['pedigree_pedigree_group_link_id'];
            $ret_val = deletePedigreePedigreeGroupLink($ped_ped_group_link_id);
            if ($ret_val != '1')
              {
                $date = date('Y-m-d H:i:s');
                echo "Error #13: $date<br>\n";
                echo "Error in call to deletePedigreePedigreeGroupLink from delete_pedigree_groups.php<br>\n";
                echo "$ret_val<br><br>\n";
                echo "Please email the above error message using the Comments/Help/Support link \n";
	        echo "on the left navigation bar.<br>\n";
                fclose($log_file_handle);
                chmod("../data/$tmp_log_file",0777);
                $command = "cat ../data/$tmp_log_file >> ../data/log_file.txt";
                exec($command,$output_array,$return_code);
                $command = "rm ../data/$tmp_log_file";
                exec($command,$output_array,$return_code);
	        $ret_val = disconnect();
	        exit;
              }#end error in call to deletePedigreePedigreeGroupLink
            $date = date('Y-m-d H:i:s');
            $log_file_statement = "$date:\t$_SESSION[user_name] Deleted Pedigree-Pedigree Group Link ID ";
            $log_file_statement.= "$ped_ped_group_link_rec[pedigree_pedigree_group_link_id] from Database ID $database_id, ";
            $log_file_statement.= "for Pedigree Group ID $ped_group_id and Pedigree Table ID ";
            $log_file_statement.= "$ped_ped_group_link_rec[pedigree_table_id].\n";
            fwrite($log_file_handle,$log_file_statement);
          }#end foreach pedigree pedigree group link record

        $field_list_array = array('pedigree_group_id');
        $ped_group_rec_list = tableQuery('pedigree_group_table',$database_id,$field_list_array,$ped_group_id,'equal','all');
        if (!is_array($ped_group_rec_list))
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #14: $date<br>\n";
            echo "Error in call to tableQuery from delete_pedigree_groups.php<br>\n";
            echo "$ped_group_rec_list<br><br>\n";
            echo "Please email the above error message using the Comments/Help/Support link \n";
	    echo "on the left navigation bar.<br>\n";
            fclose($log_file_handle);
            chmod("../data/$tmp_log_file",0777);
            $command = "cat ../data/$tmp_log_file >> ../data/log_file.txt";
            exec($command,$output_array,$return_code);
            $command = "rm ../data/$tmp_log_file";
            exec($command,$output_array,$return_code);
	    $ret_val = disconnect();
	    exit;
          }#end error in call to tableQuery
        if (sizeof($ped_group_rec_list) == '0')
          {
            $date = date('Y-m-d H:i:s');
            echo "It appears as if the pedigree group was deleted from the database before \n";
            echo "you submitted your request to delete the group from the database.<br>\n";
            echo "This message was generated at $date.\n";
            fclose($log_file_handle);
            chmod("../data/$tmp_log_file",0777);
            $command = "cat ../data/$tmp_log_file >> ../data/log_file.txt";
            exec($command,$output_array,$return_code);
            $command = "rm ../data/$tmp_log_file";
            exec($command,$output_array,$return_code);
            $ret_val = disconnect();
            exit;
          }
        elseif (sizeof($ped_group_rec_list) == '1') {$ped_group_rec = $ped_group_rec_list[0];}
        else
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #15: $date<br>\n";
            echo "The user wanted to deleted pedigree group id $ped_group_id, but when queried the \n";
            echo "pedigree group table with that id multiple records were returned.<br><br>\n";
            echo "Please email the above error message using the Comments/Help/Support link \n";
	    echo "on the left navigation bar.<br>\n";
            fclose($log_file_handle);
            chmod("../data/$tmp_log_file",0777);
            $command = "cat ../data/$tmp_log_file >> ../data/log_file.txt";
            exec($command,$output_array,$return_code);
            $command = "rm ../data/$tmp_log_file";
            exec($command,$output_array,$return_code);
	    $ret_val = disconnect();
	    exit;
          }#end in data integrity

        $ret_val = deletePedigreeGroup($ped_group_id);
        if ($ret_val != '1')
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #16: $date<br>\n";
            echo "Error in call to deletePedigreeGroup from delete_pedigree_groups.php<br>\n";
            echo "$ret_val<br><br>\n";
            echo "Please email the above error message using the Comments/Help/Support link \n";
	    echo "on the left navigation bar.<br>\n";
            fclose($log_file_handle);
            chmod("../data/$tmp_log_file",0777);
            $command = "cat ../data/$tmp_log_file >> ../data/log_file.txt";
            exec($command,$output_array,$return_code);
            $command = "rm ../data/$tmp_log_file";
            exec($command,$output_array,$return_code);
	    $ret_val = disconnect();
	    exit;
          }#end error in call to deletePedigreeGroup
        $date = date('Y-m-d H:i:s');
        $log_file_statement = "$date:\t$_SESSION[user_name] Deleted Pedigree Group ID $ped_group_id from Database ID $database_id.\n";
        fwrite($log_file_handle,$log_file_statement);
        fclose($log_file_handle);
        chmod("../data/$tmp_log_file",0777);
        $command = "cat ../data/$tmp_log_file >> ../data/log_file.txt";
        exec($command,$output_array,$return_code);
        $command = "rm ../data/$tmp_log_file";
        exec($command,$output_array,$return_code);
        echo "Successfully unlinked all the pedigrees that were a part of Pedigree Group $ped_group_rec[pedigree_group_name]<br>\n";
        echo "Successfully deleted Pedigree Group $ped_group_rec[pedigree_group_name] from the database.<br><br>\n";

        echo "Now emailing all the users of the database to inform them of the new information in the database.<br>\n";

        $database_rec_list = getDatabase($database_id);
        if (!is_array($database_rec_list))
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #17: $date<br>\n";
            echo "Error in call to getDatabase from delete_pedigree_groups.php<br>\n";
            echo "$database_rec_list<br><br>\n";
            echo "Please email the above error using the Comments/Help/Support link on the \n";
            echo "left navigation bar.\n";
            echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end error in call to getDatabase
        $database_rec = $database_rec_list[0];

        $user_rec_list = getAllUsers();
        if (!is_array($user_rec_list))
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #18: $date<br>\n";
            echo "Error in call to getAllUsers() from delete_pedigree_groups.php<br>\n";
            echo "$user_rec_list<br><br>\n";
            echo "Please email the above error using the Comments/Help/Support link on the \n";
            echo "left navigation bar.\n";
            echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end error in call to getAllUsers
	foreach ($user_rec_list as $user_rec)
          {
            if ($user_rec['user_name'] == 'root') {$root_email = $user_rec['user_email'];}
          }#end foreach user

        $subject = "Pedigree Group deleted from your Genetic Studies Database";
        $message = "The Pedigree Group $ped_group_rec[pedigree_group_name] has been deleted from the database $database_rec[database_name].";
        $header  = "From: $root_email";


        $field_list = array('user_database_link_id');
        $user_database_link_rec_list = tableQuery('user_database_link_table',$database_id,$field_list,'_','wildcard','all');
        if (!is_array($user_database_link_rec_list))
          {
            $date = date('Y-m-d H:i:s');
            echo"Error #19: $date<br>\n";
            echo "Error in call to tableQuery from delete_pedigree_groups.php<br>\n";
            echo "$user_database_link_rec_list<br><br>\n";
            echo "Please email the above error using the Comments/Help/Support link on the \n";
            echo "left navigation bar.\n";
            echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end error in call to tableQuery
	if (sizeof($user_database_link_rec_list) > '0')
          {
            foreach ($user_database_link_rec_list as $user_database_link_rec)
              {
                $user_id = $user_database_link_rec['user_id'];
                $field_list = array('user_id');
                $user_rec_list = getUser($user_id);
                if (!is_array($user_rec_list))
                  {
                    $date = date('Y-m-d H:i:s');
                    echo "Error #20: $date<br>\n";
                    echo "Error in call to getUser from delete_pedigree_groups.php<br>\n";
                    echo "$user_rec_list<br><br>\n";
                    echo "Please email the above error using the Comments/Help/Support link on the \n";
                    echo "left navigation bar.\n";
                    echo "</body></html>\n";
                    $ret_val = disconnect();
                    exit;
                  }#end error in call to getUser
	        if (sizeof($user_rec_list) == '0') {continue;}
                elseif (sizeof($user_rec_list) == '1') {$user_rec = $user_rec_list[0];}
                else
                  {
                    $date = date('Y-m-d H:i:s');
                    echo "Error #21: $date<br>\n";
                    echo "Tried to send an update email to user id $user_id, but when queried the user table \n";
                    echo "with that id multiple records were returned.<br><br>\n";
                    echo "Please email the above error using the Comments/Help/Support link on the \n";
                    echo "left navigation bar.\n";
                    echo "</body></html>\n";
                    $ret_val = disconnect();
                    exit;
                  }#end error in data integrity
		$user_email_address = $user_rec['user_email'];

                $ret_val = mail($user_email_address,$subject,$message,$header);
                #if (!$ret_val) {echo "Unable to send an update email to user $user_rec[user_name]<br>\n";}
                #else           {echo "Sent an update email to user $user_name<br>\n";}
              }#end foreach user associated with database
	  }#end if have users associated with database
	echo "Finished sending update emails to all the users<br>\n";
      }#end if have ped_group_id

    #6 If want list, give checkbox list  
    if (($want_list == '1') and
        (!preg_match('/^\d$/',$ped_group_multiple_pages)) and
        (sizeof($ped_group_id) == '0')
       )
      {
        $field_list = array('pedigree_group_id');
        $num_groups = countTableQuery('pedigree_group_table',$database_id,$field_list,'_','wildcard');
        if (!preg_match('/^\d+$/',$num_groups))
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #22: $date<br>\n";
            echo "Error in call to countTableQuery from delete_pedigree_groups.php<br>\n";
            echo "$num_groups.<br><br>\n";
            echo "Please email the above error using the Comments/Help/Support link on the \n";
            echo "left navigation bar.\n";
            echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end error in call to countTableQuery
        if ($num_groups == 0)
          {
            $date = date('Y-m-d H:i:s');
            echo "Currently there are NO Pedigree Groups in the database.<br>\n";
            echo "This message was generated at $date<br>\n";
            echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }

        if ($num_groups > $max_records_to_print_per_page)
          {
            $ped_group_multiple_pages = 1;
            $from                       = "0";
            $to                         = $max_records_to_print_per_page - 1;
            $range                      = "$from"."-"."$to";
            $ped_group_rec_list = tableQuery('pedigree_group_table',$database_id,$field_list,'_','wildcard',$range,'pedigree_group_name');
            if (!is_array($ped_group_rec_list))
              {
                $date = date('Y-m-d H:i:s');
                echo "Error #23: $date<br>\n";
                echo "Error in call to tableQuery from delete_pedigree_groups.php<br>\n";
                echo "$ped_group_rec_list<br><br>\n";
                echo "Please email the above error using the Comments/Help/Support link on the \n";
                echo "left navigation bar.\n";
                echo "</body></html>\n";
                $ret_val = disconnect();
                exit;
              }#end error in call to tableQuery
            $function_to_call      = 'tableQuery';
            $table_name            = 'pedigree_group_table';
            $term                  = '_';
            $mode                  = 'wildcard';
            $order_by              = 'pedigree_group_name';
            $last_record_retrieved = $max_records_to_print_per_page;
          }#end if multiple pages
        else #only a single page
          {
            $ped_group_multiple_pages = 0;
            $range                      = "all";
            $ped_group_rec_list = tableQuery('pedigree_group_table',$database_id,$field_list,'_','wildcard',$range,'pedigree_group_name');
            if (!is_array($ped_group_rec_list))
              {
                $date = date('Y-m-d H:i:s');
                echo "Error #24: $date<br>\n";
                echo "Error in call to tableQuery from delete_pedigree_groups.php<br>\n";
                echo "$ped_group_rec_list<br><br>\n";
                echo "Please email the above error using the Comments/Help/Support link on the \n";
                echo "left navigation bar.\n";
                echo "</body></html>\n";
                $ret_val = disconnect();
                exit;
              }#end error in call to tableQuery
          }#end else only a single page

        echo "Please Select the Pedigree Group(s) you would like to delete from the database:<br><br>\n";
        printLogOutButton('delete_pedigree_groups.php');
        echo "<br><br>\n";

        if ($ped_group_multiple_pages)
          {
            echo "<table align=\"center\">\n";
            echo "<form action=\"delete_pedigree_groups.php\" name=\"skip_form1\" method=\"POST\" target=\"main\" onSubmit=\"return(Validate(form))\">\n";
            echo "<input type=\"hidden\" name=\"want_list\" value=\"$want_list\">\n";
            echo "<input type=\"hidden\" name=\"ped_group_multiple_pages\" value=\"0\">\n";
            echo "<input type=\"hidden\" name=\"pedigree_group_id\" value=\"\">\n";
            echo "<tr>\n";
            echo "<td><input type=\"submit\" name=\"submit\" value=\"Deleted Selected Pedigree Group(s)\" onClick=\"copyData('skip_form1')\"></td>\n";
            echo "</form>\n\n";

            echo "<form action=\"delete_pedigree_groups.php\" name=\"form\" method=\"POST\" target=\"main\">\n";
            $num_records_left = $num_groups - $max_records_to_print_per_page;
            if ($num_records_left > $max_records_to_print_per_page)
              {echo "<td><input type=\"submit\" name=\"submit\" value=\"Get Next $max_records_to_print_per_page Pedigree Groups\"></td>\n";}
            else
              {echo "<td><input type=\"submit\" name=\"submit\" value=\"Get Next $max_records_to_print_per_page Pedigree Groups\"></td>\n";}
            echo "</tr>\n";
            echo "</table>\n";
            echo "<br>\n";
            echo "<table align=\"center\">\n";
            echo "<tr>\n";
            echo "<td>&nbsp;</td>\n";
            echo "<td><input type=\"reset\" name=\"reset\" value=\"Reset Selected Pedigree Group(s)\"></td>\n";
            echo "</tr>\n";
            echo "</table>\n";
          }#end if multiple pages
        else #only a single page
          {
            echo "<form action=\"delete_pedigree_groups.php\" name=\"form\" method=\"POST\" target=\"main\" onSubmit=\"return(Validate(this))\">\n";
            echo "<table align=\"center\">\n";
            echo "<tr>\n";
            echo "<td><input type=\"submit\" name=\"submit\" value=\"Deleted Selected Pedigree Group(s)\"></td>\n";
            echo "<td><input type=\"reset\" name=\"reset\" value=\"Reset Selected Pedigree Group(s)\"></td>\n";
            echo "</tr>\n";
            echo "</table>\n";
          }#end else only a single page
        echo "<br><br>\n";

        $jscript = printPedigreeGroupCheckList($ped_group_rec_list);
        if ($jscript == '0')
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #25: $date<br>\n";
            echo "Error in call to printPedigreeGroupCheckList from delete_pedigree_groups.php<br>\n";
            echo "See above error message from printPedigreeGroupCheckList for an explanation.<br><br>\n";
            echo "Please email the above error using the Comments/Help/Support link on the \n";
            echo "left navigation bar.\n";
            echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end error in call to printPedigreeGroupCheckList
        echo "<br><br>\n";

        echo "<input type=\"hidden\" name=\"want_list\" value=\"$want_list\">\n";
        echo "<input type=\"hidden\" name=\"ped_group_multiple_pages\" value=\"$ped_group_multiple_pages\">\n";
        if ($ped_group_multiple_pages)
          {
            echo "<input type=\"hidden\" name=\"function_to_call\" value=\"$function_to_call\">\n";
	    if ($function_to_call == 'tableJoin') 
	      {
		foreach ($table_name as $name) {echo "<input type=\"hidden\" name=\"table_name[]\" value=\"$name\">\n";}
	      }
	    else{echo "<input type=\"hidden\" name=\"table_name\" value=\"$table_name\">\n";}

	    foreach ($field_list as $field){echo "<input type=\"hidden\" name=\"field_list[]\" value=\"$field\">\n";}

	    if (is_array($term)){foreach ($term as $sub_term){echo "<input type=\"hidden\" name=\"term[]\" value=\"$sub_term\">\n";}}
	    else {echo "<input type=\"hidden\" name=\"term\" value=\"$term\">\n";}

	    if (is_array($mode)){foreach ($mode as $sub_mode){echo "<input type=\"hidden\" name=\"mode[]\" value=\"$sub_mode\">\n";}}
	    else {echo "<input type=\"hidden\" name=\"mode\" value=\"$mode\">\n";}

	    if ($function_to_call == 'compoundTableQuery') {echo "<input type=\"hidden\" name=\"join\" value=\"$join\">\n";}

	    echo "<input type=\"hidden\" name=\"order_by\" value=\"$order_by\">\n";
            echo "<input type=\"hidden\" name=\"last_record_retrieved\" value=\"$last_record_retrieved\">\n";

            echo "<table align=\"center\">\n";
            echo "<tr>\n";
            echo "<td>&nbsp;</td>\n";
            echo "<td><input type=\"reset\" name=\"reset\" value=\"Reset Selected Pedigree Group(s)\"></td>\n";
            echo "</tr>\n";
            echo "</table>\n";
            echo "<br>\n";
            echo "<table align=\"center\">\n";
            echo "<tr>\n";
            if ($num_records_left > $max_records_to_print_per_page)
              {echo "<td><input type=\"submit\" name=\"submit\" value=\"Get Next $max_records_to_print_per_page Pedigree Groups\"></td>\n";}
            else
              {echo "<td><input type=\"submit\" name=\"submit\" value=\"Get Next $max_records_to_print_per_page Pedigree Groups\"></td>\n";}
            echo "</form>\n\n";

            echo "<form action=\"delete_pedigree_groups.php\" name=\"skip_form2\" method=\"POST\" target=\"main\" onSubmit=\"return(Validate(form))\">\n";
            echo "<input type=\"hidden\" name=\"want_list\" value=\"$want_list\">\n";
            echo "<input type=\"hidden\" name=\"ped_group_multiple_pages\" value=\"0\">\n";
            echo "<input type=\"hidden\" name=\"pedigree_group_id\" value=\"\">\n";
            echo "<td><input type=\"submit\" name=\"submit\" value=\"Deleted Selected Pedigree Group(s)\" onClick=\"copyData('skip_form2')\"></td>\n";
            echo "</tr>\n";
            echo "</table>\n";
            echo "</form>\n";
          }#end if multiple pages
        else #only a single page
          {
            echo "<table align=\"center\">\n";
            echo "<tr>\n";
            echo "<td><input type=\"submit\" name=\"submit\" value=\"Deleted Selected Pedigree Group(s)\"></td>\n";
            echo "<td><input type=\"reset\" name=\"reset\" value=\"Reset Selected Pedigree Group(s)\"></td>\n";
            echo "</tr>\n";
            echo "</table>\n";
            echo "</form>\n";
          }#end else only a single page
        echo "<br><br>\n";

        printLogOutButton('delete_pedigree_groups.php');
        echo "\n\n";

        echo "<script>\n";
        echo "function Validate(form)\n";
        echo "$jscript\n";
        if ($ped_group_multiple_pages)
          {
            echo "\n";
            echo "function copyData(formname)\n";
            echo "{\n";
            echo "  var group_string = new Array();\n";
            echo "  var length = 0;\n";
            echo "  if (document.form.elements['group_id[]'].length > 1){\n";
            echo "    for (var i=0; i<document.form.elements['group_id[]'].length; i++){\n";
            echo "      if (document.form.elements['group_id[]'][i].type == \"hidden\"){\n";
            echo "        if (document.form.elements['group_id[]'][i].value != \"\"){\n";
            echo "          length = group_string.length;\n";
            echo "          group_string[length] = document.form.elements['group_id[]'][i].value;}}\n";
            echo "      else{\n";
            echo "        if (document.form.elements['group_id[]'][i].checked){\n";
            echo "          length = group_string.length;\n";
            echo "          group_string[length] = document.form.elements['group_id[]'][i].value;}}}}\n";
            echo "  else{\n";
            echo "    if (document.form.elements['group_id[]'].type == \"hidden\"){\n";
            echo "      length = group_string.length;\n";
            echo "      group_string[length] = document.form.elements['group_id[]'].value;}\n";
            echo "    else{\n";
            echo "      if (document.form.elements['group_id[]'].checked){\n";
            echo "        length = group_string.length;\n";
            echo "        group_string[length] = document.form.elements['group_id[]'].value;}}}\n";
            echo "  if (formname == 'skip_form1'){\n";
            echo "    document.skip_form1.pedigree_group_id.value = group_string;}\n";
            echo "  if (formname == 'skip_form2'){\n";
            echo "    document.skip_form2.pedigree_group_id.value = group_string;}\n";
            echo "}\n";
          }#end if multiple pages
	echo "</script>\n";
        unset($ped_group_multiple_pages);
      }#end if want list, but no group ids

    #7 If multiple pages, give next checkbox list
    if (($want_list == '1') and
        ($ped_group_multiple_pages == '1')
       )
      {
        if ($function_to_call == 'tableQuery')
          {
            $num_groups = countTableQuery($table_name,$database_id,$field_list,$term,$mode);
	    if (!preg_match('/^\d+$/',$num_groups))
	      {
		$date = date('Y-m-d H:i:s');
		echo "Error #26: $date<br>\n";
		echo "Error in call to countTableQuery from delete_pedigree_groups.php<br>\n";
		echo "$num_groups<br><br>\n";
		echo "Please email the above error using The Comments/Help/Support link on the \n";
		echo "left navigation bar.\n";
		echo "</form>\n";
		echo "</body></html>\n";
		$ret_val = disconnect();
		exit;
	      }#end error in call to countTableQuery
	    $records_yet_to_be_retrieved = $num_groups - $last_record_retrieved;

            if ($records_yet_to_be_retrieved > $max_records_to_print_per_page)
              {
                $ped_group_multiple_pages = 1;
		$from = $last_record_retrieved;
		$to   = ($last_record_retrieved-1) + $max_records_to_print_per_page;
		$range = "$from"."-"."$to";
		$ped_group_rec_list = tableQuery($table_name,$database_id,$field_list,$term,$mode,$range,$order_by);
		if (!is_array($ped_group_rec_list))
		  {
		    $date = date('Y-m-d H:i:s');
		    echo "Error #27: $date<br>\n";
		    echo "Error in call to tableQuery from delete_pedigree_groups.php<br>\n";
		    echo "$ped_rec_list<br><br>\n";
		    echo "Please email the above error using The Comments/Help/Support link on the \n";
		    echo "left navigation bar.\n";
		    echo "</form>\n";
		    echo "</body></html>\n";
		    $ret_val = disconnect();
		    exit;
		  }#end if error in call to tableQuery
                $last_record_retrieved = $to + 1;
	      }#end if multiple pages
	    else #num records fit on one page
	      {
                $ped_group_multiple_pages = 0;
		$from = $last_record_retrieved;
		$to   = $num_groups - 1;
		$range = "$from"."-"."$to";
		$ped_group_rec_list = tableQuery($table_name,$database_id,$field_list,$term,$mode,$range,$order_by);
		if (!is_array($ped_group_rec_list))
		  {
		    $date = date('Y-m-d H:i:s');
		    echo "Error #28: $date<br>\n";
		    echo "Error in call to tableQuery from delete_pedigree_groups.php<br>\n";
		    echo "$ped_group_rec_list<br><br>\n";
		    echo "Please email the above error using The Comments/Help/Support link on the \n";
		    echo "left navigation bar.\n";
		    echo "</form>\n";
		    echo "</body></html>\n";
		    $ret_val = disconnect();
		    exit;
		  }#end if error in call to tableQuery
              }#end else only a single page
          }#end if function_to_call == tableQuery

        echo "Please Select the Pedigree Group(s) you would like to delete from the database:<br><br>\n";
        printLogOutButton('delete_pedigree_groups.php');
        echo "<br><br>\n";

        if ($ped_group_multiple_pages)
          {
            echo "<table align=\"center\">\n";
            echo "<form action=\"delete_pedigree_groups.php\" name=\"skip_form1\" method=\"POST\" target=\"main\" onSubmit=\"return(Validate(form))\">\n";
            echo "<input type=\"hidden\" name=\"want_list\" value=\"$want_list\">\n";
            echo "<input type=\"hidden\" name=\"ped_group_multiple_pages\" value=\"0\">\n";
            echo "<input type=\"hidden\" name=\"pedigree_group_id\" value=\"\">\n";
            echo "<tr>\n";
            echo "<td><input type=\"submit\" name=\"submit\" value=\"Deleted Selected Pedigree Group(s)\" onClick=\"copyData('skip_form1')\"></td>\n";
            echo "</form>\n\n";

            echo "<form action=\"delete_pedigree_groups.php\" name=\"form\" method=\"POST\" target=\"main\">\n";
            $num_records_left = $num_groups - $last_record_retrieved;
            if ($num_records_left > $max_records_to_print_per_page)
              {echo "<td><input type=\"submit\" name=\"submit\" value=\"Get Next $max_records_to_print_per_page Pedigree Groups\"></td>\n";}
            else
              {echo "<td><input type=\"submit\" name=\"submit\" value=\"Get Next $max_records_to_print_per_page Pedigree Groups\"></td>\n";}
            echo "</tr>\n";
            echo "</table>\n";
            echo "<br>\n";
            echo "<table align=\"center\">\n";
            echo "<tr>\n";
            echo "<td>&nbsp;</td>\n";
            echo "<td><input type=\"reset\" name=\"reset\" value=\"Reset Selected Pedigree Group(s)\"></td>\n";
            echo "</tr>\n";
            echo "</table>\n";
          }#end if multiple pages
        else #only a single page
          {
            echo "<form action=\"delete_pedigree_groups.php\" name=\"form\" method=\"POST\" target=\"main\" onSubmit=\"return(Validate(this))\">\n";
            echo "<table align=\"center\">\n";
            echo "<tr>\n";
            echo "<td><input type=\"submit\" name=\"submit\" value=\"Deleted Selected Pedigree Group(s)\"></td>\n";
            echo "<td><input type=\"reset\" name=\"reset\" value=\"Reset Selected Pedigree Group(s)\"></td>\n";
            echo "</tr>\n";
            echo "</table>\n";
          }#end else only a single page
        echo "<br><br>\n";

        $jscript = printPedigreeGroupCheckList($ped_group_rec_list);
        if ($jscript == '0')
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #29: $date<br>\n";
            echo "Error in call to printPedigreeGroupCheckList from delete_pedigree_groups.php<br>\n";
            echo "See above error message from printPedigreeGroupCheckList for an explanation.<br><br>\n";
            echo "Please email the above error using the Comments/Help/Support link on the \n";
            echo "left navigation bar.\n";
            echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end error in call to printPedigreeGroupCheckList
        echo "<br><br>\n";

        echo "<input type=\"hidden\" name=\"want_list\" value=\"$want_list\">\n";
        echo "<input type=\"hidden\" name=\"ped_group_multiple_pages\" value=\"$ped_group_multiple_pages\">\n";
        if (sizeof($ped_group_id) > 0)
          {
            if (!is_array($ped_group_id)){echo "<input type=\"hidden\" name=\"pedigree_group_id[]\" value=\$ped_group_id\">\n";}
            else
              {
                $id_term = join($ped_group_id,',');
                echo "<input type=\"hidden\" name=\"pedigree_group_id[]\" value=\"$id_term\">\n";
                unset($id_term);
              }
          }#end if have ids from previous page(s)

        if ($ped_group_multiple_pages)
          {
            echo "<input type=\"hidden\" name=\"function_to_call\" value=\"$function_to_call\">\n";
	    if ($function_to_call == 'tableJoin') 
	      {
		foreach ($table_name as $name) {echo "<input type=\"hidden\" name=\"table_name[]\" value=\"$name\">\n";}
	      }
	    else{echo "<input type=\"hidden\" name=\"table_name\" value=\"$table_name\">\n";}

	    foreach ($field_list as $field){echo "<input type=\"hidden\" name=\"field_list[]\" value=\"$field\">\n";}

	    if (is_array($term)){foreach ($term as $sub_term){echo "<input type=\"hidden\" name=\"term[]\" value=\"$sub_term\">\n";}}
	    else {echo "<input type=\"hidden\" name=\"term\" value=\"$term\">\n";}

	    if (is_array($mode)){foreach ($mode as $sub_mode){echo "<input type=\"hidden\" name=\"mode[]\" value=\"$sub_mode\">\n";}}
	    else {echo "<input type=\"hidden\" name=\"mode\" value=\"$mode\">\n";}

	    if ($function_to_call == 'compoundTableQuery') {echo "<input type=\"hidden\" name=\"join\" value=\"$join\">\n";}

	    echo "<input type=\"hidden\" name=\"order_by\" value=\"$order_by\">\n";
            echo "<input type=\"hidden\" name=\"last_record_retrieved\" value=\"$last_record_retrieved\">\n";

            echo "<table align=\"center\">\n";
            echo "<tr>\n";
            echo "<td>&nbsp;</td>\n";
            echo "<td><input type=\"reset\" name=\"reset\" value=\"Reset Selected Pedigree Group(s)\"></td>\n";
            echo "</tr>\n";
            echo "</table>\n";
            echo "<br>\n";
            echo "<table align=\"center\">\n";
            echo "<tr>\n";
            if ($num_records_left > $max_records_to_print_per_page)
              {echo "<td><input type=\"submit\" name=\"submit\" value=\"Get Next $max_records_to_print_per_page Pedigree Groups\"></td>\n";}
            else
              {echo "<td><input type=\"submit\" name=\"submit\" value=\"Get Next $max_records_to_print_per_page Pedigree Groups\"></td>\n";}
            echo "</form>\n\n";

            echo "<form action=\"delete_pedigree_groups.php\" name=\"skip_form2\" method=\"POST\" target=\"main\" onSubmit=\"return(Validate(form))\">\n";
            echo "<input type=\"hidden\" name=\"want_list\" value=\"$want_list\">\n";
            echo "<input type=\"hidden\" name=\"ped_group_multiple_pages\" value=\"0\">\n";
            echo "<input type=\"hidden\" name=\"pedigree_group_id\" value=\"\">\n";
            echo "<td><input type=\"submit\" name=\"submit\" value=\"Deleted Selected Pedigree Group(s)\" onClick=\"copyData('skip_form2')\"></td>\n";
            echo "</tr>\n";
            echo "</table>\n";
            echo "</form>\n";
          }#end if multiple pages
        else #only a single page
          {
            echo "<table align=\"center\">\n";
            echo "<tr>\n";
            echo "<td><input type=\"submit\" name=\"submit\" value=\"Deleted Selected Pedigree Group(s)\"></td>\n";
            echo "<td><input type=\"reset\" name=\"reset\" value=\"Reset Selected Pedigree Group(s)\"></td>\n";
            echo "</tr>\n";
            echo "</table>\n";
            echo "</form>\n";
          }#end else only a single page
        echo "<br><br>\n";

        printLogOutButton('delete_pedigree_groups.php');
        echo "\n\n";

        echo "<script>\n";
        echo "function Validate(form)\n";
        echo "$jscript\n";
        if ($ped_group_multiple_pages)
          {
            echo "\n";
            echo "function copyData(formname)\n";
            echo "{\n";
            echo "  var group_string = new Array();\n";
            echo "  var length = 0;\n";
            echo "  if (document.form.elements['group_id[]'].length > 1){\n";
            echo "    for (var i=0; i<document.form.elements['group_id[]'].length; i++){\n";
            echo "      if (document.form.elements['group_id[]'][i].type == \"hidden\"){\n";
            echo "        if (document.form.elements['group_id[]'][i].value != \"\"){\n";
            echo "          length = group_string.length;\n";
            echo "          group_string[length] = document.form.elements['group_id[]'][i].value;}}\n";
            echo "      else{\n";
            echo "        if (document.form.elements['group_id[]'][i].checked){\n";
            echo "          length = group_string.length;\n";
            echo "          group_string[length] = document.form.elements['group_id[]'][i].value;}}}}\n";
            echo "  else{\n";
            echo "    if (document.form.elements['group_id[]'].type == \"hidden\"){\n";
            echo "      length = group_string.length;\n";
            echo "      group_string[length] = document.form.elements['group_id[]'].value;}\n";
            echo "    else{\n";
            echo "      if (document.form.elements['group_id[]'].checked){\n";
            echo "        length = group_string.length;\n";
            echo "        group_string[length] = document.form.elements['group_id[]'].value;}}}\n";
            echo "  if (formname == 'skip_form1'){\n";
            echo "    document.skip_form1.pedigree_group_id.value = group_string;}\n";
            echo "  if (formname == 'skip_form2'){\n";
            echo "    document.skip_form2.pedigree_group_id.value = group_string;}\n";
            echo "}\n";
          }#end if multiple pages
	echo "</script>\n";
        unset($ped_group_multiple_pages);
      }#end if want list, but multiple pages

    #8 If ids, delete
    if (($want_list == '1') and
        ($ped_group_multiple_pages == 0) and
        (sizeof($ped_group_id) > 0)
       )
      {
        $rand_num = rand();
        $file_name = "delete_ped_group_data_upload_".$rand_num.".txt";
        $file_handle = fopen("../data/uploaded_data/$_SESSION[user_name]/$file_name","w");
        if (!$file_handle)
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #30: $date<br>\n";
            echo "Error in call to fopen from delete_pedigree_groups.php<br>\n";
            echo "Unable to open file to write ids to delete.<br><br>\n";
            echo "Please email the above error using Comments/Help/Support link \n";
	    echo "in the left navigation bar.<br>\n";
	    echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end error in call to fopen

        if (!is_array($ped_group_id))
          {
            if (preg_match('/,/',$ped_group_id))
              {
                $delete_array = explode(',',$ped_group_id);
                $ped_group_id_term = join($delete_array,"\n");
                fwrite($file_handle,"$ped_group_id_term\n");
              }#end if comma-separated list
            else {fwrite($file_handle,"$ped_group_id\n");}
          }#end if not an array
        else
          {
            $ped_group_id_term = join($ped_group_id,',');
            $delete_array      = explode(',',$ped_group_id_term);
            $ped_group_id_term = join($delete_array,"\n");
            fwrite($file_handle,"$ped_group_id_term\n");
          }#end else is an array
        fclose($file_handle);

        $file_size = @filesize("../data/uploaded_data/$_SESSION[user_name]/$file_name");
        if (!$file_size)
          {
            $command = "stat -c %s ../data/uploaded_data/$_SESSION[user_name]/$file_name";
            exec($command,$output_array);
            $file_size = $output_array[0];
          }#end if file too big for php
        $file_name = "../../data/uploaded_data/$_SESSION[user_name]/$file_name";
        $user_file = 0;

        echo "Now Updating the Information in the Database and Deleting the Pedigree Groups from the database.<br><br>\n";
        
        $ret_val = chdir("../bin/database_query_scripts/");
        if (!$ret_val)
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #31: $date<br>\n";
            echo "Error in call to chdir from delete_pedigree_groups.php<br>\n";
            echo "Unable to change directory to database query scripts directory<br><br>\n";
            echo "Please email the above error using Comments/Help/Support link \n";
	    echo "in the left navigation bar.<br>\n";
	    echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end error in call to chdir

	if ($file_size > $max_file_size_to_wait_to_run)
          {
            $background_flag = 1;
            if ($file_size >= $max_file_size_not_to_split)
              {
                $found = preg_match('/^(.+\/)([^\/]+)$/',$file_name,$captured);
                $path          = $captured[1];
                $name          = $captured[2];
                $sub_file_name = "sub_"."$name";
                $prefix        = "$path"."$sub_file_name";
                $prefix        = preg_replace('/\.\w+$/','_',$prefix);

                $command = "split -a5 --lines=$num_lines_to_split_files $file_name $prefix";
                if (sizeof($output_array) > '0'){$output_array = array();}
                exec($command,$output_array,$return_code);
                if ($return_code)
                  {
                    $err_msg = implode("\n",$output_array);
                    $date = date('Y-m-d H:i:s');
                    echo "Error #32: $date<br>\n";
                    echo "Error in call to exec to split file from delete_pedigree_groups.php<br>\n";
                    echo "$err_msg<br><br>\n";
                    echo "Please email the above error using the Comments/Help/Support link on the \n";
	            echo "left navigation bar.\n";
	            echo "</form>\n";
	            echo "</body></html>\n";
	            $ret_val = disconnect();
	            exit;
	          }#end if error in exec call to split file
                $file_array = glob("$prefix*");
                $num_files_split = sizeof($file_array);
                sort($file_array);
                foreach ($file_array as $key=>$file)
                  {
                    $command = "./delete_data_from_database.php '$user_file' '$file' '$database_id' 'Delete Pedigree Groups' '$_SESSION[user_name]'";
                    $command.= " '$background_flag' >> dummy_delete_data_background_output.txt &";

                    $last_line = system($command,$sys_ret_val);
                    if ($sys_ret_val != '0')
	              {
	                $date = date('Y-m-d H:i:s');
	                echo "Error #33: $date<br>\n";
	                echo "Error in system call to delete_data_from_database.php from delete_pedigree_groups.php<br>\n";
	                echo "The return value of the sytem call was $sys_ret_val<br><br>\n";
                        echo "Please email the above error using the Comments/Help/Support link on the \n";
	                echo "left navigation bar.\n";
	                echo "</form>\n";
	                echo "</body></html>\n";
	                $ret_val = disconnect();
	                exit;
	              }#end if error in system call
                  }#end foreach sub file
              }#end if file too big for php
            else #don't need to split file
              {
                $command = "./delete_data_from_database.php '$user_file' '$file_name' '$database_id' 'Delete Pedigree Groups' '$_SESSION[user_name]'";
                $command.= " '$background_flag' >> dummy_delete_data_background_output.txt &";

                $last_line = system($command,$sys_ret_val);
                if ($sys_ret_val != '0')
	          {
	            $date = date('Y-m-d H:i:s');
	            echo "Error #34: $date<br>\n";
	            echo "Error in system call to delete_data_from_database.php from delete_pedigree_groups.php<br>\n";
	            echo "The return value of the sytem call was $sys_ret_val<br><br>\n";
                    echo "Please email the above error using the Comments/Help/Support link on the \n";
	            echo "left navigation bar.\n";
	            echo "</form>\n";
	            echo "</body></html>\n";
	            $ret_val = disconnect();
	            exit;
	          }#end if error in system call
              }#end else don't need to split file
          }#end if run in background
        else #run in foreground
          {
            $background_flag = 0;
            $command = "./delete_data_from_database.php '$user_file' '$file_name' '$database_id' 'Delete Pedigree Groups' '$_SESSION[user_name]' '$background_flag' ";

            passthru($command,$sys_ret_val);
            if ($sys_ret_val != '0')
	      {
                echo "<br><br>\n";
	        $date = date('Y-m-d H:i:s');
	        echo "Error #35: $date<br>\n";
	        echo "Error in system call to delete_data_from_database.php from delete_pedigree_groups.php<br>\n";
	        echo "See the error message above for an explanation of the error<br><br>\n";
                echo "Please email the above error using the Comments/Help/Support link on the \n";
	        echo "left navigation bar.\n";
	        echo "</form>\n";
	        echo "</body></html>\n";
	        $ret_val = disconnect();
	        exit;
	      }#end if error in system call
          }#end else run in foreground

	$ret_val = chdir("../../cgi-bin/");
        if (!$ret_val)
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #36: $date<br>\n";
            echo "Error in call to chdir from delete_pedigree_groups.php<br>\n";
            echo "Unable to change directory to cgi-bin directory<br><br>\n";
            echo "Please email the above error using Comments/Help/Support link \n";
	    echo "in the left navigation bar.<br>\n";
	    echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end error in call to chdir

        if ($background_flag)
          {
            echo "<center>\n";
	    echo "<b>The data you uploaded is being inserted into the database.<br>\n";
            if ($file_size >= $max_file_size_not_to_split)
              {
                echo "The file was too large to handle, so it was split into $num_files_split sub files, and each \n";
                echo "sub file is being processed separately.  So you will recieve an email when the data in each sub file \n";
                echo "has been deleted from the database \n";
              }#end if split file
	    else {echo "You will receive an email when all the data has been deleted from the database \n";}
	    echo "detailing the results of the file upload and any errors.</b><br><br>\n";
	    echo "</center>\n";
            echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end if running in background

	if (!$background_flag){echo "Finished sending update emails to all the users<br>\n";}
      }#end if have pedigree_group_id

   #9 If want to upload a file, but haven't selected whether on server or to upload
    if (($want_list == '2') and
        (!preg_match('/^\d$/',$upload_file))
       )
      {
        echo "Please select whether you would like to upload a file from your computer, or \n";
        echo "select a file that is already in your 'Uploaded Data' directory on the server.<br><br>\n";

        echo "<form action=\"delete_pedigree_groups.php\" name=\"form\" method=\"POST\" target=\"main\">\n";
        echo "<input type=\"hidden\" name=\"want_list\" value=\"$want_list\">\n";
        echo "<table align=\"center\">\n";
        echo "<tr><td><input type=\"radio\" name=\"upload_file\" value=\"0\" checked></td><td>Select File in 'Uploaded Data' directory</td></tr>\n";
        echo "<tr><td><input type=\"radio\" name=\"upload_file\" value=\"1\"></td><td>Upload File from Your Computer</td></tr>\n";
        echo "</table>\n";
        echo "<br>\n";

        echo "<table align=\"center\">\n";
        echo "<tr>\n";
        echo "<td><input type=\"submit\" name=\"submit\" value=\"Select File to Delete From\"></td>\n";
        echo "<td><input type=\"reset\" name=\"reset\" value=\"Reset Method to Select File\"></td>\n";
        echo "</tr>\n";
        echo "</table>\n";
        echo "<br><br>\n";

        printLogOutButton('delete_pedigree_groups.php');
      }#end if want to upload file but haven't select way to select

    #10 If want to delete from file, but haven't selected it yet
    if ((($want_list == '2') and
         ($upload_file == '0') and
         (!preg_match('/\w+/',$file_on_server))) or
        (($want_list == '2') and
         ($upload_file == '1') and
         (!is_uploaded_file($_FILES['ped_group_file']['tmp_name'])))
       )
      {
        echo "Please select the file that contains the information to Delete from the Pedigree Group Table.<br>\n";
        echo "<b>Note: All Pedigrees associated with an Pedigree Group will be updated so that they are no longer linked to the group.</b><br><br>\n";
        echo "The file must contain a single column of Pedigree Group Names for the deletion to work correctly:<br>\n";
        echo "<table>\n";
        echo "<tr><td>&nbsp;</td><td><b>Column 1:</b>&nbsp; Pedigree Group Name</td></tr>\n";
        echo "<tr><td>&nbsp;</td><td>(Click <a href=\"../data/test_data/pedigree_group_delete_test_data.txt\" target=\"_blank\">here</a> for an example file.)</td></tr>\n";
        echo "</table>\n";
        echo "<br>\n";
        echo "Each line describes a single pedigree group to be deleted from the database.<br><br>\n\n";

        if ($upload_file == '0') #if want to select file from server
          {
            echo "<form action=\"delete_pedigree_groups.php\" name=\"form\" method=\"POST\" target=\"main\" onSubmit=\"return(Validate(form))\">\n";
            echo "<table align=\"center\">\n";
            echo "<tr>\n";
            echo "<td>File Name:</td><td>\n";
            $jscript = printFileSelectList($_SESSION[user_name],$database_id,'upload');
            if ($jscript == '0')
              {
                $date = date('Y-m-d H:i:s');
                echo "Error #37: $date<br>\n";
                echo "Error in call to printFileSelectList from delete_pedigree_groups.php.<br>\n";
                echo "Please see the error from printFileSelectList above for an explanation.<br><br>\n";
                echo "Please email the above error message using the Comments/Help/Suggestions link \n";
                echo "on the left navigation bar.\n";
                echo "</form>\n";
                echo "</body></html>\n";
                $ret_val = disconnect();
                exit;
              }#end error in call to printFileSelectList
            if ($jscript == '1')
              {
                $date = date('Y-m-d H:i:s');
                echo "</td>\n";
                echo "</tr>\n";
                echo "</table>\n";
                echo "</form>\n";
                echo "<br><br>\n";

                echo "<center>\n";
                echo "<b>There are no files stored for user $_SESSION[user_name] in their uploaded_data directory.</b><br>\n";
                echo "This means either you have not transfered the file to the server, or the file has expired and has been \n";
                echo "deleted from the server.<br> So you need to either transfer the file you are looking for to the server and put it \n";
                echo "in your uploaded_data directory, or upload the file directly from your computer in order to insert the data.<br><br>\n";
                echo "</center>\n\n";

                $ret_val = printLogOutButton('delete_pedigree_groups.php');
                echo "</body></html>\n";
                $ret_val = disconnect();
                exit;
              }#end if no files in users directory to upload
            echo "</td>\n";
            echo "</tr>\n";
            echo "</table>\n";
          }#end if want to select file from server
        if ($upload_file == '1') #if want to upload file from users computer
          {
            echo "<form action=\"delete_pedigree_groups.php\" enctype=\"multipart/form-data\" name=\"form\" method=\"POST\" target=\"main\" onSubmit=\"return(Validate(form))\">\n";
            echo "<table align=\"center\">\n";
	    echo "<tr><td>File Name:</td><td><input type=\"file\" name=\"ped_group_file\" size=\"20\"></td></tr>\n";
            echo "</table>\n";
          }
        echo "<br><br>\n";

        echo "<input type=\"hidden\" name=\"want_list\" value=\"$want_list\">\n";
        echo "<input type=\"hidden\" name=\"upload_file\" value=\"$upload_file\">\n";
        echo "<table align=\"center\">\n";
        echo "<tr>\n";
        echo "<td><input type=\"submit\" name=\"submit\" value=\"Delete Data in File from Database\"></td>\n";
        echo "<td><input type=\"reset\" name=\"reset\" value=\"Reset Selected File\"></td>\n";
        echo "</tr>\n";
        echo "</table>\n";
        echo "</form>\n\n";

        printLogOutButton('delete_pedigree_groups.php');
        echo "\n\n";

        echo "<script>\n";
        echo "function Validate(form)\n";
        if ($upload_file == '0'){echo "$jscript\n";}
        if ($upload_file == '1')
          {
            echo "{\n";
            echo " if (form.ped_group_file.value == \"\"){\n";
            echo "   alert(\"You Must Upload a File\");\n";
            echo "   form.ped_group_file.focus();\n";
            echo "   return false;}\n";
            echo " else{return true;}\n";
            echo "}\n";
          }
        echo "</script>\n";
      }#end if want to delete from file, but haven't selected it yet

    #13 Have file, now delete data
    if ((($want_list == '2') and 
         ($upload_file == '0') and 
         (preg_match('/\w+/',$file_on_server))) or
        (($want_list == '2') and
         ($upload_file == '1') and
         (is_uploaded_file($_FILES['ped_group_file']['tmp_name'])))
       )
      {
        if ($upload_file == '0')
          {
            $uploaded_file_name = "../"."$file_on_server";
            $uploaded_file_size = @filesize("$file_on_server");
            if (!$uploaded_file_size)
              {
                $command = "stat -c %s $file_on_server";
                exec($command,$output_array);
                $uploaded_file_size = $output_array[0];
              }#end if file too big for php
          }#end else file already on server
        if ($upload_file == '1')
          {
            $rand_num = rand();
            $file_name = "delete_ped_group_data_upload_".$rand_num.".txt";
            $ret_val = move_uploaded_file($_FILES['ped_group_file']['tmp_name'],"../data/uploaded_data/$_SESSION[user_name]/$file_name");
	    if (!$ret_val)
              {
                $date = date('Y-m-d H:i:s');
	        echo "Error #38: $date<br>\n";
	        echo "Error in call to delete_pedigree_groups.php<br>\n";
	        echo "Unable to move uploaded file inorder to read it.<br><br>\n";
	        echo "Please email the above error message using the Comments/Help/Support link on \n";
	        echo "the left navigation bar.\n";
	        echo "</body></html>\n";
	        $ret_val = disconnect();
	        exit;
	      }#end if (!ret_val)
            $uploaded_file_name = "../../data/uploaded_data/$_SESSION[user_name]/$file_name";
            $uploaded_file_size = @filesize("../data/uploaded_data/$_SESSION[user_name]/$file_name");
            if (!$uploaded_file_size)
              {
                $command = "stat -c %s ../data/uploaded_data/$_SESSION[user_name]/$file_name";
                exec($command,$output_array);
                $uploaded_file_size = $output_array[0];
              }#end if file too big for php
          }#end if file uploaded from user's computer
        $user_file = 1;

        echo "Now Updating the Information in the Database and Deleting the Pedigree Groups in the file.<br><br>\n";
        
        $ret_val = chdir("../bin/database_query_scripts/");
        if (!$ret_val)
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #39: $date<br>\n";
            echo "Error in call to chdir from delete_pedigree_groups.php<br>\n";
            echo "Unable to change directory to database query scripts directory<br><br>\n";
            echo "Please email the above error using Comments/Help/Support link \n";
	    echo "in the left navigation bar.<br>\n";
	    echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end error in call to chdir

	if ($uploaded_file_size > $max_file_size_to_wait_to_run)
          {
            $background_flag = 1;
            if ($uploaded_file_size >= $max_file_size_not_to_split)
              {
                $found = preg_match('/^(.+\/)([^\/]+)$/',$uploaded_file_name,$captured);
                $path          = $captured[1];
                $file_name     = $captured[2];
                $sub_file_name = "sub_"."$file_name";
                $prefix        = "$path"."$sub_file_name";
                $prefix        = preg_replace('/\.\w+$/','_',$prefix);

                $command = "split -a5 --lines=$num_lines_to_split_files $uploaded_file_name $prefix";
                if (sizeof($output_array) > '0'){$output_array = array();}
                exec($command,$output_array,$return_code);
                if ($return_code)
                  {
                    $err_msg = implode("\n",$output_array);
                    $date = date('Y-m-d H:i:s');
                    echo "Error #40: $date<br>\n";
                    echo "Error in call to exec to split file from delete_pedigree_groups.php<br>\n";
                    echo "$err_msg<br><br>\n";
                    echo "Please email the above error using the Comments/Help/Support link on the \n";
	            echo "left navigation bar.\n";
	            echo "</form>\n";
	            echo "</body></html>\n";
	            $ret_val = disconnect();
	            exit;
	          }#end if error in exec call to split file
                $file_array = glob("$prefix*");
                $num_files_split = sizeof($file_array);
                sort($file_array);
                foreach ($file_array as $key=>$file)
                  {
                    $command = "./delete_data_from_database.php '$user_file' '$file' '$database_id' ";
                    $command.= "'Delete Pedigree Groups' '$_SESSION[user_name]' '$background_flag' >> dummy_delete_data_background_output.txt &";

                    $last_line = system($command,$sys_ret_val);
                    if ($sys_ret_val != '0')
	              {
	                $date = date('Y-m-d H:i:s');
	                echo "Error #41: $date<br>\n";
	                echo "Error in system call to delete_data_from_database.php from delete_pedigree_groups.php<br>\n";
	                echo "The return value of the sytem call was $sys_ret_val<br><br>\n";
                        echo "Please email the above error using the Comments/Help/Support link on the \n";
	                echo "left navigation bar.\n";
	                echo "</form>\n";
	                echo "</body></html>\n";
	                $ret_val = disconnect();
	                exit;
	              }#end if error in system call
                  }#end foreach sub file
              }#end if file too big for php
            else #don't need to split file
              {
                $command = "./delete_data_from_database.php '$user_file' '$uploaded_file_name' '$database_id' ";
                $command.= "'Delete Pedigree Groups' '$_SESSION[user_name]' '$background_flag' >> dummy_delete_data_background_output.txt &";

                $last_line = system($command,$sys_ret_val);
                if ($sys_ret_val != '0')
	          {
	            $date = date('Y-m-d H:i:s');
	            echo "Error #42: $date<br>\n";
	            echo "Error in system call to delete_data_from_database.php from delete_pedigree_groups.php<br>\n";
	            echo "The return value of the sytem call was $sys_ret_val<br><br>\n";
                    echo "Please email the above error using the Comments/Help/Support link on the \n";
	            echo "left navigation bar.\n";
	            echo "</form>\n";
	            echo "</body></html>\n";
	            $ret_val = disconnect();
	            exit;
	          }#end if error in system call
              }#end else don't need to split file
          }#end if run in background
        else #run in foreground
          {
            $background_flag = 0;
            $command = "./delete_data_from_database.php '$user_file' '$uploaded_file_name' '$database_id' 'Delete Pedigree Groups' '$_SESSION[user_name]' '$background_flag' ";

            passthru($command,$sys_ret_val);
            if ($sys_ret_val != '0')
	      {
                echo "<br><br>\n";
	        $date = date('Y-m-d H:i:s');
	        echo "Error #43: $date<br>\n";
	        echo "Error in system call to delete_data_from_database.php from delete_pedigree_groups.php<br>\n";
	        echo "See the error message above for an explanation of the error<br><br>\n";
                echo "Please email the above error using the Comments/Help/Support link on the \n";
	        echo "left navigation bar.\n";
	        echo "</form>\n";
	        echo "</body></html>\n";
	        $ret_val = disconnect();
	        exit;
	      }#end if error in system call
          }#end else run in foreground

	$ret_val = chdir("../../cgi-bin/");
        if (!$ret_val)
          {
            $date = date('Y-m-d H:i:s');
            echo "Error #44: $date<br>\n";
            echo "Error in call to chdir from delete_pedigree_groups.php<br>\n";
            echo "Unable to change directory to cgi-bin directory<br><br>\n";
            echo "Please email the above error using Comments/Help/Support link \n";
	    echo "in the left navigation bar.<br>\n";
	    echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end error in call to chdir

        if ($background_flag)
          {
            echo "<center>\n";
	    echo "<b>The data you uploaded is being inserted into the database.<br>\n";
            if ($uploaded_file_size >= $max_file_size_not_to_split)
              {
                echo "The file was too large to handle, so it was split into $num_files_split sub files, and each \n";
                echo "sub file is being processed separately.  So you will recieve an email when the data in each sub file \n";
                echo "has been deleted from the database \n";
              }#end if split file
	    else {echo "You will receive an email when all the data has been deleted from the database \n";}
	    echo "detailing the results of the file upload and any errors.</b><br><br>\n";
	    echo "</center>\n";
            echo "</body></html>\n";
            $ret_val = disconnect();
            exit;
          }#end if running in background

	if (!$background_flag){echo "Finished sending update emails to all the users<br>\n";}
      }#end if have file
  }#end if (auth_user == '1')
$ret_val = disconnect();
echo "</body></html>\n";
?>
Return current item: Generic Genetic Studies Database