admin/include/delete.php

<?php
/**********************************************************
Function Library: delete.php
Original Author: Paul Bramscher <brams006@umn.edu>
Last Modified: 03.16.2004 by Paul Bramscher
***********************************************************
Comments:
This library brings together all SQL delete functions
and confirm delete prompts for LibData general setup
tables.  Those pertaining to PageScribe and SubjectBuilder
are located in scribe_application.php and
subject_builder.php respectively.
***********************************************************
Table of Contents:
deleteCampus
deleteCampusConfirm
deleteCoursesub
deleteCoursesubConfirm
deleteFaculty
deleteFacultyConfirm
deleteFeature
deleteFeatureConfirm
deleteInfotype
deleteInfotypeConfirm
deleteLibunit
deleteLibunitConfirm
deleteLibunitStaff
deleteLocation
deleteLocationConfirm
deleteMasterinfotype
deleteMasterinfotypeConfirm
deleteMastersubject
deleteMastersubjectConfirm
deleteResFeature
deleteResLoc
deleteResMastersubject
deleteResource
deleteResourceConfirm
deleteService
deleteServiceConfirm
deleteServicetype
deleteServicetypeConfirm
deleteServLoc
deleteServServtype
deleteStaff
deleteStaffConfirm
deleteStaffLibunit
deleteStaffSub
deleteStafftitle
deleteStafftitleConfirm
deleteStyle
deleteStyleConfirm
deleteSubCoursesub
deleteSubject
deleteSubjectConfirm
deleteSubLoc
deleteSubMaster
deleteSubStaff
deleteTerm
deleteTermConfirm
deleteVendor
deleteVendorConfirm
**********************************************************/


/********************************************************** 
Function: deleteCampus
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Deletes a supplied campus id, sets affected course
pages to NULL campus.
**********************************************************/
function deleteCampus($campus_id){

        msgTableOpen(1, "Deleting Campus (ID# " . $campus_id . ")");
        printf("<b>Messages:</b><br>\n");

        // Cannot delete placeholder #1.
        if ($campus_id > 1) {
        
                // First clear out any coursescribe pages
                $sql = "UPDATE course SET campus_id = NULL WHERE campus_id = " . $campus_id;
                if (xx_tryquery($sql)) printf("Campus purged from assignments to course pages.<br>\n");

                // Delete from the coursesub table
                $sql = "UPDATE coursesub SET campus_id = 1 WHERE campus_id =" . $campus_id;             
                if (xx_tryquery ($sql)) printf("Removed from affected Course Subjects.<br>\n");

                // Delete from the campus table
                $sql = "DELETE FROM campus WHERE campus_id =" . $campus_id;
                if (xx_tryquery ($sql)) printf("Removed this campus successfully.");

        }
        else printf("Cannot delete Campus ID# 1, it acts as a system placeholder.");

        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteCampusConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt for deleting the selected campus.
**********************************************************/
function deleteCampusConfirm($key_id){

        $campus_id = (int) $key_id;
        msgTableOpen(1, "Delete Campus (ID# " . $campus_id . ")?");

        // Check to see if its possible
        $exists = existsRow("campus", "campus_id", $campus_id);
        if ($exists > 0){
                
                // Lookup the descriptive title
                $campus = lookupField("campus", "campus_id", $campus_id, "campus");
                printf("<b>Campus:</b> %s<br><br>\n ", $campus);
                printf("This will permanently remove this campus and its various assignments from the system. Some CourseScribe pages may lose their campus association.<BR><BR>\n");

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteCampus\" >\n");
                printf("<input type = \"Hidden\" name = \"campus_id\" value = \"%d\" >\n", $campus_id);
                printf("<center>\n");
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");

        }
        else if ($exists < 1) printf ("Campus not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();        
        
}


/********************************************************** 
Function: deleteCoursesub
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Deletes a supplied course subject id
**********************************************************/
function deleteCoursesub($coursesub_id){

        msgTableOpen(1, "Deleting Course Subject (ID# " . $coursesub_id . ")");
        printf("<b>Messages:</b><br>\n");

        // Cannot delete placeholder #1.
        if ($coursesub_id > 1) {
        
                // Check to see if there are affected courselib pages
                $exists_courselib = existsRow("course", "coursesub_id", $coursesub_id);

                if ($exists_courselib > 0) {
                        printf("Cannot delete this Course Subject.  There are courses which are currently using it.");
                }

                // Delete
                else {
                        // Delete from the sub_coursesub table
                        $sql = "DELETE FROM sub_coursesub WHERE coursesub_id = " . $coursesub_id;
                        if (xx_tryquery ($sql)) printf("Subject-Course Subject assignments removed.<BR>\n");

                        // Delete from the coursesub table
                        $sql = "DELETE FROM coursesub WHERE coursesub_id =" . $coursesub_id;
                        if (xx_tryquery ($sql)) printf("Removed this Course Subject successfully.");
                }

        }
        else printf ("Cannot delete Course Subject ID# 1, it acts as a system placeholder.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteCoursesubConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt for deleting the selected campus.
**********************************************************/
function deleteCoursesubConfirm($coursesub_id){

        $coursesub_id = (int) $coursesub_id;
        msgTableOpen(1, "Delete Course Subject (ID# " . $coursesub_id . ")?");

        // Check to see if its possible
        $exists = existsRow("coursesub", "coursesub_id", $coursesub_id);
        if ($exists > 0){

                // Lookup the descriptive title
                $coursesub = lookupField("coursesub", "coursesub_id", $coursesub_id, "coursesub");

                // Check to see if there are affected courselib pages
                $exists_courselib = existsRow("course", "coursesub_id", $coursesub_id);

                if ($exists_courselib > 0) {
                
                        // Cannot delete, dependencies exist
                        printf("<b>Messages:</b><br>\n");                       
                        printf("This course subject is currently used on one or more course pages.  ");
                        printf("It may not be edited or deleted until all affected courses are moved to ");
                        printf("an alternate course subject. Follow the link below for a list of ");
                        printf("affected pages.<br><br>");
                        printf("<a href=\"page_results_brief.phtml?coursesub_id=%s\">", $coursesub_id);
                        printf("page_results_brief.phtml?coursesub_id=%s", $coursesub_id);
                        printf("</a><br><br>\n");

                }

                else {

                        // Form to draw the delete button
                        printf("<b>Course Subject:</b> %s<br><br>\n ", $coursesub);     
                        printf("This will permanently remove this Course Subject.<BR><BR>\n");
                        printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                        printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteCoursesub\" >\n");
                        printf("<input type = \"Hidden\" name = \"coursesub_id\" value = \"%d\" >\n", $coursesub_id);
                        printf("<center>\n");
                        printf("<input type =\"Submit\" value=\"Delete!\">\n");
                        printf("</center>\n");
                        printf("</form>\n");

                }

        }
        else if ($exists < 1) printf ("Course Subject not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteFaculty
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Deletes the supplied faculty id, and removes any relations
to affected courses.
**********************************************************/
function deleteFaculty($faculty_id){

        msgTableOpen(1, "Deleting Faculty (ID# " . $faculty_id . ")");
        printf("<b>Messages:</b><br>\n");

        // Cannot delete placeholder #1.
        if ($faculty_id > 1) {
        
                // First clear out the course_personnel assignments     
                $sql = "DELETE FROM course_personnel WHERE faculty_id = " . $faculty_id;
                if (xx_tryquery ($sql)) printf("Faculty person purged from assignments to course pages.<BR>\n");

                // Delete from the faculty table
                $sql = "DELETE FROM faculty WHERE faculty_id =" . $faculty_id;
                if (xx_tryquery ($sql)) printf("Removed this faculty person successfully.");

        }
        else printf ("Cannot delete Faculty ID# 1, it acts as a system placeholder.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteFacultyConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt for deleting the selected faculty person. 
**********************************************************/
function deleteFacultyConfirm($faculty_id){

        $faculty_id = (int) $faculty_id;
        msgTableOpen(1, "Delete Faculty (ID# " . $faculty_id . ")?");

        // Check to see if its possible
        $exists = existsRow("faculty", "faculty_id", $faculty_id);
        if ($exists > 0){

                // Lookup the descriptive title
                $faculty_name = lookupFaculty($faculty_id);
                printf("<b>Faculty Person:</b> %s<br><br>\n ", $faculty_name);
                printf("This will permanently remove the faculty person and his/her various assignments from the system. Some CourseScribe pages may have no personnel.<BR><BR>\n");

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteFaculty\" >\n");
                printf("<input type = \"Hidden\" name = \"faculty_id\" value = \"%d\" >\n", $faculty_id);    
                printf("<center>\n");
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }
        else if ($exists < 1) printf ("Faculty not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteFeature
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Deletes the supplied feature id, and removes any relations to
affected resources.
**********************************************************/
function deleteFeature($feature_id){

        msgTableOpen(1, "Deleting Feature (ID# " . $feature_id . ")");
        printf("<b>Messages:</b><br>\n");

        // Cannot delete placeholder #1
        if ($feature_id > 1) {

                // Delete all resource_feature assignments
                $sql = "DELETE from res_feature WHERE feature_id =" . $feature_id;
                if (xx_tryquery ($sql)) printf("Removed resource-feature associations.<BR>\n");

                // Delete from feature table
                $sql = "DELETE FROM feature WHERE feature_id =" . $feature_id;
                if (xx_tryquery ($sql)) printf("Removed feature successfully.");

        }
        else printf ("Cannot delete Feature ID# 1, it acts as a system placeholder.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteFeatureConfirm  
Author: Paul Bramscher  
Last Modified: 03.15.2004
***********************************************************
Purpose:
Confirm prompt for deleting the supplied feature id.
**********************************************************/
function deleteFeatureConfirm($key_id){

        $feature_id = (int) $key_id;
        msgTableOpen(1, "Delete Feature (ID# " . $feature_id . ")?");

        // Check to see if its possible
        $exists = existsRow("feature", "feature_id", $feature_id);
        if ($exists > 0){

                // Lookup the descriptive title
                $feature = lookupField("feature", "feature_id", $feature_id, "feature");
                printf("<b>Feature:</b> %s<br><br>\n ", $feature);
                printf("This will permanently remove the feature and its various assignments from the system. Some resources may no longer have icons.<BR><BR>\n");

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteFeature\" >\n");
                printf("<input type = \"Hidden\" name = \"feature_id\" value = \"%d\" >\n", $feature_id);    
                printf("<center>\n");
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }
        else if ($exists < 1) printf ("Feature not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteInfotype
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Deletes the supplied information type id, and removes
assocations in the resource and resource-subject-information
type tables.
**********************************************************/
function deleteInfotype($infotype_id){

        msgTableOpen(1, "Deleting Information Type (ID# " . $infotype_id . ")");
        printf("<b>Messages:</b><br>\n");

        // Cannot delete placeholder #1
        if ($infotype_id > 1) {

                // Delete all res_sub_infotype assignments
                $sql = "DELETE from res_sub_infotype WHERE infotype_id =" . $infotype_id;
                if (xx_tryquery ($sql)) printf("Removed resource-subject-infotype associations.<BR>\n");

                // Set (N/A) type in resource table
                $sql = "UPDATE resource SET infotype_id = 1 WHERE infotype_id =" . $infotype_id;
                if (xx_tryquery ($sql)) printf("Set default information types for affects resources to (N/A).<BR>\n");

                // Delete from infotype table
                $sql = "DELETE FROM infotype WHERE infotype_id =" . $infotype_id;
                if (xx_tryquery ($sql)) printf("Removed this information type successfully.");
        }
        else printf ("Cannot delete Information Type ID# 1, it acts as a system placeholder.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteInfotypeConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt to delete the supplied information type id.
**********************************************************/
function deleteInfotypeConfirm($key_id){

        $infotype_id = (int) $key_id;
        msgTableOpen(1, "Delete Information Type (ID# " . $infotype_id . ")?");

        // Check to see if its possible
        $exists = existsRow("infotype", "infotype_id", $infotype_id);
        if ($exists > 0){

                // Lookup the descriptive title
                $infotype = lookupField("infotype", "infotype_id", $infotype_id, "infotype");
                printf("<b>Information Type:</b> %s<br><br>\n ", $infotype);
                printf("This will permanently remove the Information Type and its various assignments from the system. <b>Affected resource-subject-infotype assignments on RQS pages will be broken, and therefore removed!</b>  Be sure to re-assign important resources to another information type before deleting this one.<BR><BR>\n");
                printf("Check the <b><a href=\"infotype_drill.phtml?infotype_id=%d\">Information Type Detail<a></b> page to display affected RQS pages.", $infotype_id);

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteInfotype\" >\n");
                printf("<input type = \"Hidden\" name = \"infotype_id\" value = \"%d\" >\n", $infotype_id);
                printf("<br><br>\n");
                printf("<center>\n");
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }       
        else if ($exists < 1) printf ("Information Type not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteLibunit
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Deletes the supplied libunit id, and any staff assignments
in that library unit.
**********************************************************/
function deleteLibunit($libunit_id){

        msgTableOpen(1, "Deleting Library Unit (ID# " . $libunit_id . ")");
        printf("<b>Messages:</b><br>\n");

        // First delete from libunit_staff
        if ($libunit_id > 1) {
                $sql = "DELETE FROM libunit_staff WHERE libunit_id = " . $libunit_id;
                if (xx_tryquery ($sql)) printf("Deleted affected Library Unit staff assignments.<BR>\n");

                // Delete from the libunit table
                $sql = "DELETE FROM libunit WHERE libunit_id =" . $libunit_id;
                if (xx_tryquery ($sql)) printf("Removed this Library Unit successfully.");

        }
        else printf ("Cannot delete Library Unit ID# 1, it acts as a system placeholder.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteLibunitConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt for deleting the supplied libunit id.
**********************************************************/
function deleteLibunitConfirm($key_id){

        $libunit_id = (int) $key_id;
        msgTableOpen(1, "Delete Library Unit (ID# " . $libunit_id . ")?");

        // Check to see if its possible
        $exists = existsRow("libunit", "libunit_id", $libunit_id);
        if ($exists > 0){

                // Lookup the descriptive title
                $libunit = lookupField("libunit", "libunit_id", $libunit_id, "libunit");
                printf("<b>Libunit:</b> %s<br><br>\n ", $libunit);
                printf("This will permanently remove this Library Unit from the system.  This may render some staff without a unit.<BR><BR>");

                // Form to draw the delete button       
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteLibunit\" >\n");
                printf("<input type = \"Hidden\" name = \"libunit_id\" value = \"%d\" >\n", $libunit_id);    
                printf("<center>\n");
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }
        else if ($exists < 1) printf ("Library Unit not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteLibunitStaff
Author: Paul Bramscher
Last Modified: 03.03.2004
***********************************************************
Purpose:
Deletes staffperson assignments (possibly multiple) to the
supplied libunit id and calls formLibunit back again.
**********************************************************/
function deleteLibunitStaff($key_list_array, $libunit_id){

        for ($element = 0; $element < sizeof($key_list_array); $element++) {
                $sql = "DELETE FROM libunit_staff WHERE libunit_id = "
                        . $libunit_id
                        . " AND staff_id = "
                        . $key_list_array[$element];
                xx_tryquery($sql);
        }
        // Call the libunit form back
        formLibunit($libunit_id);
}


/********************************************************** 
Function: deleteLocation
Author: Paul Bramscher
Last Modified: 03.15.2004
***********************************************************
Purpose:
Deletes the supplied location id, and removes associations
in the resource-location, subject-location, and
service-location tables.  Also converts any relational
location references in Page/CourseScribe pages to text-type
fields (non-relational), as well as all user copy-paste
buffers.
**********************************************************/
function deleteLocation($delMessage, $location_id){

        msgTableOpen(1, "Deleting Location (ID# " . $location_id . ")");
        printf("<b>Messages:</b><br>\n");

        // Cannot delete placeholder #1
        if ($location_id > 1) {
        
                // First delete from res_loc    
                $sql = "DELETE FROM res_loc WHERE location_id = " . $location_id;
                if (xx_tryquery ($sql)) printf("Affected resource-location assignments removed.<BR>\n");

                // Delete from sub_loc
                $sql = "DELETE FROM sub_loc WHERE location_id =" . $location_id;
                if (xx_tryquery ($sql)) printf("Affected subject-location assignments removed.<BR>\n");

                // Delete primary subject locations
                $sql = "UPDATE subject SET sublocation_id = NULL WHERE sublocation_id =" . $location_id;
                if (xx_tryquery ($sql)) printf("Affected primary subject locations set to NULL.<BR>\n");

                // Delete from serv_loc
                $sql = "DELETE FROM serv_loc WHERE location_id =" . $location_id;
                if (xx_tryquery ($sql)) printf("Affected service-location assignments removed.<BR>\n");

                /********************************
                ** Update affected CL/PS pages **
                ********************************/

                // First, get the default location description and title
                $sql = "SELECT location, location_descr FROM location WHERE location_id = "
                        . $location_id; 
                $rs = xx_tryquery($sql);
                $row = xx_fetch_array ($rs, xx_ASSOC);
                $location = $row["location"];
                $location_descr = $row["location_descr"];

                // Clean up strings
                $location_descr = textInmySQL($location_descr);
                $location = textInmySQL($location);
                $delMessage = textInmySQL($delMessage);

                // Next, append the reason for deletion to the description
                if (strlen($location_descr) > 0) $location_descr .= "<BR>" . $delMessage;
                else $location_descr = $delMessage;

                // Update all of the elements using this resource with a custom description.
                $sql = "UPDATE element SET label = '"
                        . $location
                        . "', element_descr = CONCAT(element_descr, '<BR>"
                        . $delMessage
                        . "'), location_id = NULL WHERE location_id =" . $location_id
                        . " AND (element_descr IS NOT NULL OR element_descr != '')";
                if (xx_tryquery ($sql)) printf("Added delete message to custom PageScribe descriptions.<BR>\n");

                // Next, update all of the elements using this resource without a custom description.
                $sql = "UPDATE element SET label = '"
                        . $location
                        . "', element_descr = '"
                        . $location_descr
                        . "', location_id = NULL WHERE location_id =" . $location_id
                        . " AND (element_descr IS NULL OR element_descr = '')";
                if (xx_tryquery ($sql)) printf("Added delete message to default PageScribe descriptions.<BR>\n");

                /**********************************
                ** Update affected CL/PS buffers **
                **********************************/

                // Update all of the elements using this location with a custom description.
                $sql = "UPDATE pastebuffer SET label = '"
                        . $location
                        . "', element_descr = CONCAT(element_descr, '<BR>"
                        . $delMessage
                        . "'), location_id = NULL WHERE location_id =" . $location_id
                        . " AND (element_descr IS NOT NULL OR element_descr != '')";
                if (xx_tryquery ($sql)) printf("Added delete message to custom PageScribe descriptions (buffers).<BR>\n");

                // Next, update all of the elements using this location without a custom description.
                $sql = "UPDATE pastebuffer SET label = '"
                        . $location
                        . "', element_descr = '"
                        . $location_descr
                        . "', location_id = NULL WHERE location_id =" . $location_id
                        . " AND (element_descr IS NULL OR element_descr = '')";
                if (xx_tryquery ($sql)) printf("Added delete message to default PageScribe descriptions (buffers).<BR>\n");

                // Delete from location
                $sql = "DELETE FROM location WHERE location_id =" . $location_id;
                if (xx_tryquery ($sql)) printf("Location successfully removed.");

        }
        else printf ("Cannot delete Location ID# 1, it acts as a system placeholder.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteLocationConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt to delete the supplied location id.
**********************************************************/
function deleteLocationConfirm($key_id){

        $location_id = (int) $key_id;
        msgTableOpen(1, "Delete Location (ID# " . $location_id . ")?");

        // Check to see if its possible
        $exists = existsRow("location", "location_id", $location_id);
        if ($exists > 0){

                // Lookup the name of the location
                $location = lookupField("location", "location_id", $location_id, "location");
                printf("<b>Location:</b> %s<br><br>\n ", $location);

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteLocation\" >\n");
                printf("<input type = \"Hidden\" name = \"location_id\" value = \"%d\" >\n", $location_id);
                
                // Delete message
                printf("<b>Message to appear on affected PageScribe Pages</b> (75 char max.):<br>\n");
                printf("<input type=\"text\" name=\"delMessage\" value=\"[Location no longer available]\" size=\"75\"><br><br>\n");

                // Warning
                printf("This will permanently remove the location and its various assignments from the system.<BR><BR>\n");

                // Delete button
                printf("<center>\n");           
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }       
        else if ($exists < 1) printf ("Location not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteMasterinfotype
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Delete the supplied master information type id.  Note that
this function has some additional relational constraints
on it.  All information types below it are also deleted
(not merely having their relationships removed!), as
well as their resource-subject-information type assignments.
This can have potentially large impact.
**********************************************************/
function deleteMasterinfotype($masterinfotype_id){

        msgTableOpen(1, "Deleting Master Information Type (ID# " . $masterinfotype_id . ")");
        printf("<b>Messages:</b><br>\n");

        // Cannot delete placeholder #1
        if ($masterinfotype_id > 1) {

                // Do the following for every information type affected
                $sql = "SELECT infotype, infotype_id FROM infotype where masterinfotype_id = "
                        . $masterinfotype_id;
                        
                // Fetch the values
                $rs = xx_tryquery($sql);
                while ($row = xx_fetch_array ($rs, xx_ASSOC)) {
                        $infotype_id = $row["infotype_id"];
                        $infotype = $row["infotype"];
                        
                        // Display the affected information type currently being processed
                        printf("Deleting affected Information Type <b>%s</b> (%d)<BR>\n", $infotype, $infotype_id);

                        // Delete all res_sub_infotype assignments
                        $sql = "DELETE from res_sub_infotype WHERE infotype_id =" . $infotype_id;
                        if (xx_tryquery ($sql)) printf("Removed resource-subject-infotype associations.<BR>\n");

                        // Set (N/A) type in resource table
                        $sql = "UPDATE resource SET infotype_id = 1 WHERE infotype_id =" . $infotype_id;
                        if (xx_tryquery ($sql)) printf("Set default information types for affects resources to (N/A).<BR>\n");

                        // Delete from infotype table
                        $sql = "DELETE FROM infotype WHERE infotype_id =" . $infotype_id;
                        if (xx_tryquery ($sql)) printf("Removed affected specific information types.<BR>\n");
                }
                
                // Delete from masterinfotype table
                $sql = "DELETE FROM masterinfotype WHERE masterinfotype_id =" . $masterinfotype_id;
                if (xx_tryquery ($sql)) printf("Removed Master Information Type successfully.");

        }
        else printf ("Cannot delete Master Information Type ID# 1, it acts as a system placeholder.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteMasterinfotypeConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt for deleting the supplied master information
type id.  Note the dire warning.
**********************************************************/
function deleteMasterinfotypeConfirm($key_id){

        $masterinfotype_id = (int) $key_id;
        msgTableOpen(1, "Delete Master Information Type (ID# " . $masterinfotype_id . ")?");

        // Check to see if its possible
        $exists = existsRow("masterinfotype", "masterinfotype_id", $masterinfotype_id);
        if ($exists > 0){

                // Lookup the descriptive title
                $masterinfotype = lookupField("masterinfotype", "masterinfotype_id", $masterinfotype_id, "masterinfotype");
                printf("<b>Master Information Type:</b> %s<br><br>\n ", $masterinfotype);
                printf("This will permanently remove the Master Information Type and its various assignments from the system. ");
                printf("A potentially large deletion cascade may result, since deleting a Master Information Type will delete all Information Types below it. ");
                printf("<b>All affected resource-subject-infotype assignments on RQS pages will be broken, and therefore removed!</b> ");
                printf("Be sure to re-assign important resources to another specific Information Type, and assign it to a safe Master Information Type before deleting this one.<br><br>");
                printf("Do not proceed unless you are <b>VERY</b> sure of what you're doing.<br><br>\n");
                printf("Check the <b><a href=\"masterinfotype_drill.phtml?masterinfotype_id=%d\">Master Information Type Detail<a></b> page to display affected Information Types and drill down further.", $masterinfotype_id);
                printf("<br><br>\n");

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteMasterinfotype\" >\n");
                printf("<input type = \"Hidden\" name = \"masterinfotype_id\" value = \"%d\" >\n", $masterinfotype_id);
                printf("<center>\n");
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }
        else if ($exists < 1) printf ("Master Information Type not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteMastersubject
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Delete the supplied master subject id, and removes
associations in the subject-mastersubject,
resource-mastersubject tables.  Currently the system will
prompt the user, telling them that dependencies were
found, and offer the mastersubject drill down page.  So,
theoretically, the additional cascades here aren't
necessary.
**********************************************************/
function deleteMastersubject($mastersubject_id){

        msgTableOpen(1, "Deleting Master Subject (ID# " . $mastersubject_id . ")");
        printf("<b>Messages:</b><br>\n");

        // Cannot delete placeholder #1
        if ($mastersubject_id > 1) {

                // Delete from sub_mastersubject
                $sql = "DELETE FROM sub_mastersubject WHERE mastersubject_id =" . $mastersubject_id;
                if (xx_tryquery ($sql)) printf("Affected subject-mastersubject assignments removed.<BR>\n");

                // Delete from res_mastersubject
                $sql = "DELETE FROM res_mastersubject WHERE mastersubject_id =" . $mastersubject_id;
                if (xx_tryquery ($sql)) printf("Affected resource-mastersubject assignments removed.<BR>\n");

                // Delete from mastersubject table
                $sql = "DELETE FROM mastersubject WHERE mastersubject_id =" . $mastersubject_id;
                if (xx_tryquery ($sql)) printf("Removed Master Subject successfully.");

        }
        else printf ("Cannot delete Master Subject ID# 1, it acts as a system placeholder.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteMastersubjectConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt to delete the supplied mastersubject id.
This function also performs some lookups to determine
whether any subjects or resources might be affected by
a delete operation.  If so, the user is presented with a
link to the drilldown page and may not delete this
mastersubject.
**********************************************************/
function deleteMastersubjectConfirm($key_id){

        $mastersubject_id = (int) $key_id;
        msgTableOpen(1, "Delete Master Subject (ID# " . $mastersubject_id . ")?");

        // Check to see if its possible
        $exists = existsRow("mastersubject", "mastersubject_id", $mastersubject_id);
        if ($exists > 0 && $mastersubject_id > 2){

                // Lookup the descriptive title
                $mastersubject = lookupField("mastersubject", "mastersubject_id", $mastersubject_id, "mastersubject");
                printf("<b>Master Subject:</b> %s<br><br>\n ", $mastersubject);

                // Determine whether any subjects or resources are affected
                $problem = 0;
                
                // Check subjects
                $sql = "SELECT COUNT(sm.subject_id) as num_subjects FROM sub_mastersubject sm WHERE sm.mastersubject_id ="
                        . $mastersubject_id;
                $rs = xx_tryquery($sql);
                $row = xx_fetch_array ($rs, xx_ASSOC);
                $num_subjects = $row["num_subjects"];
                if ($num_subjects > 0) $problem = 1;
                
                // Check resources
                $sql = "SELECT COUNT(rm.resource_id) as num_resources FROM res_mastersubject rm WHERE rm.mastersubject_id = "
                        . $mastersubject_id;
                $rs = xx_tryquery($sql);
                $row = xx_fetch_array ($rs, xx_ASSOC);
                $num_resources = $row["num_resources"];
                if ($num_resources > 0) $problem = 1;
                
                // Proceed only if no subjects or resources are affected
                if ($problem == 0) {
                        // Form to draw the delete button
                        printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                        printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteMastersubject\" >\n");
                        printf("<input type = \"Hidden\" name = \"mastersubject_id\" value = \"%d\" >\n", $mastersubject_id);
                        printf("This will permanently remove the Master Subject from the system. ");
                        printf("Are you sure you want to proceed?<br><br>\n");
                        printf("<center>\n");
                        printf("<input type =\"Submit\" value=\"Delete!\">\n");
                        printf("</center>\n");
                        printf("</form>\n");
                }

                // There was a problem of some sort.
                else {
                        printf("Dependencies were found.  Master Subjects may not be deleted if there are resources or ");
                        printf("specific subjects assigned to them.  ");
                        printf("Examine the <a href=\"mastersubject_drill.phtml?mastersubject_id=%d\">Master Subject Detail</a></b> page.\n", $mastersubject_id);
                        printf("<br><br>\n");
                }
                
        }
        else if ($exists < 1) printf ("Master Subject not found.  Operation cancelled.<br><br>\n");
        else if ($mastersubject_id < 3) printf("Master Subjects ID's #1 and #2 cannot be deleted.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteResFeature
Author: Paul Bramscher
Last Modified: 03.02.2004
***********************************************************
Purpose:
Deletes resource-feature associations based on the supplied
feature id (possibly multiple) and calls formResource back
again.
**********************************************************/
function deleteResFeature($key_list_array, $resource_id){

        for ($element = 0; $element < sizeof($key_list_array); $element++) {
        
                $sql = "DELETE FROM res_feature WHERE resource_id = "
                        . $resource_id
                        . " AND feature_id = "
                        . $key_list_array[$element];
                xx_tryquery ($sql);
        }
        // Call the resource form back
        formResource($resource_id, 0, 0, '');
}


/********************************************************** 
Function: deleteResLoc
Author: Paul Bramscher
Last Modified: 03.02.2004
***********************************************************
Purpose:
Deletes resource-location associations based on the supplied
location id (possibly multiple) and calls formResource back
again.
**********************************************************/
function deleteResLoc($key_list_array, $resource_id){

        for ($element = 0; $element < sizeof($key_list_array); $element++) {
                $sql = "DELETE FROM res_loc WHERE resource_id = "
                        . $resource_id
                        . " AND location_id = "
                        . $key_list_array[$element];                            
                xx_tryquery ($sql);
        }
        // Call the resource form back
        formResource($resource_id, 0, 0, '');
}


/********************************************************** 
Function: deleteResMastersubject
Author: Paul Bramscher
Last Modified: 03.02.2004
***********************************************************
Purpose:
Deletes resource-mastersubject associations based on the
supplied mastersubject id (possibly multiple) and calls
formResource back again.
**********************************************************/
function deleteResMastersubject($key_list_array, $resource_id){

        for ($element = 0; $element < sizeof($key_list_array); $element++) {

                $sql = "DELETE FROM res_mastersubject WHERE resource_id = "
                        . $resource_id
                        . " AND mastersubject_id = "
                        . $key_list_array[$element];                            
                xx_tryquery ($sql);
        }
        // Call the resource form back
        formResource($resource_id, 0, 0, '');
}


/********************************************************** 
Function: deleteResource
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Deletes the supplied resource id, and removes associations
in the resource-subject-informationtype, resource-location,
resource-mastersubject, and resource-feature tables.
Also converts any relational resource references in
Page/CourseScribe pages to text-type fields (non-relational),
as well as all user copy-paste buffers.
**********************************************************/
function deleteResource($delMessage, $resource_id){

        msgTableOpen(1, "Deleting Resource (ID# " . $resource_id . ")");
        printf("<b>Messages:</b><br>\n");

        // First delete all related rows in res_sub_infotype
        $sql = "DELETE FROM res_sub_infotype WHERE resource_id = " . $resource_id;
        if (xx_tryquery ($sql)) printf("Resource removed from all resource-subject-infotype assignments.<BR>\n");

        // Delete from the res_loc table
        $sql = "DELETE FROM res_loc WHERE resource_id =" . $resource_id;
        if (xx_tryquery ($sql)) printf("Removed from resource-location table.<BR>\n");
        
        // Delete from the res_mastersubject table      
        $sql = "DELETE FROM res_mastersubject WHERE resource_id =" . $resource_id;
        if (xx_tryquery ($sql)) printf("Removed from resource-mastersubject table.<BR>\n");

        // Delete from the res_feature table
        $sql = "DELETE FROM res_feature WHERE resource_id =" . $resource_id;
        if (xx_tryquery ($sql)) printf("Removed from resource-feature table.<BR>\n");
        
        /********************************
        ** Update affected CL/PS pages **
        ********************************/

        // First, get the default resource description and title
        $sql = "SELECT annotation, title FROM resource WHERE resource_id = "
                . $resource_id; 
        $rs = xx_tryquery($sql);
        $row = xx_fetch_array ($rs, xx_ASSOC);
        $annotation = $row["annotation"];
        $title = $row["title"];

        // Clean up
        $title = textInmySQL($title);
        $annotation = textInmySQL($annotation);
        $delMessage = textInmySQL($delMessage);
                
        // Next, append the reason for deletion to the annotation
        if (strlen($annotation) > 0) $annotation .= "<BR>" . $delMessage;
        else $annotation = $delMessage;

        // Update all of the elements using this resource with a custom description.
        $sql = "UPDATE element SET label = '"
                . $title
                . "', element_descr = CONCAT(element_descr, '<BR>"
                . $delMessage
                . "'), resource_id = NULL WHERE resource_id =" . $resource_id
                . " AND (element_descr IS NOT NULL OR element_descr != '')";
        if (xx_tryquery ($sql)) printf("Added delete message to custom PageScribe descriptions.<BR>\n");

        // Next, update all of the elements using this resource without a custom description.
        $sql = "UPDATE element SET label = '"
                . $title
                . "', element_descr = '"
                . $annotation
                . "', resource_id = NULL WHERE resource_id =" . $resource_id
                . " AND (element_descr IS NULL OR element_descr = '')";
        if (xx_tryquery ($sql)) printf("Added delete message to default PageScribe descriptions.<BR>\n");

        /***************************************
        ** Update affected CL/PS copy buffers **
        ***************************************/

        // Update all of the elements using this resource with a custom description.
        $sql = "UPDATE pastebuffer SET label = '"
                . $title
                . "', element_descr = CONCAT(element_descr, '<BR>"
                . $delMessage
                . "'), resource_id = NULL WHERE resource_id =" . $resource_id
                . " AND (element_descr IS NOT NULL OR element_descr != '')";
        if (xx_tryquery ($sql)) printf("Added delete message to custom PageScribe descriptions (buffers).<BR>\n");

        // Next, update all of the elements using this resource without a custom description.
        $sql = "UPDATE pastebuffer SET label = '"
                . $title
                . "', element_descr = '"
                . $annotation
                . "', resource_id = NULL WHERE resource_id =" . $resource_id
                . " AND (element_descr IS NULL OR element_descr = '')";         
        if (xx_tryquery ($sql)) printf("Added delete message to default PageScribe descriptions (buffers).<BR>\n");
                
        // Delete from the resource table
        $sql = "DELETE FROM resource WHERE resource_id =" . $resource_id;
        if (xx_tryquery ($sql)) printf("Successfully removed from all tables.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteResourceConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt to delete the supplied resource id.
**********************************************************/
function deleteResourceConfirm($resource_id){

        $resource_id = (int) $resource_id;
        msgTableOpen(1, "Delete Resource (ID# " . $resource_id . ")?");

        // Check to see if its possible
        $exists = existsRow("resource", "resource_id", $resource_id);
        if ($exists > 0){

                // Lookup the title & author
                $title = lookupField("resource", "resource_id", $resource_id, "title");
                $author = lookupField("resource", "resource_id", $resource_id, "author");
                printf("<b>Title:</b> %s<br>\n ", $title);
                printf("<b>Author:</b> %s<br><br>\n ", $author);

                // Offer a call to the resource drilldown page
                printf("If this resource is used anywhere on the system, deleting it will affect those places.  You may want to examine the <b><a href=\"res_drill.phtml?resource_id=%d\">Resource Detail</a></b> page to check usage before deleting it.<br><br>", $resource_id);

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteResource\" >\n");
                printf("<input type = \"Hidden\" name = \"resource_id\" value = \"%d\" >\n", $resource_id);    
                
                // Delete message
                printf("<b>Message to appear on affected PageScribe Pages</b> (75 char max.):<br>\n");
                printf("<input type=\"text\" name=\"delMessage\" value=\"[Resource no longer available]\" size=\"75\"><br><br>\n");

                // Warning
                printf("This will permanently remove the resource and its various assignments from the system.<BR><BR>\n");

                // Delete button
                printf("<center>\n");           
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }
        else if ($exists < 1) printf ("Resource not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteService
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Deletes the supplied service id, and removes associations
in the service-servicetype and service-location tables.
Also converts any relational resource references in
Page/CourseScribe pages to text-type fields (non-relational),
as well as all user copy-paste buffers.
**********************************************************/
function deleteService($delMessage, $service_id){

        msgTableOpen(1, "Deleting Service (ID# " . $service_id . ")");
        printf("<b>Messages:</b><br>\n");

        // First delete all related rows in serv_servtype
        $sql = "DELETE FROM serv_servtype WHERE service_id = " . $service_id;
        if (xx_tryquery ($sql)) printf("Service removed from all service-servicetype assignments.<BR>\n");

        // Delete from the serv_loc table
        $sql = "DELETE FROM serv_loc WHERE service_id =" . $service_id;
        if (xx_tryquery ($sql)) printf("Removed from service-location table.<BR>\n");

        /********************************
        ** Update affected CL/PS pages **
        ********************************/

        // First, get the default service description and title
        $sql = "SELECT service, serviceDescr FROM service WHERE service_id = "
                . $service_id;  
        $rs = xx_tryquery($sql);
        $row = xx_fetch_array ($rs, xx_ASSOC);
        $service = $row["service"];
        $serviceDescr = $row["serviceDescr"];

        // Clean up strings
        $service = textInmySQL($service);
        $serviceDescr = textInmySQL($serviceDescr);
        $delMessage = textInmySQL($delMessage);

        // Next, append the reason for deletion to the annotation
        if (strlen($serviceDescr) > 0) $serviceDescr .= "<BR>" . $delMessage;
        else $serviceDescr = $delMessage;

        // Update all of the elements using this service with a custom description.
        $sql = "UPDATE element SET label = '"
                . $service
                . "', element_descr = CONCAT(element_descr, '<BR>"
                . $delMessage
                . "'), service_id = NULL WHERE service_id =" . $service_id
                . " AND (element_descr IS NOT NULL OR element_descr != '')";
        if (xx_tryquery ($sql)) printf("Added delete message to custom PageScribe descriptions.<BR>\n");

        // Next, update all of the elements using this service without a custom description.
        $sql = "UPDATE element SET label = '"
                . $service
                . "', element_descr = '"
                . $serviceDescr
                . "', service_id = NULL WHERE service_id =" . $service_id
                . " AND (element_descr IS NULL OR element_descr = '')";         

        if (xx_tryquery ($sql)) printf("Added delete message to default PageScribe descriptions.<BR>\n");

        /***************************************
        ** Update affected CP/PS copy buffers **
        ***************************************/

        // Update all of the elements using this service with a custom description.
        $sql = "UPDATE pastebuffer SET label = '"
                . $service
                . "', element_descr = CONCAT(element_descr, '<BR>"
                . $delMessage
                . "'), service_id = NULL WHERE service_id =" . $service_id
                . " AND (element_descr IS NOT NULL OR element_descr != '')";
        if (xx_tryquery ($sql)) printf("Added delete message to custom PageScribe descriptions (buffers).<BR>\n");

        // Next, update all of the elements using this service without a custom description.
        $sql = "UPDATE pastebuffer SET label = '"
                . $service
                . "', element_descr = '"
                . $serviceDescr
                . "', service_id = NULL WHERE service_id =" . $service_id
                . " AND (element_descr IS NULL OR element_descr = '')";         
        if (xx_tryquery ($sql)) printf("Added delete message to default PageScribe descriptions (buffers).<BR>\n");

        // Delete from the service table
        $sql = "DELETE FROM service WHERE service_id =" . $service_id;
        if (xx_tryquery ($sql)) printf("Successfully removed from all tables.");

        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteServiceConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt to delete the supplied service id.
**********************************************************/
function deleteServiceConfirm($key_id){

        $service_id = (int) $key_id;
        msgTableOpen(1, "Delete Service (ID# " . $service_id . ")?");

        // Check to see if its possible
        $exists = existsRow("service", "service_id", $service_id);
        if ($exists > 0){

                // Lookup the descriptive title
                $service = lookupField("service", "service_id", $service_id, "service");
                printf("<b>Service:</b> %s<br><br>\n ", $service);

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteService\" >\n");
                printf("<input type = \"Hidden\" name = \"service_id\" value = \"%d\" >\n", $service_id);    
                
                // Delete message
                printf("<b>Message to appear on affected PageScribe Pages</b> (75 char max.):<br>\n");
                printf("<input type=\"text\" name=\"delMessage\" value=\"[Service no longer available]\" size=\"75\"><br><br>\n");

                // Warning
                printf("This will permanently remove the service and its various assignments from the system.<BR><BR>\n");

                // Delete button
                printf("<center>\n");           
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }
        else if ($exists < 1) printf ("Service not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteServicetype
Author: Paul Bramscher
Last Modified: 03.15.2004
***********************************************************
Purpose:
Delete the supplied service type id.  This will render
some services without a type, but this does not break
anything.
**********************************************************/
function deleteServicetype($servicetype_id){

        msgTableOpen(1, "Deleting Service Type (ID# " . $servicetype_id . ")");
        printf("<b>Messages:</b><br>\n");

        // Cannot delete placeholder #1
        if ($servicetype_id > 1) {

                // Delete from serv_servtype table
                $sql = "DELETE FROM serv_servtype WHERE servicetype_id =" . $servicetype_id;
                if (xx_tryquery ($sql)) printf("Removed Service-Service Type associations.<BR>\n");
        
                // Delete from servicetype table
                $sql = "DELETE FROM servicetype WHERE servicetype_id =" . $servicetype_id;
                if (xx_tryquery ($sql)) printf("Removed Service Type successfully.");

        }
        else printf ("Cannot delete Service Type ID# 1, it acts as a system placeholder.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteServicetypeConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt to delete the supplied service type id.
**********************************************************/
function deleteServicetypeConfirm($key_id){

        $servicetype_id = (int) $key_id;
        msgTableOpen(1, "Delete Service Type (ID# " . $servicetype_id . ")?");

        // Check to see if its possible
        $exists = existsRow("servicetype", "servicetype_id", $servicetype_id);
        if ($exists > 0){

                // Lookup the descriptive title
                $servicetype = lookupField("servicetype", "servicetype_id", $servicetype_id, "servicetype");
                printf("<b>Service Type:</b> %s<br><br>\n ", $servicetype);
                printf("This will permanently remove this Service Type.  Note that Services which rely exclusively on this Service Type will be left without a Service Type.<br><br>\n");

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteServicetype\" >\n");
                printf("<input type = \"Hidden\" name = \"servicetype_id\" value = \"%d\" >\n", $servicetype_id);    

                // Delete button
                printf("<center>\n");           
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }
        else if ($exists < 1) printf ("Service Type not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteServLoc
Author: Paul Bramscher
Last Modified: 03.02.2004
***********************************************************
Purpose:
Deletes service-location associations based on the supplied
location id (possibly multiple) and calls formService back
again.
**********************************************************/
function deleteServLoc($key_list_array, $service_id){

        for ($element = 0; $element < sizeof($key_list_array); $element++) {

                $sql = "DELETE FROM serv_loc WHERE service_id = "
                        . $service_id
                        . " AND location_id = "
                        . $key_list_array[$element];
                xx_tryquery ($sql);
        }
        // Call the service form back
        formService($service_id, 0, 0);
}


/********************************************************** 
Function: deleteServServtype
Author: Paul Bramscher
Last Modified: 03.02.2004
***********************************************************
Purpose:
Deletes service-servicetype associations based on the
supplied servicetype id (possibly multiple) and calls
formService back again.
**********************************************************/
function deleteServServtype($key_list_array, $service_id){

        for ($element = 0; $element < sizeof($key_list_array); $element++) {

                $sql = "DELETE FROM serv_servtype WHERE service_id = "
                        . $service_id
                        . " AND servicetype_id = "
                        . $key_list_array[$element];
                xx_tryquery ($sql);
        }
        // Call the service form back
        formService($service_id, 0, 0);
}


/********************************************************** 
Function: deleteStaff
Author: Paul Bramscher
Last Modified: 03.15.2004
***********************************************************
Purpose:
Deletes the supplied staff id.  This function purges the
staffperson in various places of the system, and converts
any staffpersons-as-elements on PageScribe/CourseLib+ pages
intoto text-type fields (non-relational).  The same is done
across all user copy-paste buffers.
**********************************************************/
function deleteStaff($delMessage, $staff_id){

        msgTableOpen(1, "Deleting Staff (ID# " . $staff_id . ")");
        printf("<b>Messages:</b><br>\n");

        // Can't delete admin account (#2) or the '(N/A)' staff (#1)
        if ($staff_id > 2) {

                // First delete all related rows in sub_staff
                $sql = "DELETE FROM sub_staff WHERE staff_id = " . $staff_id;
                if (xx_tryquery ($sql)) printf("All subject-staff assignments for this staff person removed.<BR>\n");

                // Delete from the course_personnel table
                $sql = "DELETE FROM course_personnel WHERE staff_id =" . $staff_id;
                if (xx_tryquery ($sql)) printf("Removed this staff person from course personnel tables.<BR>\n");

                // Delete all related rows in page_staff        
                $sql = "DELETE FROM page_staff WHERE staff_id = " . $staff_id;
                if (xx_tryquery ($sql)) printf("All page-staff assignments for this staff person removed.<BR>\n");

                /********************************
                ** Update affected CL/PS pages **
                ********************************/

                // First, get the staff fields
                $sql = "SELECT first_name, last_name FROM staff WHERE staff_id = "
                        . $staff_id;    
                $rs = xx_tryquery($sql);
                $row = xx_fetch_array ($rs, xx_ASSOC);
                $first_name = $row["first_name"];
                $last_name = $row["last_name"];

                // Clean up strings
                $first_name = textInmySQL($first_name);
                $last_name = textInmySQL($last_name);
                $delMessage = textInmySQL($delMessage);

                // Build a concatenated name                    
                if (strlen($first_name) > 0) $staff_name = $first_name . " " . $last_name;
                else $staff_name = $last_name;

                // Update all of the elements using this staffperson with a custom description
                $sql = "UPDATE element SET label = '"
                        . $staff_name
                        . "', element_descr = CONCAT(element_descr, '<BR>"
                        . $delMessage
                        . "'), staff_id = NULL WHERE staff_id =" . $staff_id
                        . " AND element_descr IS NOT NULL AND element_descr <> ''";
                if (xx_tryquery ($sql)) printf("Added delete message to custom PageScribe descriptions.<BR>\n");

                // Handle blank staff description elements
                $sql = "UPDATE element SET label = '"
                        . $staff_name
                        . "', element_descr = '"
                        . $delMessage
                        . "', staff_id = NULL WHERE staff_id =" . $staff_id
                        . " AND (element_descr IS NULL OR element_descr = '')";
                if (xx_tryquery ($sql)) printf("Added delete message to blank PageScribe descriptions.<BR>\n");

                /**********************************
                ** Update affected CL/PS buffers **
                **********************************/

                // Update all of the elements using this staffperson with a custom description
                $sql = "UPDATE pastebuffer SET label = '"
                        . $staff_name
                        . "', element_descr = CONCAT(element_descr, '<BR>"
                        . $delMessage
                        . "'), staff_id = NULL WHERE staff_id =" . $staff_id
                        . " AND element_descr IS NOT NULL AND element_descr <> ''";
                if (xx_tryquery ($sql)) printf("Added delete message to custom PageScribe descriptions.<BR>\n");
                
                // Handle blank staff description pastebuffer elements
                $sql = "UPDATE pastebuffer SET label = '"
                        . $staff_name
                        . "', element_descr = '"
                        . $delMessage
                        . "', staff_id = NULL WHERE staff_id =" . $staff_id
                        . " AND (element_descr IS NULL OR element_descr = '')";
                if (xx_tryquery ($sql)) printf("Added delete message to blank PageScribe descriptions.<BR>\n");

                // Delete from the staff table
                $sql = "DELETE FROM staff WHERE staff_id =" . $staff_id;
                if (xx_tryquery ($sql)) printf("Removed this staff person successfully.");
        }
        else printf ("Cannot delete Staff ID's #1-2. Operation cancelled.");
        
        printf("<br><br>\n");
        msgTableClose();
        
} // end function


/**********************************************************
Function: deleteStaffConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt to delete the supplied staff id.  This
function also collects a "delete message" which is concatenated
to the description on affected PageScribe/CourseLib+ pages
as the staffperson is converted from a relational to a
text-type element.
**********************************************************/
function deleteStaffConfirm($staff_id){

        $staff_id = (int) $staff_id;
        msgTableOpen(1, "Delete Staff (ID# " . $staff_id . ")?");

        // Check to see if its possible
        $exists = existsRow("staff", "staff_id", $staff_id);
        if ($exists > 0){

                // Lookup the first and last names
                $first_name = lookupField("staff", "staff_id", $staff_id, "first_name");
                $last_name = lookupField("staff", "staff_id", $staff_id, "last_name");
                printf("<b>Staffperson:</b> %s %s<br><br>\n ", $first_name, $last_name);

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteStaff\" >\n");
                printf("<input type = \"Hidden\" name = \"staff_id\" value = \"%d\" >\n", $staff_id);
                
                // Delete message
                printf("<b>Message to appear on affected PageScribe Pages</b> (75 char max.):<br>\n");
                printf("<input type=\"text\" name=\"delMessage\" value=\"[Staffperson no longer available]\" size=\"75\"><br><br>\n");

                // Warning
                printf("This will permanently remove this staffperson and his/her various assignments from the system.<BR><BR>\n");

                // Delete button
                printf("<center>\n");           
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }
        else if ($exists < 1) printf ("Staffperson not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteStaffLibunit
Author: Paul Bramscher
Last Modified: 03.03.2004
***********************************************************
Purpose:
Delete the staff-libunit associations (possibly multiple)
for the supplied staff id, then calls formStaff back again.
This works the same table as deleteLibunitStaff, but with
emphasis on the other side of the multiple pick list.
**********************************************************/
function deleteStaffLibunit($key_list_array, $staff_id){

        // For every libunit in the array, delete it from the bridging table
        for ($element = 0; $element < sizeof($key_list_array); $element++) {

                $sql = "DELETE FROM libunit_staff WHERE staff_id = "
                        . $staff_id
                        . " AND libunit_id = "
                        . $key_list_array[$element];
                xx_tryquery($sql);
        }
        // Call the staff form back
        formStaff($staff_id);
}


/********************************************************** 
Function: deleteStaffSub
Author: Paul Bramscher
Last Modified: 03.03.2004
***********************************************************
Purpose:
Deletes the staff-subject associations (possibly multiple)
for the supplied staff id, and calls formStaff back again.
This works the same table as deleteSubStaff (found in
application.php, not this ssl counterpart), but with
emphasis on the other side of the multiple pick list.
**********************************************************/
function deleteStaffSub($key_list_array, $staff_id){

        // For a given staff person, delete every associated subject in the array
        for ($element = 0; $element < sizeof($key_list_array); $element++) {

                $sql = "DELETE FROM sub_staff where staff_id = "
                        . $staff_id
                        . " AND subject_id = "
                        . $key_list_array[$element];
                xx_tryquery($sql);
        }
        // Call the staff form back
        formStaff($staff_id);
}


/********************************************************** 
Function: deleteStafftitle
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Deletes the supplied staff job title id.  Any staff currently
using this title are set to the (N/A) placeholder title.
**********************************************************/
function deleteStafftitle($stafftitle_id){

        msgTableOpen(1, "Deleting Staff Title (ID# " . $stafftitle_id . ")");
        printf("<b>Messages:</b><br>\n");

        if ($stafftitle_id > 1) {
                // First update all rows in staff to (N/A)
                $sql = "UPDATE staff SET stafftitle_id = 1 WHERE stafftitle_id = " . $stafftitle_id;
                if (xx_tryquery ($sql)) printf("Successfully set affected staff titles to (N/A).<BR>\n");

                // Delete from the title table
                $sql = "DELETE FROM stafftitle WHERE stafftitle_id =" . $stafftitle_id;
                if (xx_tryquery ($sql)) printf("Removed this staff title successfully.");

        }
        else printf ("Cannot delete Staff Title ID# 1, it acts as a system placeholder.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteStafftitleConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt for deleting the supplied staff title id.
**********************************************************/
function deleteStafftitleConfirm($key_id){

        $stafftitle_id = (int) $key_id;
        msgTableOpen(1, "Delete Staff Title (ID# " . $stafftitle_id . ")?");

        // Check to see if its possible
        $exists = existsRow("stafftitle", "stafftitle_id", $stafftitle_id);
        if ($exists > 0){

                // Lookup the descriptive title
                $stafftitle = lookupField("stafftitle", "stafftitle_id", $stafftitle_id, "stafftitle");
                printf("<b>Staff Title:</b> %s<br><br>\n ", $stafftitle);
                printf("This will permanently remove this staff title and its various assignments from the system. Some staff will be set to (N/A).<BR><BR>\n");        

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteStafftitle\" >\n");
                printf("<input type = \"Hidden\" name = \"stafftitle_id\" value = \"%d\" >\n", $stafftitle_id);
                printf("<center>\n");
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }
        else if ($exists < 1) printf ("Staff Title not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteStyle
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Deletes the supplied style id.  Any pages currently
using this style are set to the (N/A) placeholder style.
Note that the actual header, footer, and css files are
not deleted -- only the references to them.
**********************************************************/
function deleteStyle($style_id){

        msgTableOpen(1, "Deleting Style (ID# " . $style_id . ")");
        printf("<b>Messages:</b><br>\n");

        if ($style_id > 2) {
                // First update all affected rows in page to (N/A)
                $sql = "UPDATE page SET style_id = 1 WHERE style_id = " . $style_id;
                if (xx_tryquery ($sql)) printf("Successfully set affected page styles to (N/A).<BR>\n");

                // Delete from the style table
                $sql = "DELETE FROM style WHERE style_id =" . $style_id;
                if (xx_tryquery ($sql)) printf("Removed this style successfully.");

        }
        else {
                printf("Cannot delete Style ID's #1 and #2. #1 acts as a system placeholder, #2 ");
                printf("is the default style for new pages, but may be renamed or redefined as ");
                printf("needed.");
        }

        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteStyleConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt for deleting the supplied style id
**********************************************************/
function deleteStyleConfirm($key_id){

        $style_id = (int) $key_id;
        msgTableOpen(1, "Delete Style (ID# " . $style_id . ")?");

        // Check to see if its possible
        $exists = existsRow("style", "style_id", $style_id);
        if ($exists > 0){

                // Lookup the descriptive title
                $style_title = lookupField("style", "style_id", $style_id, "style_title");
                printf("<b>Style Title:</b> %s<br><br>\n ", $style_title);
                printf("This will permanently remove this style and ");
                printf("assign affected pages to the (N/A) style.  Note that this function does ");
                printf("not actually delete any header, footer or css files -- only the references ");
                printf("to them.  If a default page style is not properly configured, pages without ");
                printf("a style may fail to display properly, and should be assigned a new style.<BR><BR>\n");

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteStyle\" >\n");
                printf("<input type = \"Hidden\" name = \"style_id\" value = \"%d\" >\n", $style_id);    
                printf("<center>\n");
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }
        else if ($exists < 1) printf ("Style not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteSubCoursesub
Author: Paul Bramscher
Last Modified: 03.02.2004
***********************************************************
Purpose:
Deletes subject-coursesub associations based on the supplied
coursesub id (possibly multiple) and calls formSubject back
again.
**********************************************************/
function deleteSubCoursesub($key_list_array, $subject_id){

        // For the given subject, delete every location in the array
        for ($element = 0; $element < sizeof($key_list_array); $element++) {

                $sql = "DELETE FROM sub_coursesub WHERE subject_id = "
                        . $subject_id
                        . " AND coursesub_id = "
                        . $key_list_array[$element];
                xx_tryquery ($sql);
        }
        // Call the subject form back
        formSubject($subject_id);
}


/********************************************************** 
Function: deleteSubject
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Deletes a subject, and removes associations in the
resource-subject-informationtype, subject-location,
subject-mastersubject, subject-coursesub, and
subject-staff tables.
**********************************************************/
function deleteSubject($delMessage, $subject_id){

        msgTableOpen(1, "Deleting Subject (ID# " . $subject_id .")");
        printf("<b>Messages:</b><br>\n");

        // Cannot delete placeholder #1
        if ($subject_id > 1) {
        
                // First delete all related rows in res_sub_infotype
                $sql = "DELETE FROM res_sub_infotype WHERE subject_id = " . $subject_id;
                if (xx_tryquery ($sql)) printf("Resource-subject-information type associations removed.<BR>\n");

                // Delete from the sub_loc table
                $sql = "DELETE FROM sub_loc WHERE subject_id =" . $subject_id;
                if (xx_tryquery ($sql)) printf("Subject-location associations removed.<BR>\n");

                // Delete from the sub_mastersubject table
                $sql = "DELETE FROM sub_mastersubject WHERE subject_id =" . $subject_id;
                if (xx_tryquery ($sql)) printf("Subject-mastersubject associations removed.<BR>\n");

                // Delete from the sub_staff table
                $sql = "DELETE FROM sub_staff WHERE subject_id =" . $subject_id;
                if (xx_tryquery ($sql)) printf("Subject-staff assignments removed.<BR>\n");

                // Delete from the sub_coursesub table
                $sql = "DELETE FROM sub_coursesub WHERE subject_id =" . $subject_id;
                if (xx_tryquery ($sql)) printf("Subject-Course Subject assignments removed.<BR>\n");

                // Delete from the sub_page table
                $sql = "DELETE FROM sub_page WHERE subject_id =" . $subject_id;
                if (xx_tryquery ($sql)) printf("Subject-Page assignments removed.<BR>\n");

                // Delete from the sub_othersub table
                $sql = "DELETE FROM sub_othersub WHERE othersub_id ="
                        . $subject_id
                        . " OR subject_id = "
                        . $subject_id;
                if (xx_tryquery ($sql)) printf("Subject-Other Subject assignments removed.<BR>\n");

                /********************************
                ** Update affected CL/PS pages **
                ********************************/

                // First, get the default subject description and title
                $sql = "SELECT subject, subject_descr FROM subject WHERE subject_id = "
                        . $subject_id;  
                $rs = xx_tryquery($sql);
                $row = xx_fetch_array ($rs, xx_ASSOC);
                $subject = $row["subject"];
                $subject_descr = $row["subject_descr"];

                // Clean up strings
                $subject_descr = textInmySQL($subject_descr);
                $subject = textInmySQL($subject);
                $delMessage = textInmySQL($delMessage);

                // Next, append the reason for deletion to the description
                if (strlen($subject_descr) > 0) $subject_descr .= "<BR>" . $delMessage;
                else $subject_descr = $delMessage;

                // Update all of the elements using this resource with a custom description.
                $sql = "UPDATE element SET label = '"
                        . $subject
                        . "', element_descr = CONCAT(element_descr, '<BR>"
                        . $delMessage
                        . "'), subject_id = NULL WHERE subject_id =" . $subject_id
                        . " AND (element_descr IS NOT NULL OR element_descr != '')";
                if (xx_tryquery ($sql)) printf("Added delete message to custom PageScribe descriptions.<BR>\n");

                // Next, update all of the elements using this resource without a custom description.
                $sql = "UPDATE element SET label = '"
                        . $subject
                        . "', element_descr = '"
                        . $subject_descr
                        . "', subject_id = NULL WHERE subject_id =" . $subject_id
                        . " AND (element_descr IS NULL OR element_descr = '')";
                if (xx_tryquery ($sql)) printf("Added delete message to default PageScribe descriptions.<BR>\n");

                /***************************************
                ** Update affected CL/PS copy buffers **
                ***************************************/

                // Update all of the elements using this location with a custom description.
                $sql = "UPDATE pastebuffer SET label = '"
                        . $subject
                        . "', element_descr = CONCAT(element_descr, '<BR>"
                        . $delMessage
                        . "'), subject_id = NULL WHERE subject_id =" . $subject_id
                        . " AND (element_descr IS NOT NULL OR element_descr != '')";
                if (xx_tryquery ($sql)) printf("Added delete message to custom PageScribe descriptions (buffers).<BR>\n");

                // Next, update all of the elements using this location without a custom description.
                $sql = "UPDATE pastebuffer SET label = '"
                        . $subject
                        . "', element_descr = '"
                        . $subject_descr
                        . "', subject_id = NULL WHERE subject_id =" . $subject_id
                        . " AND (element_descr IS NULL OR element_descr = '')";         
                if (xx_tryquery ($sql)) printf("Added delete message to default PageScribe descriptions (buffers).<BR>\n");

                // Finally delete from the subject table
                $sql = "DELETE FROM subject WHERE subject_id =" . $subject_id;
                if (xx_tryquery ($sql)) printf("Successfully removed this subject from the system.");
        }
        else printf ("Cannot delete Subject ID# 1, it acts as a system placeholder.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteSubjectConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt to delete the supplied subject id.
**********************************************************/
function deleteSubjectConfirm($key_id){

        $subject_id = (int) $key_id;
        msgTableOpen(1, "Delete Subject (ID# " . $subject_id . ")?");

        // Check to see if its possible
        $exists = existsRow("subject", "subject_id", $subject_id);
        if ($exists > 0){

                // Lookup the descriptive title
                $subject = lookupField("subject", "subject_id", $subject_id, "subject");
                printf("<b>Subject:</b> %s<br><br>\n ", $subject);

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteSubject\" >\n");
                printf("<input type = \"Hidden\" name = \"subject_id\" value = \"%d\" >\n", $subject_id);    

                // Delete message
                printf("<b>Message to appear on affected PageScribe Pages</b> (75 char max.):<br>\n");
                printf("<input type=\"text\" name=\"delMessage\" value=\"[RQS subject no longer available]\" size=\"75\"><br><br>\n");

                printf("This will permanently remove the subject and its various subject assignments from the system.
                        This includes assignments to resources, master/general subjects, locations and staff specialists.<BR><BR>");
                printf("<center>\n");
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }
        else if ($exists < 1) printf ("Subject not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteSubLoc
Author: Paul Bramscher
Last Modified: 03.03.2004
***********************************************************
Purpose:
Deletes subject-location associations based on the supplied
location id (possibly multiple) and calls formSubject back
again.
**********************************************************/
function deleteSubLoc($key_list_array, $subject_id){

        // For the given subject, delete every location in the array
        for ($element = 0; $element < sizeof($key_list_array); $element++) {

                $sql = "DELETE FROM sub_loc WHERE subject_id = "
                        . $subject_id
                        . " AND location_id = "
                        . $key_list_array[$element];
                xx_tryquery($sql);
        }
        // Call the subject form back
        formSubject($subject_id);
}


/********************************************************** 
Function: deleteSubMaster
Author: Paul Bramscher
Last Modified: 03.03.2004
***********************************************************
Purpose:
Deletes subject-mastersubject associations based on the
supplied mastersubject id (possibly multiple) and calls
formSubject back again.
**********************************************************/
function deleteSubMaster($key_list_array, $subject_id){

        // For every mastersubject in the array, delete it from the bridging table
        for ($element = 0; $element < sizeof($key_list_array); $element++) {

                $sql = "DELETE FROM sub_mastersubject WHERE subject_id = "
                        . $subject_id
                        . " AND mastersubject_id = "
                        . $key_list_array[$element];
                xx_tryquery($sql);
        }
        // Call the subject form back
        formSubject($subject_id);
}


/********************************************************** 
Function: deleteSubStaff
Author: Paul Bramscher
Last Modified: 03.03.2004
***********************************************************
Purpose:
Deletes staff-subject associations for the supplied staff
id (possibly multiple) and calls formSubject back again.
**********************************************************/
function deleteSubStaff($key_list_array, $subject_id){

        // For a given subject, delete all staff in the array
        for ($element = 0; $element < sizeof($key_list_array); $element++) {

                $sql = "DELETE FROM sub_staff WHERE subject_id = "
                        . $subject_id
                        . " AND staff_id = "
                        . $key_list_array[$element];
                xx_tryquery($sql);
        }
        // Call the subject form back
        formSubject($subject_id);
}


/********************************************************** 
Function: deleteTerm
Author: Paul Bramscher
Last Modified: 03.16.2004
***********************************************************
Purpose:
Deletes the supplied term id, and removes references in
the course table.
**********************************************************/
function deleteTerm($term_id){

        msgTableOpen(1, "Deleting Term (ID# " . $term_id . ")");
        printf("<b>Messages:</b><br>\n");

        // Cannot delete placeholder #1
        if ($term_id > 1) {

                // Delete all course term assignments
                $sql = "UPDATE course SET term_id = NULL WHERE term_id =" . $term_id;
                if (xx_tryquery ($sql)) printf("Removed this term from affected course pages.<BR>\n");

                // Delete from term table
                $sql = "DELETE FROM term WHERE term_id =" . $term_id;
                if (xx_tryquery ($sql)) printf("Removed term successfully.");
        }
        else printf ("Cannot delete Term ID# 1, it acts as a system placeholder.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteTermConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt for deleting the supplied term id.
**********************************************************/
function deleteTermConfirm($key_id){

        $term_id = (int) $key_id;
        msgTableOpen(1, "Delete Term (ID# " . $term_id . ")?");

        // Check to see if its possible
        $exists = existsRow("term", "term_id", $term_id);
        if ($exists > 0){

                // Lookup the descriptive title
                $term = lookupField("term", "term_id", $term_id, "term");
                printf("<b>Term:</b> %s<br><br>\n ", $term);
                printf("This will permanently remove this academic term.  Some courses may no longer have terms.<BR><BR>\n");

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteTerm\" >\n");
                printf("<input type = \"Hidden\" name = \"term_id\" value = \"%d\" >\n", $term_id);    
                printf("<center>\n");
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }
        else if ($exists < 1) printf ("Term not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}


/********************************************************** 
Function: deleteVendor
Author: Paul Bramscher
Last Modified: 03.15.2004
***********************************************************
Purpose:
Deletes a supplied vendor id, sets affected resources
to (N/A) vendor.
**********************************************************/
function deleteVendor($vendor_id){

        msgTableOpen(1, "Deleting Vendor (ID# " . $vendor_id . ")");
        printf("<b>Messages:</b><br>\n");

        // Cannot delete placeholder #1.
        if ($vendor_id > 1) {
        
                // First update affected resources
                $sql = "UPDATE resource SET vendor_id = NULL WHERE vendor_id = "
                        . $vendor_id;
                if (xx_tryquery ($sql)) printf("Vendor purged from assignments to resources.<BR>\n");

                // Delete from the vendor table
                $sql = "DELETE FROM vendor WHERE vendor_id =" . $vendor_id;
                if (xx_tryquery ($sql)) printf("Removed this vendor successfully.");

        }
        else printf ("Cannot delete Vendor ID# 1, it acts as a system placeholder.");
        
        printf("<br><br>\n");
        msgTableClose();
}


/**********************************************************
Function: deleteVendorConfirm  
Author: Paul Bramscher  
Last Modified: 03.16.2004
***********************************************************
Purpose:
Confirm prompt for deleting the selected vendor.
**********************************************************/
function deleteVendorConfirm($key_id){

        $vendor_id = (int) $key_id;
        msgTableOpen(1, "Delete Vendor (ID# " . $vendor_id . ")?");

        // Check to see if its possible
        $exists = existsRow("vendor", "vendor_id", $vendor_id);
        if ($exists > 0){

                // Lookup the descriptive title
                $vendor = lookupField("vendor", "vendor_id", $vendor_id, "vendor");
                printf("<b>Vendor:</b> %s<br><br>\n ", $vendor);
                printf("This will permanently remove this vendor and its various assignments from the system. Some resources may lose their vendor association.<BR><BR>");

                // Form to draw the delete button
                printf("<form method = \"POST\" action = \"delete.phtml\" >\n");
                printf("<input type = \"Hidden\" name = \"transaction\" value = \"deleteVendor\" >\n");
                printf("<input type = \"Hidden\" name = \"vendor_id\" value = \"%d\" >\n", $vendor_id);
                printf("<center>\n");
                printf("<input type =\"Submit\" value=\"Delete!\">\n");
                printf("</center>\n");
                printf("</form>\n");
        }
        else if ($exists < 1) printf ("Vendor not found.  Operation cancelled.<br><br>\n");
        
        msgTableClose();
}
?>