<?php
/**
 * processes_Export.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.
 *
 */


G::LoadThirdParty('pear/json','class.json');

try {
function myTruncate($cadena,$limit, $break='.', $pad='...') {
  if (strlen($cadena) <= $limit) {
    return $cadena;
  }
  $breakpoint = strpos($cadena, $break, $limit);
  if (false !== $breakpoint) {
    $len =strlen($cadena) - 1;
    if ($breakpoint < $len) {
      $cadena = substr($cadena, 0, $breakpoint) . $pad;
    }
  }
  return $cadena;
}
function addTitlle($Category, $Id, $Lang) {
  require_once 'classes/model/Content.php';
  $content = new Content();
  $value = $content->load($Category,'', $Id, $Lang);
  return $value;
}

  $oJSON = new Services_JSON();
  $stdObj = $oJSON->decode( $_POST['data'] );
  if ( isset ($stdObj->pro_uid ) )
    $sProUid = $stdObj->pro_uid;
  else
    throw ( new Exception ( 'the process uid is not defined!.' ) );

/* Includes */
G::LoadClass('processes');
G::LoadClass('xpdl');
$oProcess  = new Processes();
$oXpdl     = new Xpdl();
$proFields = $oProcess->serializeProcess( $sProUid );
$Fields = $oProcess->saveSerializedProcess ( $proFields );
$xpdlFields = $oXpdl->xmdlProcess($sProUid);
$Fields['FILENAMEXPDL'] = $xpdlFields['FILENAMEXPDL'];
$Fields['FILENAME_LINKXPDL'] = $xpdlFields['FILENAME_LINKXPDL'];
foreach($Fields as $key => $value)
{
    if ($key == 'PRO_TITLE') {
      $Fields[$key] = myTruncate($value, 65, ' ', '...');
    }
    if ($key == 'FILENAME') {
      $Fields[$key] = myTruncate($value, 60, '_', '...');
    }
    if ($key == 'FILENAMEXPDL') {
      $Fields[$key] = myTruncate($value, 60, '_', '...');
    }
}

  /* Render page */
  $G_PUBLISH = new Publisher;
  $G_PUBLISH->AddContent('xmlform', 'xmlform', 'processes/processes_Export', '', $Fields );
  G::RenderPage( 'publish', 'raw' );

}
catch ( Exception $e ){
  $G_PUBLISH = new Publisher;
	$aMessage['MESSAGE'] = $e->getMessage();
  $G_PUBLISH->AddContent('xmlform', 'xmlform', 'login/showMessage', '', $aMessage );
  G::RenderPage('publish', 'raw' );
}