if (file_exists(PATH_OUTTRUNK . 'compiled' . PATH_SEP . 'xmlform' . PATH_SEP . $sProUid)) {
$oDirectory = dir(PATH_OUTTRUNK . 'compiled' . PATH_SEP . 'xmlform' . PATH_SEP . $sProUid);
while ($sObjectName = $oDirectory->read()) {
if ($sObjectName != '.' && $sObjectName != '..') {
unlink(PATH_OUTTRUNK . 'compiled' . PATH_SEP . 'xmlform' . PATH_SEP . $sProUid . PATH_SEP . $sObjectName);
}
}
$oDirectory->close();
}
$sNewProUid = $sProUid;
}
//Disable current Process and create a new version of the Process
if ($option == 2) {
$oProcess->disablePreviousProcesses($sProUid);
$sNewProUid = $oProcess->getUnusedProcessGUID();
$oProcess->setProcessGuid($oData, $sNewProUid);
$oProcess->setProcessParent($oData, $sProUid);
$oData->process['PRO_TITLE'] = "New - " . $oData->process['PRO_TITLE'] . ' - ' . date('M d, H:i');
$oProcess->renewAll($oData);
$oProcess->createProcessFromDataXpdl($oData, $tasks);
}
//Create a completely new Process without change the current Process
if ($option == 3) {
//krumo ($oData); die;
$sNewProUid = $oProcess->getUnusedProcessGUID();
$oProcess->setProcessGuid($oData, $sNewProUid);
$oData->process['PRO_TITLE'] = "Copy of - " . $oData->process['PRO_TITLE'] . ' - ' . date('M d, H:i');
$oProcess->renewAll($oData);
$oProcess->createProcessFromDataXpdl($oData, $tasks);
}
G::header('Location: processes_Map?PRO_UID=' . $sNewProUid);
