<?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 ene 27 14:48:57 ART 2004
Autor:  Martin Marrese <mmarre@mecon.gov.ar>
-------------------------------------------------------------------------------
$Id$
-----------------------------------------------------------------------------*/
//Require Once {{{
//HTML {{{
require_once 'MECON/HTML/QuickForm.php';
require_once 'MECON/HTML/Tabla.php';
require_once 'MECON/HTML/Error.php';
require_once 'MECON/HTML/Link.php';
require_once 'MECON/HTML/Image.php';
require_once 'MECON/HTML/Link.php';
//}}}
//YATTA {{{
require_once 'YATTA/Controlador.php';
require_once 'YATTA/ServidorDB.php';
//}}}
//}}}

//Obtengo los datos del get y del post {{{
$accion = (@$_REQUEST['accion']) ? $_REQUEST['accion'] : 'nuevo';

if (@$_REQUEST['_id']) {
    $id = $_REQUEST['_id'];
}
elseif (@$_REQUEST['id']) {
    $id = $_REQUEST['id'];
}
else {
    $id = null;
}
//}}}

//Obtengo los datos del servidor {{{
$SERVIDOR =& new YATTA_ServidorDB();
if ($id) {
    $SERVIDOR->id = $id;
    $res = $SERVIDOR->buscar($DB, MECON_DBO_OR, 'nombre');
    if (PEAR::isError($res)) {
         trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
    }
    $SERVIDOR->cargar($res);
}
//}}}

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

//Armo el formulario {{{
if (@$id) {
    $FORM->addElement('hidden', 'id', $id);
}
$FORM->addElement('hidden', 'accion', $accion.'2');
$FORM->addElement('header', 'cabecera', 'Datos del Servidor');
$nombre =& $FORM->addElement('text', 'nombre', 'Nombre', array('size'=>'30'));
$escala =& $FORM->addElement('text', 'escala', 'Escala', array('size'=>'3'));
$group[] =& HTML_QuickForm::createElement('submit', 'aceptar' , 'Aceptar');
$group[] =& HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar');
$FORM->addGroup($group,'botones');

if (@$accion == 'modificar') {
    $nombre->setValue($SERVIDOR->nombre);
    $escala->setValue($SERVIDOR->escala);
    $group[0]->setValue('Modificar');
    $group[0]->setName('modificar');
    $FORM->addRule ('nombre', 'El nombre del servidor es obligatorio.', 'required');
    $FORM->addRule ('escala', 'La escala del servidor es obligatoria', 'required');
}
elseif (@$accion == 'eliminar') {
    $nombre->setValue($SERVIDOR->nombre);
    $escala->setValue($SERVIDOR->escala);
    $group[0]->setValue('Eliminar');
    $group[0]->setName('eliminar');
    $FORM->freeze();
}
else {
    $FORM->addRule ('nombre', 'El nombre del servidor es obligatorio.', 'required');
    $FORM->addRule ('escala', 'La escala del servidor es obligatoria', 'required');
}
//}}}

//Valido el formulario {{{
if ($FORM->validate()) {
    $f_botones = $FORM->getSubmitValue('botones');
    //Cancelar {{{
    if (@$f_botones['cancelar']) {
        header ('location: admin_servidores');
        exit;
    }
    //}}}
    //Aceptar {{{
    elseif (@$f_botones['aceptar']) {
        $SERVIDOR->nombre = $nombre->getValue();
        $SERVIDOR->escala = $escala->getValue();
        $res = $SERVIDOR->guardar($DB, true);
    }
    //}}}
    //Modificar {{{
    elseif (@$f_botones['modificar']) {
        $SERVIDOR->nombre = $nombre->getValue();
        $SERVIDOR->escala = $escala->getValue();
        $res = $SERVIDOR->guardar($DB, false);
    }
    //}}}
    //Eliminar {{{
    elseif (@$f_botones['eliminar']) {
        $res = $SERVIDOR->borrar($DB);
    }
    //}}}
    if (PEAR::isError($res)) {
         trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
    }
    header ('location: admin_servidores');
    exit;
}
//}}}

//Agrego la info al marco y la muestro {{{
$MARCO->addStyleSheet('css/yatta.css');
$MARCO->addBody($FORM);
$MARCO->display();
//}}}
?>