general_deletion.inc

<?php
/******************************************************************************/
/****************************** DELETION FUNCTIONS ****************************/
/******************************************************************************/
function research_migration_abstract_delete_project($proposal_id)
{
	$status = TRUE;
	$root_path = cfd_research_migration_path();
	$query = db_select('research_migration_proposal');
	$query->fields('research_migration_proposal');
	$query->condition('id', $proposal_id);
	$proposal_q = $query->execute();
	$proposal_data = $proposal_q->fetchObject();
	if (!$proposal_data)
	{
		drupal_set_message('Invalid Research Migration Project.', 'error');
		return FALSE;
	} //!$proposal_data
	$query = db_select('research_migration_submitted_abstracts_file');
	$query->fields('research_migration_submitted_abstracts_file');
	$query->condition('proposal_id', $proposal_id);
	$abstract_q = $query->execute();
	$dir_project_files = $root_path . $proposal_data->directory_name;
	while ($abstract_data = $abstract_q->fetchObject())
	{
		if (is_dir($dir_project_files)){

		unlink($root_path . $proposal_data->directory_name . '/' . $abstract_data->filepath);
		}
		else
		{
			drupal_set_message('Invalid Research Migration Project Abstract.', 'error');
		}
		db_delete('research_migration_submitted_abstracts_file')->condition('proposal_id', $proposal_id)->execute();
		//!dwsim_flowsheet_delete_abstract_file($abstract_data->id)
	}
	$res = rmdir($root_path . $proposal_data->directory_name);
	db_delete('research_migration_proposal')->condition('id', $proposal_data->id)->execute();
	db_delete('research_migration_submitted_abstracts')->condition('proposal_id', $proposal_id)->execute();
	return $status;
}