<?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> </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> </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> </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> </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> </td><td><b>Column 1:</b> Pedigree Group Name</td></tr>\n";
echo "<tr><td> </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";
?>