echo ~ ~;
/*
global $TABLEBGCOLOUR;
global $TABLEFGCOLOUR;
global $CELLBGCOLOUR;
global $CELLFGCOLOUR;
global $TABLEBORDER;
global $CELLPADDING;
global $CELLSPACING;
global $HEADFONTSIZE;
global $BODYFONTSIZE;
global $LINENUMBERS;
$TABLEBGCOLOUR=~#0080C0~;
$TABLEFGCOLOUR=~WHITE~;
$CELLBGCOLOUR=~#fffff8~;
$CELLFGCOLOUR=~BLACK~;
$TABLEBORDER=6;
$CELLPADDING=2;
$CELLSPACING=1;
$HEADFONTSIZE=1;
$BODYFONTSIZE=1;
$LINENUMBERS=0;
global $NOSORT;
$NOSORT=1;
*/
if ($prm=='CS_Proc_Delete')
{
$sql=~update Responses set isDeleted=1 where qID='CS_Proc_Desc' and CaseID='~.abs($act).~'~;
ExecuteSQL($sql);
}
$fmt=ShowQueryResultScalar(~select fFormat from Forms where fID='CS_Process_Edit'~);
$sql=~select CaseID as ProcessId, rValue as Process, concat('') as EditIt, concat('') as DeleteIt from Responses where qID='CS_Proc_Desc' and isDeleted=0~;
ShowQueryResult($sql);
echo ~
~;
if ($prm=='CS_Proc_Create')
{
$UserId=$_SESSION['UserId'];
$sql=~insert into Responses (qID,rValue,uID,rInstance)~ .
~ select 'CS_Proc_Desc','New Process','$UserId','0'~;
ExecuteSQL($sql);
$CaseId=ShowQueryResultScalar(~select max(rUnique) from Responses where qID='CS_Proc_Desc'~);
ExecuteSQL(~update Responses set CaseID=$CaseId where rUnique=$CaseId~);
$_SESSION['CaseId']=$CaseId;
SetForm('CS_Process_Edit');
}
$stat=1;