ORA_PConnect();
if (!$ora_res){
echo "
Error : " . htmlspecialchars($ora_obj->last_error_msg) . "
";
exit();
}
if ($_SERVER['HTTP_REFERER'] == '') {
$result = "Proses Gagal";
} else {
//$field = explode(chr(31), $_REQUEST["attr"]);
$field = explode('^', $_REQUEST["attr"]);
$num_field = count($field);
for ($i=0;$i<$num_field-1;$i++) {
//$val_sep = chr(30);
$val_sep = '*';
list($field_name, $field_value) = split("[$val_sep]", $field[$i]);
$_REQUEST["$field_name"] = $field_value;
}
$_REQUEST["USER_UPDATE"] = $_SESSION["KD_USER"];
$_REQUEST["TGL_UPDATE"] = date('Y-m-d H:i:s');
$_REQUEST["FLAG_OTO"] = "O";
$_REQUEST["USER_OTO"] = $_SESSION["KD_USER"];
$_REQUEST["TGL_OTO"] = date('Y-m-d H:i:s');
$_REQUEST["IPNUM"] = gethostbyname($_SERVER['REMOTE_ADDR']);
if ($_REQUEST['action'] == "I") {
$result = InsertData($ora_obj);
} else if ($_REQUEST['action'] == "U") {
$result = UpdateData($ora_obj);
} else if ($_REQUEST['action'] == "D") {
$result = DeleteData($ora_obj);
} else {
$result = "0";
}
}
echo $result;
if ($ora_obj->conn) {
$ora_obj->ORA_Close();
#echo "connection closed.
";
}
function InsertData(&$ora_obj) {
//$ora_obj->SetServerOutput(true);
$exec = $ora_obj->ORA_InsertData(null, "{$_REQUEST['table']}");
//$ora_obj->GetDbmsOutput();
//$ora_obj->SetServerOutput(false);
if ($exec) {
$ora_obj->ORA_Commit();
return "1";
} else {
$e = $ora_obj->last_error_msg;
$ora_obj->ORA_Rollback();
$vKetError = trim(substr($e[0], 10, strlen($e[0])-10));
$msg = 'Insert GAGAL !!'.chr(10).$vKetError.chr(10).'Click OK untuk Refresh';
return $msg;
}
}
function UpdateData(&$ora_obj) {
$ora_obj->SetServerOutput(true);
$exec = $ora_obj->ORA_UpdateData(null, "{$_REQUEST['table']}");
$ora_obj->GetDbmsOutput();
$ora_obj->SetServerOutput(false);
if ($exec) {
$ora_obj->ORA_Commit();
return "1";
} else {
$e = $ora_obj->last_error_msg;
$ora_obj->ORA_Rollback();
$vKetError = trim(substr($e[0], 10, strlen($e[0])-10));
$msg = 'Update GAGAL !!'.chr(10).$vKetError.chr(10).'Click OK untuk Refresh';
return $msg;
}
}
function DeleteData(&$ora_obj) {
//$ora_obj->SetServerOutput(true);
$exec = $ora_obj->ORA_DeleteData(null, "{$_REQUEST['table']}");
//$ora_obj->GetDbmsOutput();
//$ora_obj->SetServerOutput(false);
if ($exec) {
$ora_obj->ORA_Commit();
return "1";
} else {
$e = $ora_obj->last_error_msg;
$ora_obj->ORA_Rollback();
$vKetError = trim(substr($e[0], 10, strlen($e[0])-10));
$msg = 'Delete GAGAL !!'.chr(10).$vKetError.chr(10).'Click OK untuk Refresh';
return $msg;
}
}
?>