<?php
// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker:
// +----------------------------------------------------------------------+
// | PHP Version 4                                                        |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2003 The PHP Group                                |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.02 of the PHP license,      |
// | that is bundled with this package in the file LICENSE, and is        |
// | available at through the world-wide-web at                           |
// | http://www.php.net/license/2_02.txt.                                 |
// | If you did not receive a copy of the PHP license and are unable to   |
// | obtain it through the world-wide-web, please send a note to          |
// | license@php.net so we can mail you a copy immediately.               |
// +----------------------------------------------------------------------+
// | Created: mar jul  8 12:58:06 ART 2003
// | Author:  Martin Marrese <mmarre@mecon.gov.ar>
// +----------------------------------------------------------------------+
//
// $Id$
//
//VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
$SAMURAI_PERM->setSistema(SAMURAI_PERM);
if (!$SAMURAI_PERM->tiene(SAMURAI_PERM_DEVELOPER)) {
    $SAMURAI_PERM->setSistema($_SESSION['samurai']['id_sistema']);
    $SAMURAI_PERM->chequear(SAMURAI_PERM_PERFIL_ALTA, SAMURAI_PERM_DEVELOPER);
}
$MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
//}}}

//REQUIRE_ONCE {{{
    require_once 'PEAR.php';
    require_once 'MECON/HTML/QuickForm.php';
    require_once 'MECON/HTML/Tabla.php';
    require_once 'SAMURAI/Perfil.php';
    require_once 'SAMURAI/Sistema.php';
//}}}
//CREO LOS OBJETO NECESARIOS {{{
    $FORM = new MECON_HTML_QuickForm ('perfiles_nuevo','post','perfiles-nuevo');
    $FORM->renderer->updateAttributes('width="400"');
    $SISTEMA = new SAMURAI_Sistema ($DB, $_SESSION['samurai']['id_sistema']);
// }}}
//AGREGO LOS ELEMENTOS DEL FORM {{{
    $FORM->addElement ('header', 'cabecera'   , 'Nuevo Perfil');
    $FORM->addElement ('select', 'perfiles'   , 'Perfiles', '', array('size' => '1'));
    $FORM->addElement ('text'  , 'filtro'     , 'Filtrar' , array('size' => '50'));
    $FORM->addElement ('text'  , 'descripcion', 'Nombre'  , array('size' => '50'));
    $group[] = HTML_QuickForm::createElement('submit', 'continuar', 'Continuar');
    $group[] = HTML_QuickForm::createElement('submit', 'filtrar'  , 'Filtrar'  );
    $group[] = HTML_QuickForm::createElement('submit', 'cancelar' , 'Cancelar', array ('onClick' => 'javascript:window.location =\'perfiles\';return false;') );
    $FORM->addGroup($group,'botones');
// }}}
//RESTRINJO EL FORMATO DEL NOMBRE DEL PERFIL{{{
    $FORM->addRule ('descripcion', 'El nombre del perfil solo puede contener letras y/o numeros.', 'regex','/^[a-zA-Z0-9 ]+$/');
// }}}
// CARGO LA INFORMACION EN EL SELECT DE PERFILES {{{
    $botones     = $FORM->getSubmitValue('botones');
    $perfiles    =& $FORM->getElement('perfiles');
    $descripcion =& $FORM->getElement('descripcion');
    if (@$botones['cancelar']) {
        header('Location: perfiles');
    }
    if (!isset($botones['filtrar'])) {
        $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB);
    }
    elseif (@$botones['filtrar']) {
        $filtro   =& $FORM->getElement('filtro'); 
        $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB, $filtro->getValue());
    }
    $perfiles->addOption('--', '--');
    $perfiles->loadArray($PERFILES);
// }}}
// VALIDO EL FORMULARIO {{{
    if ($FORM->validate()) {
        if (@$botones['continuar']) { //Ya selecciono un nombre para el perfil
            $res = '';
            $tmp = $perfiles->getSelected();
            if ((!@$descripcion->getvalue() && $tmp['0'] == '--') || ($descripcion->getvalue() && $tmp['0'] != '--')) {
                $res = new PEAR_Error("Debe seleccionar un perfil del combo o ingresar un nombre en la casilla correspondiente.<br>Solo una de las dos opciones.");
                @$descripcion->setValue('');
            }
            elseif ($tmp['0'] != '--') {
                //verificar que el sistema no tenga una asociacion con ese perfil
                if (SAMURAI_Perfil::existeAsociacion($DB, $tmp['0'], $_SESSION['samurai']['id_sistema'])) {
                    $res = new PEAR_Error("El sistema ya tiene asociado el perfil seleccionado, modifique sus permisos desde la seccion perfiles.");
                }
                else {
                    header('Location: perfiles-abm?_id_perfil='.$tmp['0']);
                }
            }
            elseif ($descripcion->getValue()) {
                //Verificar que no exista un perfil con la misma descripcion
                //Reduzco los blancos
                $temp = $descripcion->getValue();
                $tt = split (' ', $temp);
                $rta = ''; 
                foreach ($tt as $t) {
                    if ($t != '') {
                        $rta.= $t.' ';
                    }
                }
                $rta = rtrim($rta);
                // 
                if (SAMURAI_Perfil::existePerfil($DB, $rta)) {
                    $res = new PEAR_Error("Ya existe un perfil con ese nombre, seleccionelo del combo.<br>Recuerde que varios espacios se reduciran a uno solo (Ej: Agregar&nbsp;&nbsp;&nbsp;&nbsp; Usuario -> Agregar Usuario)");
                }
                else {
                    $temp = ereg_replace(' ' , '%20', $rta); //Cambio los espacios por %20 para que no chille el netscape
                    header('Location: perfiles-abm?desc_perfil='.$temp);
                }
            }
            if (PEAR::isError($res)) {
                $TABLA = new MECON_HTML_Tabla ('cellspacing=0');
                $row = array ('<font color="red"><b>'.$res->getMessage().'</b></font>');
                $TABLA->addRow($row,'align=left');
            }
        } 
    }
// }}}
//MUESTRO LA PAGINA {{{
//AGREGO LOS DATOS A LAS TABLAS {{{
    $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
    $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
    $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
    $TABLA3->addRow($row,'align=left');    
//}}} 

    $MARCO->addBody($TABLA3);
    if (isset($TABLA)) {
        $MARCO->addBody($TABLA);
    }
    $MARCO->addBody($FORM);
    $MARCO->display();
// }}}
?>