ORA_PConnect();
if (!$ora_res){
echo "
Error : " . htmlspecialchars($ora_obj->last_error_msg) . "
";
exit();
}
initParamTemplate();
$result = getList($ora_obj);
echo $result;
unset($_SESSION['TEMPLATE_ARRAY_ADDR']);
if ($ora_obj->conn) {
$ora_obj->ORA_Close();
#echo "connection closed.
";
}
function initParamTemplate(){
$paramTemplate['ELEMENT'] = <<< params
<>. |
<> |
<> |
<> |
params;
$paramTemplate['CONTAINER'] = <<< params
Parameter Aplikasi |
|
params;
$paramTemplate['NORESULT'] = <<< params
params;
$_SESSION['TEMPLATE_ARRAY_ADDR'] = &$paramTemplate;
}
function getList(&$ora_obj){
$templObj = new PregReplaceCallbackClass('');
$templObj->SetTemplateArray('TEMPLATE_ARRAY_ADDR');
$paramSQL = <<< sql
SELECT paramid, paramdesc, paramvalue,
decode(paramtype, 'N', 'Numeric', 'I', 'Integer', 'S', 'String', 'D','Date', 'Character') paramtype,
TO_CHAR(tgl_update, 'YYYYMMDDHH24MISS') tgl_update
FROM prm_system
WHERE flag_oto = 'O'
ORDER BY paramid
sql;
$paramArray = $ora_obj->ORA_SelectData($paramSQL,null,null,OCI_FETCHSTATEMENT_BY_ROW);
$_SESSION['ARRAY_ADDR_VAR'] = &$variable_array;
if ($ora_obj->nrows>0) {
foreach ($paramArray as $pkey => $pval) {
$variable_array['COUNTER']++;
foreach ($pval as $tkey => $tval) {
$variable_array[$tkey] = htmlspecialchars($tval);
}
$templObj->SetFormatName('ELEMENT');
$list .= $templObj->PregReplaceCallback();
}
$variable_array['LIST'] = $list;
$templObj->SetFormatName('CONTAINER');
$result = $templObj->PregReplaceCallback();
} else {
$templObj->SetFormatName('NORESULT');
$result = $templObj->PregReplaceCallback();
}
return $result;
}
?>