<?php
/**
 * cases_StepsTree.php
 *
 * ProcessMaker Open Source Edition
 * Copyright (C) 2004 - 2008 Colosa Inc.23
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Affero General Public License as
 * published by the Free Software Foundation, either version 3 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Affero General Public License for more details.
 *
 * You should have received a copy of the GNU Affero General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 *
 * For more information, contact Colosa Inc, 2566 Le Jeune Rd.,
 * Coral Gables, FL, 33134, USA, or email info@colosa.com.
 *
 */

use ProcessMaker\Plugins\PluginRegistry;

$c = new Criteria();
$c->add(StepPeer::PRO_UID, $_SESSION['PROCESS']);
$c->add(StepPeer::TAS_UID, $_SESSION['TASK']);
$c->addAscendingOrderByColumn(StepPeer::STEP_POSITION);

$oPluginRegistry = PluginRegistry::loadSingleton();
$externalSteps = $oPluginRegistry->getSteps();

$oTree = new PmTree();
$oTree->nodeType = "blank";
$oTree->name = 'Steps';
$oTree->showSign = false;

$tasUid = $_SESSION['TASK'];
$rs = StepPeer::doSelect($c);

$oCase = new Cases();
$Fields = $oCase->loadCase($_SESSION['APPLICATION']);
$oPMScript = new PMScript();
$oPMScript->setFields($Fields['APP_DATA']);
foreach ($rs as $key => $aRow) {
    $bAccessStep = false;
    if (trim($aRow->getStepCondition()) != '') {
        $oPMScript->setScript($aRow->getStepCondition());
        $bAccessStep = $oPMScript->evaluate();
    } else {
        $bAccessStep = true;
    }

    if ($bAccessStep) {
        switch ($aRow->getStepTypeObj()) {
            case 'DYNAFORM':
                $oDocument = DynaformPeer::retrieveByPK($aRow->getStepUidObj());
                $stepTitle = $oDocument->getDynTitle();
                break;
            case 'OUTPUT_DOCUMENT':
                $oDocument = OutputDocumentPeer::retrieveByPK($aRow->getStepUidObj());
                $stepTitle = $oDocument->getOutDocTitle();
                break;
            case 'INPUT_DOCUMENT':
                $oDocument = InputDocumentPeer::retrieveByPK($aRow->getStepUidObj());
                $stepTitle = $oDocument->getInpDocTitle();
                $sType = $oDocument->getInpDocFormNeeded();
                break;
            case 'EXTERNAL':
                $stepTitle = 'unknown ' . $aRow->getStepUidObj();
                $oPluginRegistry = PluginRegistry::loadSingleton();
                /** @var \ProcessMaker\Plugins\Interfaces\StepDetail $val */
                foreach ($externalSteps as $val) {
                    if ($val->equalStepIdTo($aRow->getStepUidObj())) {
                        $stepTitle = $val->getStepTitle(); //default title
                        $sNamespace = $val->getNamespace();
                        $oPlugin = $oPluginRegistry->getPlugin($sNamespace);
                        $classFile = PATH_PLUGINS . $oPlugin->sNamespace . PATH_SEP . 'class.' . $oPlugin->sNamespace . '.php';
                        if (file_exists($classFile)) {
                            require_once($classFile);
                            $sClassName = $sNamespace . 'class';
                            $obj = new $sClassName();
                            if (method_exists($obj, 'getExternalStepTitle')) {
                                $stepTitle = $obj->getExternalStepTitle($aRow->getStepUidObj(), $tasUid, $aRow->getStepPosition());
                            }
                        }
                    }
                }
                break;

            default:
                $stepTitle = $aRow->getStepUid();
        }

        $oNode = $oTree->addChild($aRow->getStepUid(), '&nbsp;' . $stepTitle, array('nodeType' => 'parent'));
        $oNode->plus = '';
        $oNode->minus = '';
        switch ($aRow->getStepTypeObj()) {
            case 'DYNAFORM':
                $sOptions = '<table width="70%" cellpadding="0" cellspacing="0" border="0"><tr>';
                $sOptions .= '<td width="100%" class="treeNode"><a style="' . (($_GET['TYPE'] == 'DYNAFORM') && ($_GET['UID'] == $aRow->getStepUidObj() && ($_GET['ACTION'] == 'EDIT')) ? 'background-color:orange;color:white;padding-left:5px;padding-right:5px; ' : '') . '" href="../cases/cases_Step?TYPE=' . $aRow->getStepTypeObj() . '&UID=' . $aRow->getStepUidObj() . '&POSITION=' . $aRow->getStepPosition() . '&ACTION=EDIT">' . G::LoadTranslation('ID_EDIT') . '</a></td>';
                $sOptions .= '</tr></table>';
                $oAux = $oNode->addChild($aRow->getStepUid() . '_node', $sOptions, array('nodeType' => 'child'));
                break;
            case 'OUTPUT_DOCUMENT':
                $sOptions = '<table width="70%" cellpadding="0" cellspacing="0" border="0"><tr>';
                $oCriteria = new Criteria('workflow');
                $oCriteria->add(AppDocumentPeer::APP_UID, $_SESSION['APPLICATION']);
                $oCriteria->add(AppDocumentPeer::DEL_INDEX, $_SESSION['INDEX']);
                $oCriteria->add(AppDocumentPeer::DOC_UID, $aRow->getStepUidObj());
                $oCriteria->add(AppDocumentPeer::APP_DOC_TYPE, 'OUTPUT');
                $oDataset = AppDocumentPeer::doSelectRS($oCriteria);
                $oDataset->setFetchmode(ResultSet::FETCHMODE_ASSOC);
                $oDataset->next();
                if ($aRow2 = $oDataset->getRow()) {
                    $sOptions .= '<td width="30%" class="treeNode"><a style="' . (($_GET['TYPE'] == 'OUTPUT_DOCUMENT') && ($_GET['UID'] == $aRow->getStepUidObj() && ($_GET['ACTION'] == 'VIEW')) ? 'background-color:orange;color:white;padding-left:5px;padding-right:5px;' : '') . '" href="../cases/cases_Step?TYPE=' . $aRow->getStepTypeObj() . '&UID=' . $aRow->getStepUidObj() . '&POSITION=' . $aRow->getStepPosition() . '&ACTION=VIEW&DOC=' . $aRow2['APP_DOC_UID'] . '">' . G::LoadTranslation('ID_VIEW') . '</a></td>';
                    $sOptions .= '<td width="40%" class="treeNode"><a style="' . (($_GET['TYPE'] == 'OUTPUT_DOCUMENT') && ($_GET['UID'] == $aRow->getStepUidObj() && ($_GET['ACTION'] == 'GENERATE')) ? 'background-color:orange;color:white;padding-left:5px;padding-right:5px;' : '') . '" href="../cases/cases_Step?TYPE=' . $aRow->getStepTypeObj() . '&UID=' . $aRow->getStepUidObj() . '&POSITION=' . $aRow->getStepPosition() . '&ACTION=GENERATE">' . G::LoadTranslation('ID_GENERATE') . '</a></td>';
                    $sOptions .= '<td width="30%" class="treeNode"><a style="' . (($_GET['TYPE'] == 'OUTPUT_DOCUMENT') && ($_GET['UID'] == $aRow->getStepUidObj() && ($_GET['ACTION'] == 'DELETE')) ? 'background-color:orange;color:white;padding-left:5px;padding-right:5px;' : '') . '" href="../cases/cases_DeleteDocument?TYPE=OUTPUT&DOC=' . $aRow2['APP_DOC_UID'] . '" onclick="return confirm(\'' . G::LoadTranslation('ID_CONFIRM_DELETE_ELEMENT') . '\');">' . G::LoadTranslation('ID_DELETE') . '</a></td>';
                } else {
                    $sOptions .= '<td width="100%" class="treeNode"><a style="' . (($_GET['TYPE'] == 'OUTPUT_DOCUMENT') && ($_GET['UID'] == $aRow->getStepUidObj() && ($_GET['ACTION'] == 'GENERATE')) ? 'background-color:orange;color:white;padding-left:5px;padding-right:5px;' : '') . '" href="../cases/cases_Step?TYPE=' . $aRow->getStepTypeObj() . '&UID=' . $aRow->getStepUidObj() . '&POSITION=' . $aRow->getStepPosition() . '&ACTION=GENERATE">' . G::LoadTranslation('ID_GENERATE') . '</a></td>';
                }
                $sOptions .= '</tr></table>';
                $oAux = $oNode->addChild($aRow->getStepUid() . '_node', $sOptions, array('nodeType' => 'child'));
                break;
            case 'INPUT_DOCUMENT':
                $sOptions = '<table width="100%" cellpadding="0" cellspacing="0" border="0"><tr>';
                $sOptions .= '<td width="100%" class="treeNode"><a style="' . (($_GET['TYPE'] == 'INPUT_DOCUMENT') && ($_GET['UID'] == $aRow->getStepUidObj() && ($_GET['ACTION'] == 'ATTACH')) ? 'background-color:orange;color:white;padding-left:5px;padding-right:5px;' : '') . '" href="../cases/cases_Step?TYPE=' . $aRow->getStepTypeObj() . '&UID=' . $aRow->getStepUidObj() . '&POSITION=' . $aRow->getStepPosition() . '&ACTION=ATTACH">' . ($sType == 'REAL' ? G::LoadTranslation('ID_NEW') : G::LoadTranslation('ID_ATTACH')) . '</a></td>';
                $sOptions .= '</tr></table>';
                $oCri = new Criteria;
                $oCri->add(AppDocumentPeer::APP_UID, $_SESSION['APPLICATION']);
                $oCri->add(AppDocumentPeer::DEL_INDEX, $_SESSION['INDEX']);
                $oCri->add(AppDocumentPeer::DOC_UID, $aRow->getStepUidObj());
                $oCri->add(AppDocumentPeer::APP_DOC_TYPE, 'INPUT');
                $oCri->addAscendingOrderByColumn(AppDocumentPeer::APP_DOC_INDEX);
                $aDocuments = AppDocumentPeer::doSelect($oCri);
                if (sizeof($aDocuments) !== 0) {
                    $i = 1;
                    $sOptions .= '<table width="90%" align="center" cellpadding="0" cellspacing="0" border="0">';
                    reset($aDocuments);
                    while ($oDocument = current($aDocuments)) {
                        $aRow2 = $oDocument->toArray(BasePeer::TYPE_FIELDNAME);
                        $oAux1 = new AppDocument();
                        $aAux = $oAux1->load($aRow2['APP_DOC_UID']);
                        $sOptions .= '<tr>';
                        if ($aAux['APP_DOC_FILENAME'] != '') {
                            $sAux = $aAux['APP_DOC_FILENAME'];
                        } else {
                            $sAux = $aAux['APP_DOC_COMMENT'];
                        }
                        $sOptions .= '<td width="5%">' . $i . '.</td><td width="55%" class="treeNodeAlternate"><input type="text" readonly="readonly" style="font:inherit;border:none;width:100%;" value="' . htmlentities($sAux, ENT_QUOTES, "utf-8") . '" title="' . $sAux . '" /></td>';
                        global $oPluginRegistry;
                        if (!$oPluginRegistry->existsTrigger(PM_CASE_DOCUMENT_LIST)) {
                            if (isset($_GET['DOC'])) {
                                $sOptions .= '<td width="20%" class="treeNode" align="center"><a style="' . (($_GET['TYPE'] == 'INPUT_DOCUMENT') && ($_GET['UID'] == $aRow->getStepUidObj() && ($_GET['ACTION'] == 'VIEW') && ($_GET['DOC'] == $aRow2['APP_DOC_UID'])) ? 'background-color:orange;color:shite;padding-left:5px;padding-right:5px;' : '') . '" href="../cases/cases_Step?TYPE=' . $aRow->getStepTypeObj() . '&UID=' . $aRow->getStepUidObj() . '&POSITION=' . $aRow->getStepPosition() . '&ACTION=VIEW&DOC=' . $aRow2['APP_DOC_UID'] . '&VERSION=' . $aRow2['DOC_VERSION'] . '">' . G::LoadTranslation('ID_VIEW') . '</a></td>';
                            } else {
                                $sOptions .= '<td width="20%" class="treeNode" align="center"><a style="" href="../cases/cases_Step?TYPE=' . $aRow->getStepTypeObj() . '&UID=' . $aRow->getStepUidObj() . '&POSITION=' . $aRow->getStepPosition() . '&ACTION=VIEW&DOC=' . $aRow2['APP_DOC_UID'] . '&VERSION=' . $aRow2['DOC_VERSION'] . '">' . G::LoadTranslation('ID_VIEW') . '</a></td>';
                            }
                            $sOptions .= '<td width="20%" class="treeNode" align="center"><a href="../cases/cases_DeleteDocument?TYPE=INPUT&DOC=' . $aRow2['APP_DOC_UID'] . '" onclick="return confirm(\'' . G::LoadTranslation('ID_CONFIRM_DELETE_ELEMENT') . '\');">' . G::LoadTranslation('ID_DELETE') . '</a></td>';
                        }
                        $sOptions .= '</tr>';
                        $i++;
                        next($aDocuments);
                    }
                    $sOptions .= '</table>';
                }
                $oAux = $oNode->addChild($aRow->getStepUid() . '_node', $sOptions, array('nodeType' => 'child'));

                break;
            case 'MESSAGE':
                $sOptions = '<table width="70%" cellpadding="0" cellspacing="0" border="0"><tr>';
                $sOptions .= '<td width="100%" class="treeNode"></td>';
                $sOptions .= '</tr></table>';
                $oAux = $oNode->addChild($aRow['STEP_UID'] . '_node', $sOptions, array('nodeType' => 'child'));
                break;
            case 'EXTERNAL':
                $aActions = array('action' => 'label');
                $oPluginRegistry = PluginRegistry::loadSingleton();
                /** @var \ProcessMaker\Plugins\Interfaces\StepDetail $val */
                foreach ($externalSteps as $keyStep => $val) {
                    if ($val->equalStepIdTo($aRow->getStepUidObj())) {
                        $stepTitle = $val->getStepTitle(); //default title
                        $sNamespace = $val->getNamespace();
                        $oPlugin = $oPluginRegistry->getPlugin($sNamespace);
                        $classFile = PATH_PLUGINS . $oPlugin->sNamespace . PATH_SEP . 'class.' . $oPlugin->sNamespace . '.php';
                        if (file_exists($classFile)) {
                            require_once($classFile);
                            $sClassName = $sNamespace . 'class';
                            $obj = new $sClassName();
                            if (method_exists($obj, 'getExternalStepAction')) {
                                $aActions = $obj->getExternalStepAction($aRow->getStepUidObj(), $aRow->getStepPosition());
                            }
                        }
                    }
                }

                $sOptions = "<table width='70%' cellpadding='0' cellspacing='0' border='0'><tr>";
                $sOptions .= "<td width='100%' class='treeNode'>";
                foreach ($aActions as $action => $label) {
                    $styleAction = $_GET['UID'] == $aRow->getStepUidObj() &&
                    $_GET['POSITION'] == $aRow->getStepPosition() &&
                    $_GET['ACTION'] == $action ? 'background-color:orange;color:white;padding-left:5px;padding-right:5px; ' : '';
                    $sOptions .= " <a style='$styleAction' href='../cases/cases_Step?TYPE=" .
                        $aRow->getStepTypeObj() . "&UID=" . $aRow->getStepUidObj() . "&POSITION=" . $aRow->getStepPosition() . "&ACTION=$action'>" . $label . "</a>";
                }
                $sOptions .= '</td></tr></table>';

                $oAux = $oNode->addChild($aRow->getStepUid() . '_node', $sOptions, array('nodeType' => 'child'));
        }
        $oAux->point = '';
    }
}

$oNode = $oTree->addChild('-1', '<span class="treeNode"><a style="' . (($_GET['TYPE'] == 'ASSIGN_TASK') && ($_GET['UID'] == '-1' && ($_GET['ACTION'] == 'ASSIGN')) ? 'background-color:orange;padding-left:5px;padding-right:5px;color:white;' : '') . '" href="../cases/cases_Step?TYPE=ASSIGN_TASK&UID=-1&POSITION=10000&ACTION=ASSIGN">[ ' . G::LoadTranslation('ID_ASSIGN_TASK') . ' ]</a></span>', array('nodeType' => 'parent'));
$oNode->plus = '';
$oNode->minus = '';

echo $oTree->render();