CClusterGroup::Delete

function Delete($ID)
{
	global $DB, $APPLICATION;
	$aMsg = array();
	$ID = intval($ID);

	$rsWebNodes = CClusterWebnode::GetList(array(), array("=GROUP_ID"=>$ID));
	if($rsWebNodes->Fetch())
		$aMsg[] = array("text" => GetMessage("CLU_GROUP_HAS_WEBNODE"));

	$rsDBNodes = CClusterDBNode::GetList(array() ,array("=GROUP_ID"=>$ID));
	if($rsWebNodes->Fetch())
		$aMsg[] = array("text" => GetMessage("CLU_GROUP_HAS_DBNODE"));

	/*TODO: memcache check*/

	if(empty($aMsg))
	{
		$res = $DB->Query("DELETE FROM b_cluster_group WHERE ID = ".$ID, false, '', array('fixed_connection'=>true));
	}
	else
	{
		$e = new CAdminException($aMsg);
		$APPLICATION->ThrowException($e);
		return false;
	}
	return $res;
}