<?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80 foldmethod=marker:
-------------------------------------------------------------------------------
                             Ministerio de Economía
                                    YATTA!
-------------------------------------------------------------------------------
This file is part of YATTA!.

YATTA! is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2 of the License, or (at your option)
any later version.

YATTA! 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 General Public License for more details.
 
You should have received a copy of the GNU General Public License; if not,
write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
Boston, MA  02111-1307  USA
-------------------------------------------------------------------------------
Creado: mar dic  2 18:11:32 ART 2003
Autor:  Martin Marrese <mmarre@mecon.gov.ar>
-------------------------------------------------------------------------------
$Id$
-----------------------------------------------------------------------------*/

//Require Once {{{
//HTML {{{
require_once 'MECON/HTML/Tabla.php';
require_once 'MECON/HTML/Link.php';
require_once 'MECON/HTML/Image.php';
require_once 'MECON/HTML/QuickForm.php';
//}}}
//YATTA {{{
require_once 'YATTA/ProcesoDB.php';
//}}}
//}}}

//Creo los objetos necesarios {{{
$PROCESO =& new YATTA_ProcesoDB;
$FORM =& new MECON_HTML_QuickForm('procesos_detener', 'post', 
        'procesos_detener');
$FORM->renderer->updateAttributes('width="400"');
//}}}

//Obtengo la info que se pasa por get {{{
$id = (@$_REQUEST['id']) ? $_REQUEST['id'] : null;
//}}}

//Obtengo la informacion del proceso {{{
$PROCESO->id = $id;
$PROCESO->owner = $_SESSION['usuario'];
$res = $PROCESO->buscar($DB);
if (PEAR::isError($res)) {
     trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
}
$PROCESO->cargar($res);
//}}}

//Armo el formulario {{{
$FORM->addElement('header', 'cabecera', 'Ingrese una nota explicativa');
$text =& $FORM->addElement('textarea', 'nota', 'Nota',        
        array('rows' => '2','cols'=>'40', 'wrap'=>'virtual')); 
$group[] =& HTML_QuickForm::createElement('submit', 'aceptar' , 'Aceptar');
$group[] =& HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar',
        array ('onClick' => 'self.close();return false;'));
$FORM->addGroup($group,'botones');
//}}}

//Valido el formulario {{{
if ($FORM->validate()) {
    $f_botones = $FORM->getSubmitValue('botones');

    //Cancelar {{{
    if (@$f_botones['cancelar']) {
        header ('location: procesos');
        exit;
    }
    //}}}

    $PROCESO->nota = $text->getValue();
    $PROCESO->status = 5;
    $res = $PROCESO->guardar($DB) ;
    if (PEAR::isError($res)) {
         trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
    }
    header ('location: procesos');
    exit;
}
//}}}

//DIBUJO LA PAGINA {{{
$MARCO->addBody($FORM);
$MARCO->addStyleSheet('css/yatta.css');
$MARCO->display();                          
//}}}
?>