public static function deleteSoiltype($obj_mainpacket)
{
$packet = $obj_mainpacket->packet;
$TblId = $packet[0];
$msg = "failed";
$result = 0;
$result_TblId = 0;
$retResult = BL_manageSoiltype::getSoiltypeListByTblId($TblId);
if ($retResult->type == 1) {
$obj_Soiltype = $retResult->data[0];
$obj_result2 = DAL_manageSoiltype::deleteSoiltype($obj_Soiltype->TblId);
if ($obj_result2->type == 1) {
$result = 1;
$result_TblId = $obj_Soiltype->TblId;
$msg = "success";
} else {
$msg = "Sorry!!! Problem occured while deleting this Soiltype";
}
} else {
$msg = "Sorry!!! The Soiltype you are tring to delete is not found";
}
$obj_mainpacket->returnValues = array($result, $obj_Soiltype->TblId, $msg);
$obj_mainpacket->main_setPacket();
}
function getSoiltypeByTblId($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_manageSoiltype::getSoiltypeListByTblId($id);
if ($result->type == 1) {
$arr_SoiltypeList = $result->data;
if (count($arr_SoiltypeList) > 0) {
$main_result .= "<RESULTSTATUS>1</RESULTSTATUS>";
foreach ($arr_SoiltypeList as $obj_Soiltype) {
$main_result .= getSoiltypeXml($obj_Soiltype);
}
} else {
$main_result .= "<RESULTSTATUS>0</RESULTSTATUS>";
}
} else {
$main_result .= "<RESULTSTATUS>0</RESULTSTATUS>";
}
}
$main_result .= "</VPROFILERESULT>";
return $main_result;
}
