function getVillage_geologicalvariationByTblId($sessionkey, $appcode, $id)
{
$main_result = "<VPROFILERESULT>";
$main_result .= "<AUTHSTATUS>0</AUTHSTATUS>";
$userId = ValidateSession($sessionkey, $appcode);
if ($userId > -1) {
$main_result .= "<AUTHSTATUS>1</AUTHSTATUS>";
$result = BL_manageVillage_geologicalvariation::getVillage_geologicalvariationListByTblId($id);
if ($result->type == 1) {
$arr_Village_geologicalvariationList = $result->data;
if (count($arr_Village_geologicalvariationList) > 0) {
$main_result .= "<RESULTSTATUS>1</RESULTSTATUS>";
foreach ($arr_Village_geologicalvariationList as $obj_Village_geologicalvariation) {
$main_result .= getVillage_geologicalvariationXml($obj_Village_geologicalvariation);
}
} else {
$main_result .= "<RESULTSTATUS>0</RESULTSTATUS>";
}
} else {
$main_result .= "<RESULTSTATUS>0</RESULTSTATUS>";
}
}
$main_result .= "</VPROFILERESULT>";
return $main_result;
}
public static function deleteVillage_geologicalvariation($obj_mainpacket)
{
$packet = $obj_mainpacket->packet;
$TblId = $packet[0];
$msg = "failed";
$result = 0;
$result_TblId = 0;
$retResult = BL_manageVillage_geologicalvariation::getVillage_geologicalvariationListByTblId($TblId);
if ($retResult->type == 1) {
$obj_Village_geologicalvariation = $retResult->data[0];
$obj_result2 = DAL_manageVillage_geologicalvariation::deleteVillage_geologicalvariation($obj_Village_geologicalvariation->TblId);
if ($obj_result2->type == 1) {
$result = 1;
$result_TblId = $obj_Village_geologicalvariation->TblId;
$msg = "success";
} else {
$msg = "Sorry!!! Problem occured while deleting this Village_geologicalvariation";
}
} else {
$msg = "Sorry!!! The Village_geologicalvariation you are tring to delete is not found";
}
$obj_mainpacket->returnValues = array($result, $obj_Village_geologicalvariation->TblId, $msg);
$obj_mainpacket->main_setPacket();
}
