' . "\n" . ' <en>Sample form</en>' . "\n" . '

<?php
/**
 * class.dynaformEditor.php
 * @package workflow.engine.classes
 *
 * ProcessMaker Open Source Edition
 * Copyright (C) 2004 - 2011 Colosa Inc.
 *
 * 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.
 */
 
/**
 * Created on 21/12/2007
 * Dynaform - Dynaform class 
 * @copyright 2007 COLOSA
 * @author David Callizaya <davidsantos@colosa.com>
 */

G::LoadSystem("webResource");
G::LoadClass('toolBar');
G::LoadClass('dynaFormField');
require_once('classes/model/Process.php');
require_once('classes/model/Dynaform.php');
G::LoadClass('xmlDb');

/**
 * @package workflow.engine.classes
 */

class dynaformEditor extends WebResource 
{
  private $isOldCopy = false;
  var $file='';
  var $title='New Dynaform';
  var $dyn_uid='';
  var $dyn_type='';
  var $home='';
  /**
   * Other Options for Editor:
   *   left: 'getAbsoluteLeft(document.getElementById("dynaformEditor[0]"))',
   *   top: 'getAbsoluteTop(document.getElementById("dynaformEditor[0]"))',
   *   height: '3/4*(document.body.clientWidth-getAbsoluteLeft(document.getElementById("dynaformEditor[0]"))*2)',
   *   left: 'getAbsoluteLeft(document.getElementById("dynaformEditor[0]"))'
   *   left: 'getAbsoluteLeft(document.getElementById("dynaformEditor[0]"))'
   *
   * Other Options for Toolbar:
   *   left: 'getAbsoluteLeft(document.getElementById("dynaformEditor[0]"))',
   *   top: 'getAbsoluteTop(document.getElementById("dynaformEditor[0]"))',
   */
  var $defaultConfig = array(
    'Editor'  => array(
      'left'  => '0',
      'top'   => '0',
      'width' => 'document.body.clientWidth-4',
      'height'=> 'document.body.clientHeight-4'
    ),
    'Toolbar' => array(
      'left'  => 'document.body.clientWidth-2-toolbar.clientWidth-24-3+7',
      'top'   => '52'
    ),
    'FieldsList' => array(
      'left'  =>'4+toolbar.clientWidth+24',
      'top'   =>'getAbsoluteTop(document.getElementById("dynaformEditor[0]"))',
      'width' => 244,
      'height'=> 400,
    )
  );
  var $panelConf=array(
    'style'  => array(
      'title'=> array('textAlign'=>'center')
    ),
    'width'       => 700,
    'height'      => 600,
    'tabWidth'    => 120,
    'modal'       => true,
    'drag'        => false,
    'resize'      => false,
    'blinkToFront'=> false
  );
    
  /**
   * Constructor of the class dynaformEditor
   * @param string $get
   * @return void
   */
  function dynaformEditor($get) 
  {
    $this->panelConf = array_merge( $this->panelConf , $this->defaultConfig['Editor'] );
    //'title' => G::LoadTranslation('ID_DYNAFORM_EDITOR').' - ['.$this->title.']',
  }
  
  /**
   * Create the xml form default
   * @param string $filename
   * @return void
   */
  function _createDefaultXmlForm($fileName) 
  {
   //Create the default Dynaform
    $sampleForm='<?xml version="1.0" encoding="UTF-8"?>'."\n";
    $sampleForm.='<dynaForm type="'.$this->dyn_type.'" name="" width="500" enabletemplate="0" mode="edit">'."\n";
    switch ($this->dyn_type) {
      case "xmlform":
        /*$sampleForm.='<title type="title" enablehtml="0">' . "\n" .
        '  <en>Sample form</en>' . "\n" .
        '</title>'."\n";
        $sampleForm.='<submit type="submit" enablehtml="0" onclick="">' . "\n" .
        '  <en>Submit</en>' . "\n" .
       '</submit>'."\n";*/
        break;
      case "grid":
        /*$sampleForm.='<fieldA type="text" >' . "\n" .
        '<en>A</en>' . "\n" .
        '</fieldA>'."\n";
        $sampleForm.='<fieldB type="text" >' . "\n" .
        '<en>B</en>' . "\n" .
        '</fieldB>'."\n";*/
        break;
    }
    $sampleForm.='</dynaForm>';
    G::verifyPath(dirname($fileName), true);
    $fp=fopen($fileName,'w');
    $sampleForm=str_replace('name=""','name="'.$this->_getFilename($this->file).'"', $sampleForm );
    fwrite($fp, $sampleForm);
    fclose($fp);
  }
  
  /**
   * Prints the DynaformEditor
   * @return void
   */
  function _render() 
  {
    global $G_PUBLISH;
    $script='';
    /* Start Block: Load (Create if not exists) the xmlform */
    $Parameters = array(
      'SYS_LANG'     => SYS_LANG,
      'URL'          => G::encrypt( $this->file , URL_KEY ),
      'DYN_UID'      => $this->dyn_uid,
      'PRO_UID'      => $this->pro_uid,
      'DYNAFORM_NAME'=> $this->dyn_title,
      'FILE'         => $this->file,
      'DYN_EDITOR'     => $this->dyn_editor,
    );
    $_SESSION['Current_Dynafom']['Parameters'] = $Parameters;
    $XmlEditor = array(
      'URL'=> G::encrypt( $this->file , URL_KEY ),
      'XML'=> ''//$openDoc->getXml()
    );
    $JSEditor  = array(
      'URL'=> G::encrypt( $this->file , URL_KEY ),
    );
    
    $A = G::encrypt( $this->file , URL_KEY );
    
    try {
      $openDoc = new Xml_Document();
      $fileName= $this->home . $this->file . '.xml';
      if (file_exists($fileName)) {
        $openDoc->parseXmlFile($fileName);
      } else {
        $this->_createDefaultXmlForm($fileName);
        $openDoc->parseXmlFile($fileName);
      }
      //$form = new Form( $this->file , $this->home, SYS_LANG, true );
      $Properties = dynaformEditorAjax::get_properties( $A , $this->dyn_uid );
            /* Start Block: Prepare the XMLDB connection */
      define('DB_XMLDB_HOST', PATH_DYNAFORM  . $this->file . '.xml' );
      define('DB_XMLDB_USER','');
      define('DB_XMLDB_PASS','');
      define('DB_XMLDB_NAME','');
      define('DB_XMLDB_TYPE','myxml');
      /* Start Block: Prepare the dynaformEditor */
      $G_PUBLISH = new Publisher;
      $sName='dynaformEditor';
      $G_PUBLISH->publisherId=$sName;
      $oHeadPublisher =& headPublisher::getSingleton();
      $labesTrans = G::getTranslations(Array('ID_FIELD_DYNAFORM_TEXT','ID_FIELD_DYNAFORM_CURRENCY','ID_FIELD_DYNAFORM_PERCENTAGE','ID_FIELD_DYNAFORM_PASSWORD','ID_FIELD_DYNAFORM_SUGGEST',
      'ID_FIELD_DYNAFORM_TEXTAREA','ID_FIELD_DYNAFORM_TITLE','ID_FIELD_DYNAFORM_SUBTITLE', 'ID_FIELD_DYNAFORM_BUTTON', 'ID_FIELD_DYNAFORM_SUBMIT', 'ID_FIELD_DYNAFORM_RESET',
      'ID_FIELD_DYNAFORM_DROPDOWN', 'ID_FIELD_DYNAFORM_YESNO', 'ID_FIELD_DYNAFORM_LISTBOX', 'ID_FIELD_DYNAFORM_CHECKBOX', 'ID_FIELD_DYNAFORM_CHECKGROUP', 'ID_FIELD_DYNAFORM_RADIOGROUP',
      'DATE_LABEL', 'ID_FIELD_DYNAFORM_HIDDEN', 'ID_FIELD_DYNAFORM_LINK', 'ID_FIELD_DYNAFORM_LINK', 'ID_FIELD_DYNAFORM_FILE', 'ID_FIELD_DYNAFORM_JAVASCRIPT', 'ID_FIELD_DYNAFORM_GRID',
      'ID_INDEX' ));
      $oHeadPublisher->addScriptCode("var TRANSLATIONS = " . json_encode($labesTrans).";");
      $oHeadPublisher->setTitle(G::LoadTranslation('ID_DYNAFORM_EDITOR'). ' - ' . $Properties['DYN_TITLE']);
      $G_PUBLISH->AddContent('blank');
      $this->panelConf['title']=$this->title;
      $G_PUBLISH->AddContent('panel-init', 'mainPanel', $this->panelConf );
      if ($Properties['DYN_TYPE'] == 'xmlform') {
        $G_PUBLISH->AddContent('xmlform', 'toolbar', 'dynaforms/fields_Toolbar', 'display:none', $Parameters , '', '');
      }
      else {
        $G_PUBLISH->AddContent('xmlform', 'toolbar', 'dynaforms/fields_ToolbarGrid', 'display:none', $Parameters , '', '');
      }
      $G_PUBLISH->AddContent('xmlform', 'xmlform', 'dynaforms/dynaforms_Editor', 'display:none', $Parameters , '', '');
      $G_PUBLISH->AddContent('xmlform', 'xmlform', 'dynaforms/dynaforms_XmlEditor', 'display:none', $XmlEditor , '', '');
      $G_PUBLISH->AddContent('blank');
      $i         = 0;
      $aFields   = array();
      $aFields[] = array(
                        'XMLNODE_NAME' => 'char',
                        'TYPE'         => 'char',
                        'UP'           => 'char',
                        'DOWN'         => 'char'
                        );
      $oSession = new DBSession(new DBConnection(PATH_DYNAFORM  . $this->file . '.xml', '', '', '', 'myxml'));
      $oDataset = $oSession->Execute('SELECT * FROM dynaForm WHERE NOT( XMLNODE_NAME = "" ) AND TYPE <> "pmconnection"');
      $iMaximun = $oDataset->count();
      while ($aRow = $oDataset->Read()) {
        $aFields[] = array(
                           'XMLNODE_NAME' => $aRow['XMLNODE_NAME'],
                           'TYPE'         => $aRow['TYPE'],
                           'UP'           => ($i > 0 ? G::LoadTranslation('ID_UP') : ''),
                           'DOWN'         => ($i < $iMaximun-1 ? G::LoadTranslation('ID_DOWN') : ''),
                           'row__'        => ($i + 1)
                          );
        $i++;
        break;
      }
      global $_DBArray;
      $_DBArray['fields']   = $aFields;
      $_SESSION['_DBArray'] = $_DBArray;
      G::LoadClass('ArrayPeer');
      $oCriteria = new Criteria('dbarray');
      $oCriteria->setDBArrayTable('fields');
      /***@Erik-> this is deprecated,. (unuseful) $G_PUBLISH->AddContent('propeltable', 'paged-table', 'dynaforms/fields_List', $oCriteria, $Parameters, '', SYS_URI.'dynaforms/dynaforms_PagedTableAjax');***/
      $G_PUBLISH->AddContent('blank');
      $G_PUBLISH->AddContent('xmlform', 'xmlform', 'dynaforms/dynaforms_JSEditor', 'display:none', $JSEditor , '', '');
    } 
    catch (Exception $e) {
    }
    $G_PUBLISH->AddContent('xmlform', 'xmlform', 'dynaforms/dynaforms_Properties', 'display:none', $Properties , '', '');
    //for showHide tab option @Neyek
    $G_PUBLISH->AddContent('blank');
    $G_PUBLISH->AddContent('panel-tab',G::LoadTranslation("ID_PREVIEW"),$sName.'[3]','dynaformEditor.changeToPreview','dynaformEditor.saveCurrentView');
    $G_PUBLISH->AddContent('panel-tab',G::LoadTranslation("ID_XML"),$sName.'[4]','dynaformEditor.changeToXmlCode','dynaformEditor.saveCurrentView');
    $G_PUBLISH->AddContent('panel-tab',G::LoadTranslation("ID_HTML"),$sName.'[5]','dynaformEditor.changeToHtmlCode','dynaformEditor.saveCurrentView');
    $G_PUBLISH->AddContent('panel-tab',G::LoadTranslation("ID_FIELDS_LIST"),$sName.'[6]','dynaformEditor.changeToFieldsList','dynaformEditor.saveCurrentView');
    $G_PUBLISH->AddContent('panel-tab',G::LoadTranslation("ID_JAVASCRIPTS"),$sName.'[7]','dynaformEditor.changeToJavascripts','dynaformEditor.saveCurrentView');
    $G_PUBLISH->AddContent('panel-tab',G::LoadTranslation("ID_PROPERTIES"),$sName.'[8]','dynaformEditor.changeToProperties','dynaformEditor.saveCurrentView');
    //for showHide tab option @Neyek
    $G_PUBLISH->AddContent('panel-tab',G::LoadTranslation("ID_CONDITIONS_EDITOR"),$sName.'[9]','dynaformEditor.changeToShowHide','dynaformEditor.saveShowHide');
    $G_PUBLISH->AddContent('panel-close');
    $oHeadPublisher->addScriptFile('/jscore/dynaformEditor/core/dynaformEditor.js');
    //$oHeadPublisher->addScriptFile('/js/dveditor/core/dveditor.js');
    //$oHeadPublisher->addScriptFile('/codepress/codepress.js',1);
    $oHeadPublisher->addScriptFile('/js/codemirror/js/codemirror.js',1);
    
    $oHeadPublisher->addScriptFile('/js/grid/core/grid.js');
    $oHeadPublisher->addScriptCode('
    var DYNAFORM_URL="'.$Parameters['URL'].'";
    leimnud.event.add(window,"load",function(){ loadEditor(); });
    ');
    G::RenderPage( "publish", 'blank' );
  }
  
  /**
   * Get the filename
   * @param string $file
   * @return string
   */
  function _getFilename($file) 
  {
    return (strcasecmp(substr($file,-5),'_tmp0')==0)? substr($file,0,strlen($file)-5) : $file;
  }
  
  /**
   * Set the temporal copy
   * @param string $onOff
   * @return void
   */
  function _setUseTemporalCopy($onOff) 
  {
    $file = self::_getFilename( $this->file );
    if ($onOff) {
      $this->file=$file.'_tmp0';
      self::_setTmpData(array('useTmpCopy'=>true));
        if (!file_exists(PATH_DYNAFORM  . $file . '.xml'))
          $this->_createDefaultXmlForm(PATH_DYNAFORM  . $file . '.xml');
          //Creates a copy if it does not exists, else, use the old copy
          if (!file_exists(PATH_DYNAFORM  . $this->file . '.xml'))
            self::_copyFile(PATH_DYNAFORM  . $file . '.xml',PATH_DYNAFORM  . $this->file . '.xml');
            if (!file_exists(PATH_DYNAFORM  . $this->file . '.html')
              && file_exists(PATH_DYNAFORM  . $file . '.html'))
              self::_copyFile(PATH_DYNAFORM  . $file . '.html',PATH_DYNAFORM  . $this->file . '.html');
      }
    else {
      $this->file=$file;
      self::_setTmpData(array());
    }
  }
  
 /**
  * Set temporal data
  * @param $data
  * @return void
  */ 
  function _setTmpData($data) 
  {
    G::verifyPath(PATH_C . 'dynEditor/',true);
    $fp=fopen(PATH_C . 'dynEditor/'.session_id().'.php','w');
    fwrite($fp,'$tmpData=unserialize(\''.addcslashes(serialize($data),'\\\'').'\');');
    fclose($fp);
  }
  
 /**
  * Get temporal data
  * @param string $filename
  * @return array 
  */
  function _getTmpData() 
  {
    $tmpData = array();
    $file    = PATH_C . 'dynEditor/'.session_id().'.php';
    if (file_exists($file)) eval(implode('',file($file)));
      return $tmpData;
  }
 /**
   * Copy files
   * @param file $from
   * @param file $to
   * @return void
   */
  function _copyFile($from,$to) 
  {
    $copy  = implode('',file($from));
    $fcopy = fopen($to,"w");
    fwrite($fcopy, $copy);
    fclose($fcopy);
  }
}

interface iDynaformEditorAjax 
{
  //public function render_preview($A);
}

/**
 * DynaformEditorAjax - DynaformEditorAjax class
 * 
 * @package workflow.engine.classes
 */

class dynaformEditorAjax extends dynaformEditor implements iDynaformEditorAjax 
{
  
  /**
   * Constructor of the class dynaformEditorAjax
   * @param var $post
   * @return void
   */
  function dynaformEditorAjax($post) 
  {
    $this->_run($post);
  }
  
  /**
   * Function Run
   * @param var $post
   * @return void
   */
  function _run($post) 
  {
    WebResource::WebResource($_SERVER['REQUEST_URI'],$post);
  }
  
  /**
   * Prints the DynaformEditorAjax
   * @param object $A
   * @return ob_get_clean
   */
  function render_preview($A) 
  { ob_start();
    $file = G::decrypt( $A , URL_KEY );
    global $G_PUBLISH;
    $G_PUBLISH = new Publisher;
    $G_PUBLISH->publisherId='preview';
    $form = new Form( $file , PATH_DYNAFORM, SYS_LANG, true, $G_PUBLISH->publisherId);
    switch(basename($form->template,'.html')) {
      case 'grid': 
        $template = 'grid';
        $aAux     = array_keys($form->fields);
        if (count($aAux) > 0) {
          $aFields = (array_combine($aAux,$aAux));
        }
        else {
          $aFields = $aAux;
        }
        if (is_array($aFields)) {
          foreach($aFields as $key => $val) 
            $aFields[$key]=array(1=>"",2=>"",3=>"",4=>"",5=>"");
        }
        break;
      default:
        $template = 'xmlform_' . $G_PUBLISH->publisherId;
        $aFields  = array( '__DYNAFORM_OPTIONS'=> array(
                                                      'PREVIOUS_STEP'     => '#',
                                                      'NEXT_STEP'         => '#',
                                                      'PREVIOUS_ACTION'  => 'return false;',
                                                      'NEXT_ACTION'      => 'return false;'
                                                      )
                        );
    }
    $G_PUBLISH->AddContent('dynaform', $template , $file, '',$aFields, '');
    G::RenderPage('publish','raw');
    return ob_get_clean();
  }
  
  /**
   * Prints the Dynaform in format HTML
   * @param object $A
   * @return array
   */
  function render_htmledit($A) 
  {
    $script = '';
    $file   = G::decrypt( $A , URL_KEY );
    ob_start();
    global $G_PUBLISH;
    $form                   = new Form( $file , PATH_DYNAFORM, SYS_LANG, true );
    $G_PUBLISH              = new Publisher;
    $G_PUBLISH->publisherId = '';
    $html                   = $this->get_htmlcode($A);
    if (!is_string($html)) {
      $error = $html;
      $html  = '';
    }
    else {
     $error = 0;
    }
    $HtmlEditor = array(
                       'URL' => $A,
                       'HTML'=> $html
                        );
    $G_PUBLISH->AddContent('xmlform', 'xmlform', 'dynaforms/dynaforms_HtmlEditor', '', $HtmlEditor , '', '');
    G::RenderPage( "publish", 'raw' );
    return array('error'=>$error,'html'=>ob_get_clean());
  }
  /**
   * Get the html code
   * Loads the stored HTML or the default Template if
   * it does not exists.
   * @param object $A
   * @return code html
   */
  function get_htmlcode($A) 
  {
    try {
      $script = '';
      $file   = G::decrypt( $A , URL_KEY );
      $form   = new Form( $file , PATH_DYNAFORM, SYS_LANG, true );
    /* Navigation Bar */
    /*$form->fields=G::array_merges(
    array('__DYNAFORM_OPTIONS' => new XmlForm_Field_XmlMenu(
    new Xml_Node(
    '__DYNAFORM_OPTIONS',
    'complete',
    '',
    array('type'=>'xmlmenu','xmlfile'=>'gulliver/dynaforms_Options')
    ),SYS_LANG,PATH_XMLFORM,$form)
    ),
    $form->fields);*/
    /**/
    /*
    * Loads the stored HTML or the default Template if
    * it does not exists.
    */
      $filename = substr($form->fileName , 0, -3) .
      ( $form->type==='xmlform' ? '' : '.' . $form->type  ) . 'html';
      if (!file_exists( $filename )) {
        $html = $form->printTemplate( $form->template , $script );
      }
      else {
        $html = implode( '', file( $filename ) );
      }
      /*
       * It adds the new fields automatically at the bottom of the form.
       * TODO: �TOP OR BOTTOM?
       * Improving detection algorithm of new fields.
       * Current: Do not check the fields that have already been reviewed (saving)
       * Already checked the temporary file dynaforms editor.
       */
      $tmp = self::_getTmpData();
      if (!isset($tmp['OLD_FIELDS'])) $tmp['OLD_FIELDS']=array();//var_dump($html);die;
        $aAux = explode('</form>', $html);
        foreach($form->fields as $field) {
          if ((strpos( $html , '{$form.'.$field->name.'}' )===FALSE) &&
            (strpos( $html , '{$'.$field->name.'}' )===FALSE) ) {
          //Aparantly is new (but could be a deleted or non visible like private type fields)
            switch (strtolower($field->type)) {
              case 'private':
              case 'phpvariable':
                break;
              default:
                if (array_search( $field->name , $tmp['OLD_FIELDS'] )===false) {
              //TOP
                  $aAux[0] .= '<br/>{$'.$field->name.'}'.'{$form.'.$field->name.'}';
                                //$html.='<br/>{$'.$field->name.'}'.'{$form.'.$field->name.'}';
                                //BOTTOM
                                //$html='{$'.$field->name.'}'.'{$form.'.$field->name.'}'.$html;
                                //$tmp['OLD_FIELDS'][]=$field->name;
                }
             }
          }
        }
        self::_setTmpData($tmp);
      //$html=str_replace('{$form_className}','formDefault', $html );
        $html=str_replace('{$form_className}','formDefault', $aAux[0] . '</form>' );
        return $html;
    }
    catch (Exception $e) {
      return (array) $e;
    }
  }
  /**
   * Restore the html code
   * @param object  $A
   * @return code html
   */
  function restore_html($A) 
  {
    $script  = '';
    $fileTmp = G::decrypt( $A , URL_KEY );
    $file    = dynaformEditor::_getFilename($fileTmp);
    $form    = new Form( $fileTmp , PATH_DYNAFORM, SYS_LANG, true );
    /* Navigation Bar */
    $form->fields=G::array_merges(
    array('__DYNAFORM_OPTIONS' => new XmlForm_Field_XmlMenu( 
                                  new Xml_Node(
                                              '__DYNAFORM_OPTIONS',
                                              'complete',
                                              '',
                                              array('type'=>'xmlmenu','xmlfile'=>'gulliver/dynaforms_Options')
                                              ),SYS_LANG,PATH_XMLFORM,$form)
          ),
    $form->fields);
    $form->enableTemplate = false;
    $html = $form->printTemplate( $form->template , $script );
    $html = str_replace('{$form_className}','formDefault', $html );
    if (file_exists(PATH_DYNAFORM  . $fileTmp . '.html')) {
      unlink(PATH_DYNAFORM  . $fileTmp . '.html');
    }
    $fp=fopen(PATH_DYNAFORM  . $fileTmp . '.html','w');
    fwrite($fp, $html);
    fclose($fp);
    return $html;
  }
  
  /**
   * Set the html code
   * @param object $A
   * @return array
   */
  function set_htmlcode($A,$htmlcode) 
  {
    try {
      $file     = G::decrypt( $A , URL_KEY );
      $form     = new Form( $file , PATH_DYNAFORM, SYS_LANG, true );
      $filename = substr($form->fileName , 0, -3) .
      ( $form->type==='xmlform' ? '' : '.' . $form->type  ) . 'html';
      $fp=fopen($filename, 'w');
      fwrite($fp, $htmlcode );
      fclose($fp);
      return 0;
    }
    catch(Exception $e) {
    return (array)$e;
    }
  }

  /**
   * Get the xml code
   * @param object $A
   * @return array
   */
  function get_xmlcode($A) 
  {
    try {
      $file    = G::decrypt( $A , URL_KEY );
      $xmlcode = implode('',file(PATH_DYNAFORM  . $file . '.xml'));
      return array("xmlcode"=>$xmlcode,"error"=>0);
    }
    catch(Exception $e) {
      return array("xmlcode"=>"","error"=>(array)$e);
    }
  }
  
  /**
   * Set the xml code
   * @param object $A
   * @param array $xmlcode
   * @return string
   */
  function set_xmlcode($A,$xmlcode) 
  {
    $file    = G::decrypt( $A , URL_KEY );
    $xmlcode = str_replace('&nbsp;', ' ', trim($xmlcode));
    $fp      = fopen(PATH_DYNAFORM  . $file . '.xml', 'w');
    fwrite($fp, $xmlcode );
    fclose($fp);
    return "";
  }
  
  /**
   * Get the javascript code
   * @param object $A
   * @param string $fieldName
   * @return array
   */
  function get_javascripts($A,$fieldName) 
  {
    try {
      $file     = G::decrypt( $A , URL_KEY );
      $form     = new Form( $file , PATH_DYNAFORM, SYS_LANG, true );
      $aOptions = array();
      $sCode    = '';
      foreach($form->fields as $name => $value ) {
        if (strcasecmp($value->type,"javascript")==0) {
          $aOptions[] = array('key'=>$name,'value'=>$name);
          if ( $name == $fieldName ) 
            $sCode = $value->code;
          }
        }
      return array('aOptions'=>$aOptions, 'sCode'=>$sCode );
    }
    catch(Exception $e) {
    return (array) $e;
    }
  }
  
  /**
   * Set the javascript code
   * @param object $A
   * @param string $fieldName
   * @param string $sCode
   * @return array
   */
  function set_javascript($A,$fieldName,$sCode)
  {
    try {
      $sCode = rtrim($sCode);
      $file  = G::decrypt( $A , URL_KEY );
      /*$dbc2  = new DBConnection( PATH_DYNAFORM . $file . '.xml' ,'','','','myxml' );
      $ses2  = new DBSession($dbc2);
      $ses2->execute(G::replaceDataField("UPDATE dynaForm SET XMLNODE_VALUE = @@CODE WHERE XMLNODE_NAME = @@FIELDNAME ", array('FIELDNAME'=>$fieldName,'CODE'=>$sCode), "myxml" ));
      */
      
      G::LoadSystem('dynaformhandler');
			              
		  $dynaform = new dynaFormHandler(PATH_DYNAFORM."{$file}.xml");
      $dynaform->replace($fieldName, $fieldName, Array('type'=>'javascript', '#cdata'=>$sCode));
          
      return 0;
    } catch(Exception $e) {
      return (array) $e;
    }
  }
  
  /**
   * Get properties of the dynaForm
   * @param file $A
   * @param string $DYN_UID
   * @return array
   */
  function get_properties( $A, $DYN_UID ) 
  {
    $file = G::decrypt( $A , URL_KEY );
    $tmp  = self::_getTmpData();
    if (!(isset($tmp['Properties']) && isset($tmp['useTmpCopy']))) {
      $dynaform   = new dynaform;
      $dynaform->load( $DYN_UID );
      $form       = new Form( $file , PATH_DYNAFORM, SYS_LANG, true );
      $Properties = array(
                          'A'              => $A,
                          'DYN_UID'        => $dynaform->getDynUid(),
                          'PRO_UID'        => $dynaform->getProUid(),
                          'DYN_TITLE'      => $dynaform->getDynTitle(),
                          'DYN_TYPE'       => $dynaform->getDynType(),
                          'DYN_DESCRIPTION'=> $dynaform->getDynDescription(),
                          'WIDTH'          => $form->width,
                          //'ENABLETEMPLATE'=> $form->enableTemplate,
                          'MODE'           => $form->mode,
                          'PRINTDYNAFORM'  => $form->printdynaform,
                          'NEXTSTEPSAVE'   => $form->nextstepsave
                         );
      $tmp['Properties']=$Properties;
      self::_setTmpData($tmp);
    }
    else {
      $form       = new Form( $file , PATH_DYNAFORM, SYS_LANG, true );
      $Properties = $tmp['Properties'];
      if (!isset($Properties['ENABLETEMPLATE'])) $Properties['ENABLETEMPLATE'] ="0";
        $Properties['WIDTH']=$form->width;
        $Properties['MODE']=$form->mode;
      }
    return $Properties;
  }
  
  /**
   * Set properties of the dynaForm
   * @param file $A
   * @param string $DYN_UID
   * @param array $getFields
   * @return array
   */
  function set_properties($A, $DYN_UID, $getFields)
  {
    try {
      $post   = array();
      parse_str( $getFields, $post );
      $Fields = $post['form'];
      //if (!isset($Fields['ENABLETEMPLATE'])) $Fields['ENABLETEMPLATE'] ="0";
      $file = G::decrypt( $A , URL_KEY );
      $tmp=self::_getTmpData();
      if (!isset($tmp['useTmpCopy'])) {
        $dynaform = new dynaform;
        $dynaform->update( $Fields );
      }
      else {
       $tmp['Properties']=$Fields;
       self::_setTmpData($tmp);
      }
      $dbc2 = new DBConnection( PATH_DYNAFORM . $file . '.xml' ,'','','','myxml' );
      $ses2 = new DBSession($dbc2);
      //if (!isset($Fields['ENABLETEMPLATE'])) $Fields['ENABLETEMPLATE'] ="0";
      if (isset($Fields['WIDTH'])) {
        $ses2->execute(G::replaceDataField("UPDATE . SET WIDTH = @@WIDTH WHERE XMLNODE_NAME = 'dynaForm' ", $Fields));
      }
      /*if (isset($Fields['ENABLETEMPLATE'])) {
      $ses2->execute(G::replaceDataField("UPDATE . SET ENABLETEMPLATE = @@ENABLETEMPLATE WHERE XMLNODE_NAME = 'dynaForm' ", $Fields));
      }*/
      if (isset($Fields['DYN_TYPE'])) {
        $ses2->execute(G::replaceDataField("UPDATE . SET TYPE = @@DYN_TYPE WHERE XMLNODE_NAME = 'dynaForm' ", $Fields));
      }
      if (isset($Fields['MODE'])) {
        $ses2->execute(G::replaceDataField("UPDATE . SET MODE = @@MODE WHERE XMLNODE_NAME = 'dynaForm' ", $Fields));
      }
      if (isset($Fields['NEXTSTEPSAVE'])) {
        $ses2->execute(G::replaceDataField("UPDATE . SET NEXTSTEPSAVE = @@NEXTSTEPSAVE WHERE XMLNODE_NAME = 'dynaForm' ", $Fields));
      }
      if (isset($Fields['PRINTDYNAFORM'])) {
        $ses2->execute(G::replaceDataField("UPDATE . SET PRINTDYNAFORM = @@PRINTDYNAFORM WHERE XMLNODE_NAME = 'dynaForm' ", $Fields));
      }
      return 0;
    }
    catch(Exception $e) {
      return (array) $e;
    }
  }
  
  /**
   * Get enable template
   * @param object $A
   * @return string
   */
  function get_enabletemplate( $A ) 
  {
    $file = G::decrypt( $A , URL_KEY );
    $form = new Form( $file , PATH_DYNAFORM, SYS_LANG, true );
    return $form->enableTemplate;
  }
  
  /**
   * Set enable template
   * @param object $A
   * @param string $value
   * @return string
   */
  function set_enabletemplate( $A,  $value ) 
  {
    $file  = G::decrypt( $A , URL_KEY );
    $value = $value=="1"?"1":"0";
    $dbc2  = new DBConnection( PATH_DYNAFORM . $file . '.xml' ,'','','','myxml' );
    $ses2  = new DBSession($dbc2);
    $ses2->execute("UPDATE . SET ENABLETEMPLATE = '$value'");
    return $value;
  }
  
  /**
   * Save a dynaForm
   * @param object $A
   * @param string $DYN_UID
   * @return array
   */
  function save($A,$DYN_UID) 
  {
    try {
    	$answer = 0;
      $file = G::decrypt( $A , URL_KEY );
      $tmp  = self::_getTmpData();
      if (isset($tmp['useTmpCopy'])) {      /*Save Register*/
        $dynaform = new dynaform;
        $dynaform->update( $tmp['Properties'] );
        /*Save file*/
        $copy     = implode('',file(PATH_DYNAFORM  . $file . '.xml'));
         /*
				* added by krlos carlos/a/colosa.com
        * in here we are validation if a xmlform has a submit action
        */
        if(!preg_match("/type=\"submit\"/",$copy) && !preg_match("/type=\"grid\"/",$copy) && !isset($_SESSION['submitAction']) ){
            
        	$_SESSION['submitAction']= 1;
        	$answer = 'noSub';
        }
        $copyHtml = false;
        if (file_exists(PATH_DYNAFORM  . $file . '.html')) {
          $copyHtml = implode('',file(PATH_DYNAFORM  . $file . '.html'));
        }
        $file  = dynaformEditor::_getFilename($file);
        $fcopy = fopen(PATH_DYNAFORM  . $file . '.xml',"w");
        fwrite($fcopy, $copy);
        fclose($fcopy);
        if ($copyHtml) {
          $fcopy = fopen(PATH_DYNAFORM  . $file . '.html',"w");
          fwrite($fcopy, $copyHtml);
          fclose($fcopy);
        }
      }
      else {
        //throw new Exception("It should not come here unless you have disabled the temporary copy.");
      }
      return $answer;
    }
    catch(Exception $e) {
      return (array) $e;
    }
  }
  
  /**
   * Close a dynaform
   * @param object $A
   * @return array
   */
  function close($A) 
  {
    try {
    	/*
      * we are unseting this variable. It's our control about to save the xmlfrom
      */
    	unset($_SESSION['submitAction']);
      $file = G::decrypt( $A , URL_KEY );
       //return(array('response'=>PATH_DYNAFORM  . $file . '.xml'));
       /* Delete the temporal copy */
      $tmp=self::_getTmpData();
      $xmlFile  = PATH_DYNAFORM  . $file . '.xml';
      $htmlFile = PATH_DYNAFORM  . $file . '.html';
      //return(array('response'=>$tmp['useTmpCopy']));
      if (isset($tmp['useTmpCopy'])) {
         //return(array('response'=>PATH_DYNAFORM  . $file . '.xml'));
        if ($file!==dynaformEditor::_getFilename($file)) {
               //          return(array('response'=>PATH_DYNAFORM  . $file . '.xml'));
          if(file_exists($xmlFile)) {
            unlink($xmlFile);
          }
          if(file_exists($htmlFile))
            unlink($htmlFile);
        }
      }
      return 0;
    }catch(Exception $e) {
      return (array) $e;
    }
  }
  
  /**
   * Checks if a dynaform was changed
   * @param file $A
   * @param string $DYN_UID
   * @return array
   */
  function is_modified($A,$DYN_UID) 
  {
    $file = G::decrypt( $A , URL_KEY );
    try {
    /* Compare Properties */
      $dynaform = new dynaform;
      $dynaform->load( $DYN_UID );
      $form = new Form( $file , PATH_DYNAFORM, SYS_LANG, true );
      $sp   = array(
                'A'              => $A,
                'DYN_UID'        => $dynaform->getDynUid(),
                'PRO_UID'        => $dynaform->getProUid(),
                'DYN_TITLE'      => $dynaform->getDynTitle(),
                'DYN_TYPE'       => $dynaform->getDynType(),
                'DYN_DESCRIPTION'=> $dynaform->getDynDescription(),
                'WIDTH'          => $form->width,
                'ENABLETEMPLATE' => $form->enableTemplate,
                'MODE'           => $form->mode
              );
      $P = self::get_properties($A,$DYN_UID);
      if (!isset($P['DYN_TITLE'])) {
        $P['DYN_TITLE'] = $sp['DYN_TITLE'];
      }
      if (!isset($P['DYN_TYPE'])) {
        $P['DYN_TYPE'] = $sp['DYN_TYPE'];
      }
      if (!isset($P['DYN_DESCRIPTION'])) {
        $P['DYN_DESCRIPTION'] = $sp['DYN_DESCRIPTION'];
      }
      if (!isset($P['WIDTH'])) {
        $P['WIDTH'] = $sp['WIDTH'];
      }
      if (!isset($P['ENABLETEMPLATE'])) {
        $P['ENABLETEMPLATE'] = $sp['ENABLETEMPLATE'];
      }
      if (!isset($P['MODE'])) {
        $P['MODE'] = $sp['MODE'];
      }
      $modPro = ($sp['DYN_TITLE']!=$P['DYN_TITLE']) ||
      ($sp['DYN_TYPE']!=$P['DYN_TYPE']) ||
      ($sp['DYN_DESCRIPTION']!=$P['DYN_DESCRIPTION']) /*||
      ($sp['WIDTH']!=$P['WIDTH']) ||
      ($sp['ENABLETEMPLATE']!=$P['ENABLETEMPLATE']) ||
      ($sp['MODE']!=$P['MODE'])*/;
            /* Compare copies */
      $fileOrigen = dynaformEditor::_getFilename($file);
      $copy       = implode('',file(PATH_DYNAFORM  . $file . '.xml'));
      $origen     = implode('',file(PATH_DYNAFORM  . $fileOrigen . '.xml'));
      $copyHTML   = file_exists(PATH_DYNAFORM  . $file . '.html')?implode('',file(PATH_DYNAFORM  . $file . '.html')):false;
      $origenHTML = file_exists(PATH_DYNAFORM  . $fileOrigen . '.html')? implode('',file(PATH_DYNAFORM  . $fileOrigen . '.html')):false;
      $modFile    = ($copy!==$origen) || ($origenHTML && ($copyHTML!==$origenHTML));
      //Return
            //return array("*message"=>sprintf("%s, (%s= %s %s):", $modPro?"1":"0" , $modFile?"1":"0", ($copy!==$origen)?"1":"0" , ($origenHTML && ($copyHTML!==$origenHTML))?"1":"0" ));
            //die("c'est fini");
      return $modPro || $modFile;
    }
    catch(Exception $e) {
      return (array) $e;
    }
  }
}
?>