<?php 
// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker textwidth=80:
// +----------------------------------------------------------------------+
// | 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 ago 26 13:18:26 ART 2003
// | Author:  Martin Marrese <mmarre@mecon.gov.ar>
// +----------------------------------------------------------------------+
//
// $Id$
//

//require_once 'MECON/general.php';
//prepend_include_path('/home/mmarrese/public_html/meconlib/lib/');

//REQUIRE ONCE GENERALES {{{
require_once 'SAMURAI/DB.php';
require_once 'SAMURAI/Perm.php';
require_once 'SAMURAI/constantes.php';
require_once 'SAMURAI/Perfil.php';
require_once 'SAMURAI/Sistema.php';
require_once 'SAMURAI/Permiso.php';
require_once 'MECON/HTML/Tabla.php';
require_once 'MECON/HTML/QuickForm.php';
require_once 'MECON/HTML/Error.php';
require_once 'MECON/HTML/Image.php';
require_once 'PEAR.php';
// }}}

// Funciones para agregar la seccion SAMURAI_Perfil en los sistemas.
// Con esto se pueden embeber el abm de perfiles como una seccion/subseccion mas
// de un sistema cualquiera.
// Es necesario para que funcione que se haya realizado un session_start()
// antes, por ejemplo en el prepend.

    /**
     * Funcion que se encarga agregar los componentes necesarios al sistema para que
     * se pueda realizar un abm de perfiles.
     * Sin los parametros no funciona
     *
     * @param MECON_Marco &$MARCO      Referencia al objeto MECON_Marco que se este utilizando en la pagina
     * @param int          $id_sistema Identificador del sistema en el cual se esta trabajando
     *
     * @return void
     */
//SAMURAI__HTML_Perfil {{{
function SAMURAI_HTML_Perfil(&$MARCO, $id_sistema) {

    $_SESSION['samurai']['id_sistema'] = $id_sistema;
    $_SESSION['samurai']['login'] = $_SESSION['usuario'];
    
    //INICIALIZO OBJETOS GENERALES {{{
    //REALIZO CONEXION
    $tmp = new SAMURAI_DB();
    $DB  =& $tmp->connect();
    //CREAR EL OBJETO SAMURAI_Perm
    $SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['usuario'], $id_sistema, $DB);
    //}}}

    //POSIBLES ACCIONES
    // listado -> Listado de los perfiles ya creados en el sistema.
    // nuevo   -> Pantalla de seleccion o de ingreso de un nuevo nombre.
    // abm     -> Formulario para la carga de la info del perfil.

    //LISTADO {{{
    if ((!@$_GET['samurai_perfiles'] && !@$_POST['samurai_accion'])|| @$_GET['samurai_perfiles'] == 'listado') {
        //VEO SI PUEDE ACCEDER{{{
        $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL,SAMURAI_BAJA_PERFIL,SAMURAI_MODI_PERFIL);
        //}}}
        //LINKS {{{
            $aHref      = '<a href="'.$_SERVER['PHP_SELF'].'?accion=##ACCION##&id_perfil=##NUEVO##&samurai_perfiles=abm">';
            $aHrefModif = $aHref.'<img src="/MECON/images/general_modificar.gif" border="0" alt="Modificar Perfil"></a>';
            $aHrefElim  = $aHref.'<img src="/MECON/images/general_eliminar.gif"  border="0" alt="Eliminar Perfil" ></a>';
        // }}}
        //CREO LOS OBJETOS NECESARIOS {{{
            $TABLA2  =& new MECON_HTML_Tabla ('cellspacing=0');
            $TABLA   =& new MECON_HTML_Tabla ('cellpadding=2');
            $TABLA3  =& new MECON_HTML_Tabla ('cellspacing=0');
            $SISTEMA =& new SAMURAI_Sistema($DB, $id_sistema);
        // }}}
        //OBTENGO LA INFORMACION DE LA BASE {{{
            $perfiles = SAMURAI_Perfil::getPerfiles($DB, null, $id_sistema);
        // }}}
        //AGREGO LOS DATOS A LAS TABLAS {{{
            $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'); 

            //Agrego el link a nuevo
            if ($SAMURAI_PERM->tiene(SAMURAI_ALTA_PERFIL)) {
                $row   = array ('<a href="'.$_SERVER['PHP_SELF'].'?samurai_perfiles=nuevo"><img src="/MECON/images/general_nuevo.gif" border="0">Ingresar&nbsp;Nuevo&nbsp;Perfil</a>');
                $TABLA2->addRow($row,'align=right');    
            }

            //Genero la cabecera de la tabla
            $row   = array ('Id','Descripcion');
            if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
                $row[] = 'Tipo';
            }    
            if ($SAMURAI_PERM->tiene(SAMURAI_MODI_PERFIL)) {
                $row[] = 'Modif.';
            }    
            if ($SAMURAI_PERM->tiene(SAMURAI_BAJA_PERFIL)) {
                $row[] = 'Elim.';
            }    
            
            $TABLA->addRow($row,'cabecera');
            foreach ($perfiles as $perfil) {
                $Modif = ereg_replace('##NUEVO##' , $perfil->getId(), $aHrefModif);
                $Elim  = ereg_replace('##NUEVO##' , $perfil->getId(), $aHrefElim );
                $Modif = ereg_replace('##ACCION##', 'm'             , $Modif     );
                $Elim  = ereg_replace('##ACCION##', 'e'             , $Elim      );
                $row = array ($perfil->getId(), $perfil->getDescripcion());
                
                if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
                    $row[] = $perfil->getTipo();
                }    
                if ($SAMURAI_PERM->tiene(SAMURAI_MODI_PERFIL)) {
                    $row[] = $Modif;
                }    
                if ($SAMURAI_PERM->tiene(SAMURAI_BAJA_PERFIL)) {
                    $row[] = $Elim;
                }    
                $TABLA->addRow($row);
            }
        // }}}
        //AGREGO LA INFO AL MARCO {{{
            $MARCO->addBody($TABLA3);
            $MARCO->addBody($TABLA2->toHtml(1));
            $MARCO->addBody($TABLA);
        //}}}
    }
    //}}}
    //NUEVO {{{
    elseif (@$_GET['samurai_perfiles'] == 'nuevo' || @$_POST['samurai_accion'] == 'nuevo') {
        //VEO SI PUEDE ACCEDER{{{
        $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL);
        //}}}
        //CREO LOS OBJETO NECESARIOS {{{
            $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);
            $SISTEMA =& new SAMURAI_Sistema ($DB, $id_sistema);
        // }}}
        //AGREGO LOS ELEMENTOS DEL FORM {{{
            $FORM->addElement ('hidden', 'samurai_accion', 'nuevo');
            $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 =\''.$_SERVER['PHP_SELF'].'\';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: '.$_SERVER['PHP_SELF']);
            }
            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'], $id_sistema)) {
                            $res = new PEAR_Error("El sistema ya tiene asociado el perfil seleccionado, 
                                                   modifique sus permisos desde la seccion perfiles.");
                        }
                        else {
                            header('Location: '.$_SERVER['PHP_SELF'].'?samurai_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: '.$_SERVER['PHP_SELF'].'?samurai_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');
                    }
                } 
            }
        // }}}
        //AGREGO LA INFO AL MARCO {{{
        //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);
        //}}}
    }
    //}}}
    //ABM {{{
    elseif (@$_GET['samurai_perfiles'] == 'abm' || @$_POST['samurai_accion'] == 'abm') {
        //VEO SI PUEDE ACCEDER{{{
        $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL,SAMURAI_BAJA_PERFIL,SAMURAI_MODI_PERFIL);
        //}}}
        //CREO LOS OBJETO NECESARIOS {{{
            if (@$_GET['id_perfil']) {
                $id_perfil = $_GET['id_perfil'];
            }
            elseif (@$_POST['id_perfil']) {
                $id_perfil = $_POST['id_perfil'];
            }
            else {
                $id_perfil = null;
            }
            $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);
            $SISTEMA =& new SAMURAI_Sistema ($DB, $id_sistema);
            $PERFIL  =& new SAMURAI_Perfil ($DB, $id_perfil);

            if ($PERFIL->getResponsable()) {
                $responsable = $PERFIL->getResponsable();
            }
            else {
                $responsable = $_SESSION['usuario'];
            }
            
            if (!@$_GET['id_perfil']) {
                if (@$_GET['desc_perfil']) {
                    $PERFIL->setDescripcion(@$_GET['desc_perfil']);
                }
                else {
                    $PERFIL->setDescripcion(@$_POST['desc_ant']);
                }
            }
            $descripcion = $PERFIL->getDescripcion();
        // }}}
        //OBTENGO LOS PERMISOS DEL SISTEMA {{{
            $ASOCIACIONES = $SISTEMA->getAsociaciones();
            $PERMISOS = array ();
            foreach ($ASOCIACIONES as $as) {
                $clave = $as['id'].'##'.$as['obs'];
                $texto = ($as['obs'] != '') ? $as['desc'].' - '.$as['obs']: $as['desc'];
                $PERMISOS[$clave] = $texto;
            }
        // }}}
        //AGREGO LOS ELEMENTOS DEL FORM {{{
            if (@$PERMISOS) {
                $FORM->addElement ('hidden', 'samurai_accion', 'abm');
                $FORM->addElement ('header', 'cabecera', 'ABM Perfiles');
                $FORM->addElement ('hidden', 'id_perfil', $id_perfil);
                $FORM->addElement ('hidden', 'desc_ant'   , $descripcion);
                $FORM->addElement ('static', 'desc_perfil', 'Descripcion', $descripcion);
                $FORM->addElement ('select', 'permisos'   , 'Permisos'   , $PERMISOS, array('size' => '5', 'multiple' => 'true'));
                if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
                    $FORM->addElement ('select', 'tipo_perfil', 'Tipo Perfil', array('E' => 'Externo', 'I' => 'Interno', 'D' => 'Dios'), array ('size' => '1'));
                }
                $FORM->addElement ('hidden', 'responsable', $responsable);
                $group[] = HTML_QuickForm::createElement('submit', 'aceptar' , 'Grabar');
                $group[] = HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar', array ('onClick' => 'javascript:window.location=\''.$_SERVER['PHP_SELF'].'\';return false;'));
                $FORM->addGroup($group,'botones');
            }
            else {
                $ERROR = new MECON_HTML_Error('El sistema no posee permisos asociados.');
            }
        // }}}
        //AGREGO LAS REGLAS DE VALIDACION {{{
            $FORM->addRule ('permisos', 'Se debe seleccionar al menos un permiso', 'required');
        // }}}
        //CARGO LOS DATOS SI YA EXISTEN EN BASE {{{
            if (isset($_GET['accion']) && $_GET['accion'] != '') {
                //MODIFICACION
                $id_perfil    =& $FORM->getElement  ('id_perfil'  );
                $desc_perfil  =& $FORM->getElement  ('desc_perfil');
                $permisos     =& $FORM->getElement  ('permisos'   );
                
                if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
                    $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
                }
                $responsable  =& $FORM->getElement  ('responsable');
                $group        =& $FORM->getElement  ('botones'    );
                $group        =& $group->getElements('aceptar'    );
                $aceptar      =& $group[0];

                $permisos->setSelected($PERFIL->getPermisos());
                
                if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
                    $tipo_perfil->setSelected($PERFIL->getTipo());
                }

                if ($PERFIL->getResponsable() != '') {
                    $responsable->setValue($PERFIL->getResponsable());
                }

                //Modifico el valor del boton
                $aceptar->setValue('Modificar');
                    
                //ELIMINACION -> modifico el valor del boton
                if ($_GET['accion'] == 'e') {
                    $aceptar->setValue('Eliminar');
                    $aceptar->updateAttributes(array ('onClick' => 'javascript:if (confirm(\'�Esta Seguro?\')) return true;return false;'));
                    $FORM->freeze();
                }
            }
        // }}}
        //VALIDO EL FORMULARIO {{{
            if ($FORM->validate()) {
                // VEO SI SE CANCELO {{{
                $botones = $FORM->getSubmitValue('botones');
                if (@$botones['cancelar']) {
                    header('Location: '.$_SERVER['PHP_SELF']);
                }
                // }}}
                else {
                    $id_perfil    =& $FORM->getElement  ('id_perfil'  );
                    $desc_perfil  =& $FORM->getElement  ('desc_perfil');
                    $permisos     =& $FORM->getElement  ('permisos'   );
                    
                    if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
                        $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
                        $tipo_perfil_tmp  =  $tipo_perfil->getSelected();
                    }
                    $responsable  =& $FORM->getElement  ('responsable');
                    $group        =& $FORM->getElement  ('botones'    );
                    $group        =& $group->getElements('aceptar'    );
                    $aceptar      =& $group[0];
              
                    $PERFIL->setDescripcion($desc_perfil->_text     );
                    $PERFIL->setResponsable($responsable->getValue());
                    $PERFIL->setPermisos   ($permisos->getSelected()); //Le asigno al perfil los permisos seleccionados
                    
                    if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
                        $PERFIL->setTipo       ($tipo_perfil_tmp['0']   );
                    }
                    
                    //Grabo y verifico si se produjo algun error
                    $res = $PERFIL->guardarDatos($aceptar->getValue());

                    if (PEAR::isError($res)) {
                        $ERROR = new MECON_HTML_Error($res->getMessage());
                        if ($aceptar->getValue() == 'Eliminar') {
                            $FORM->freeze();
                        }
                    }
                    else {
                        $FORM->freeze();
                        header('Location: '.$_SERVER['PHP_SELF']);
                    }
                }
            }
        // }}}
        //DIBUJO LA PAGINA {{{
            $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
            $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
            $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
            $TABLA3->addRow($row,'align=left');    

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