lib/SAMURAI/HTML/Perfil.php

   1 <?php
   2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker textwidth=80:
   3 // +----------------------------------------------------------------------+
   4 // | PHP Version 4                                                        |
   5 // +----------------------------------------------------------------------+
   6 // | Copyright (c) 1997-2003 The PHP Group                                |
   7 // +----------------------------------------------------------------------+
   8 // | This source file is subject to version 2.02 of the PHP license,      |
   9 // | that is bundled with this package in the file LICENSE, and is        |
  10 // | available at through the world-wide-web at                           |
  11 // | http://www.php.net/license/2_02.txt.                                 |
  12 // | If you did not receive a copy of the PHP license and are unable to   |
  13 // | obtain it through the world-wide-web, please send a note to          |
  14 // | license@php.net so we can mail you a copy immediately.               |
  15 // +----------------------------------------------------------------------+
  16 // | Created: mar ago 26 13:18:26 ART 2003
  17 // | Author:  Martin Marrese <mmarre@mecon.gov.ar>
  18 // +----------------------------------------------------------------------+
  19 //
  20 // $Id$
  21 //
  22
  23 //require_once 'MECON/general.php';
  24 //prepend_include_path('/home/mmarrese/public_html/meconlib/lib/');
  25
  26 //REQUIRE ONCE GENERALES {{{
  27 require_once 'SAMURAI/DB.php';
  28 require_once 'SAMURAI/Perm.php';
  29 require_once 'SAMURAI/constantes.php';
  30 require_once 'SAMURAI/Perfil.php';
  31 require_once 'SAMURAI/Sistema.php';
  32 require_once 'SAMURAI/Permiso.php';
  33 require_once 'MECON/HTML/Tabla.php';
  34 require_once 'MECON/HTML/QuickForm.php';
  35 require_once 'MECON/HTML/Error.php';
  36 require_once 'MECON/HTML/Image.php';
  37 require_once 'PEAR.php';
  38 // }}}
  39
  40 // Funciones para agregar la seccion SAMURAI_Perfil en los sistemas.
  41 // Con esto se pueden embeber el abm de perfiles como una seccion/subseccion mas
  42 // de un sistema cualquiera.
  43 // Es necesario para que funcione que se haya realizado un session_start()
  44 // antes, por ejemplo en el prepend.
  45
  46     /**
  47      * Funcion que se encarga agregar los componentes necesarios al sistema para que
  48      * se pueda realizar un abm de perfiles.
  49      * Sin los parametros no funciona
  50      *
  51      * @param MECON_Marco &$MARCO      Referencia al objeto MECON_Marco que se este utilizando en la pagina
  52      * @param int          $id_sistema Identificador del sistema en el cual se esta trabajando
  53      *
  54      * @return void
  55      */
  56 //SAMURAI_Perfil_Html {{{
  57 function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
  58
  59     //INICIALIZO OBJETOS GENERALES {{{
  60     //REALIZO CONEXION
  61     $tmp = new SAMURAI_DB();
  62     $DB  =& $tmp->connect();
  63     //CREAR EL OBJETO SAMURAI_Perm
  64     $SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['usuario'], $id_sistema, $DB);
  65     //}}}
  66
  67     //POSIBLES ACCIONES
  68     // listado -> Listado de los perfiles ya creados en el sistema.
  69     // nuevo   -> Pantalla de seleccion o de ingreso de un nuevo nombre.
  70     // abm     -> Formulario para la carga de la info del perfil.
  71
  72     //LISTADO {{{
  73     if ((!@$_GET['samurai_perfiles'] && !@$_POST['samurai_accion'])|| @$_GET['samurai_perfiles'] == 'listado') {
  74         //VEO SI PUEDE ACCEDER{{{
  75         $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL,SAMURAI_BAJA_PERFIL,SAMURAI_MODI_PERFIL);
  76         //}}}
  77         //LINKS {{{
  78             $aHref      = '<a href="'.$_SERVER['PHP_SELF'].'?accion=##ACCION##&id_perfil=##NUEVO##&samurai_perfiles=abm">';
  79             $aHrefModif = $aHref.'<img src="/MECON/images/general_modificar.gif" border="0" alt="Modificar Perfil"></a>';
  80             $aHrefElim  = $aHref.'<img src="/MECON/images/general_eliminar.gif"  border="0" alt="Eliminar Perfil" ></a>';
  81         // }}}
  82         //CREO LOS OBJETOS NECESARIOS {{{
  83             $TABLA2  =& new MECON_HTML_Tabla ('cellspacing=0');
  84             $TABLA   =& new MECON_HTML_Tabla ('cellpadding=2');
  85             $TABLA3  =& new MECON_HTML_Tabla ('cellspacing=0');
  86             $SISTEMA =& new SAMURAI_Sistema($DB, $id_sistema);
  87         // }}}
  88         //OBTENGO LA INFORMACION DE LA BASE {{{
  89             $perfiles = SAMURAI_Perfil::getPerfiles($DB, null, $id_sistema);
  90         // }}}
  91         //AGREGO LOS DATOS A LAS TABLAS {{{
  92             $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
  93             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
  94             $TABLA3->addRow($row,'align=left');
  95
  96             //Agrego el link a nuevo
  97             if ($SAMURAI_PERM->tiene(SAMURAI_ALTA_PERFIL)) {
  98                 $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>');
  99                 $TABLA2->addRow($row,'align=right');
 100             }
 101
 102             //Genero la cabecera de la tabla
 103             $row   = array ('Id','Descripcion');
 104             if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 105                 $row[] = 'Tipo';
 106             }
 107             if ($SAMURAI_PERM->tiene(SAMURAI_MODI_PERFIL)) {
 108                 $row[] = 'Modif.';
 109             }
 110             if ($SAMURAI_PERM->tiene(SAMURAI_BAJA_PERFIL)) {
 111                 $row[] = 'Elim.';
 112             }
 113
 114             $TABLA->addRow($row,'cabecera');
 115             foreach ($perfiles as $perfil) {
 116                 $Modif = ereg_replace('##NUEVO##' , $perfil->getId(), $aHrefModif);
 117                 $Elim  = ereg_replace('##NUEVO##' , $perfil->getId(), $aHrefElim );
 118                 $Modif = ereg_replace('##ACCION##', 'm'             , $Modif     );
 119                 $Elim  = ereg_replace('##ACCION##', 'e'             , $Elim      );
 120                 $row = array ($perfil->getId(), $perfil->getDescripcion());
 121
 122                 if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 123                     $row[] = $perfil->getTipo();
 124                 }
 125                 if ($SAMURAI_PERM->tiene(SAMURAI_MODI_PERFIL)) {
 126                     $row[] = $Modif;
 127                 }
 128                 if ($SAMURAI_PERM->tiene(SAMURAI_BAJA_PERFIL)) {
 129                     $row[] = $Elim;
 130                 }
 131                 $TABLA->addRow($row);
 132             }
 133         // }}}
 134         //AGREGO LA INFO AL MARCO {{{
 135             $MARCO->addBody($TABLA3);
 136             $MARCO->addBody($TABLA2->toHtml(1));
 137             $MARCO->addBody($TABLA);
 138         //}}}
 139     }
 140     //}}}
 141     //NUEVO {{{
 142     elseif (@$_GET['samurai_perfiles'] == 'nuevo' || @$_POST['samurai_accion'] == 'nuevo') {
 143         //VEO SI PUEDE ACCEDER{{{
 144         $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL);
 145         //}}}
 146         //CREO LOS OBJETO NECESARIOS {{{
 147             $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);
 148             $SISTEMA =& new SAMURAI_Sistema ($DB, $id_sistema);
 149         // }}}
 150         //AGREGO LOS ELEMENTOS DEL FORM {{{
 151             $FORM->addElement ('hidden', 'samurai_accion', 'nuevo');
 152             $FORM->addElement ('header', 'cabecera'   , 'Nuevo Perfil');
 153             $FORM->addElement ('select', 'perfiles'   , 'Perfiles', '', array('size' => '1'));
 154             $FORM->addElement ('text'  , 'filtro'     , 'Filtrar' , array('size' => '50'));
 155             $FORM->addElement ('text'  , 'descripcion', 'Nombre'  , array('size' => '50'));
 156             $group[] = HTML_QuickForm::createElement('submit', 'continuar', 'Continuar');
 157             $group[] = HTML_QuickForm::createElement('submit', 'filtrar'  , 'Filtrar'  );
 158             $group[] = HTML_QuickForm::createElement('submit', 'cancelar' , 'Cancelar', array ('onClick' => 'javascript:window.location =\''.$_SERVER['PHP_SELF'].'\';return false;') );
 159             $FORM->addGroup($group,'botones');
 160         // }}}
 161         //RESTRINJO EL FORMATO DEL NOMBRE DEL PERFIL{{{
 162             $FORM->addRule ('descripcion', 'El nombre del perfil solo puede contener letras y/o numeros.', 'regex','/^[a-zA-Z0-9 ]+$/');
 163         // }}}
 164         // CARGO LA INFORMACION EN EL SELECT DE PERFILES {{{
 165             $botones     = $FORM->getSubmitValue('botones');
 166             $perfiles    =& $FORM->getElement('perfiles');
 167             $descripcion =& $FORM->getElement('descripcion');
 168             if (@$botones['cancelar']) {
 169                 header('Location: '.$_SERVER['PHP_SELF']);
 170             }
 171             if (!isset($botones['filtrar'])) {
 172                 $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB);
 173             }
 174             elseif (@$botones['filtrar']) {
 175                 $filtro   =& $FORM->getElement('filtro');
 176                 $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB, $filtro->getValue());
 177             }
 178             $perfiles->addOption('--', '--');
 179             $perfiles->loadArray($PERFILES);
 180         // }}}
 181         // VALIDO EL FORMULARIO {{{
 182             if ($FORM->validate()) {
 183                 if (@$botones['continuar']) { //Ya selecciono un nombre para el perfil
 184                     $res = '';
 185                     $tmp = $perfiles->getSelected();
 186                     if ((!@$descripcion->getvalue() && $tmp['0'] == '--') || ($descripcion->getvalue() && $tmp['0'] != '--')) {
 187                         $res = new PEAR_Error("Debe seleccionar un perfil del combo o ingresar un nombre en la casilla correspondiente.<br>
 188                                                Solo una de las dos opciones.");
 189                         @$descripcion->setValue('');
 190                     }
 191                     elseif ($tmp['0'] != '--') {
 192                         //verificar que el sistema no tenga una asociacion con ese perfil
 193                         if (SAMURAI_Perfil::existeAsociacion($DB, $tmp['0'], $id_sistema)) {
 194                             $res = new PEAR_Error("El sistema ya tiene asociado el perfil seleccionado,
 195                                                    modifique sus permisos desde la seccion perfiles.");
 196                         }
 197                         else {
 198                             header('Location: '.$_SERVER['PHP_SELF'].'?samurai_perfiles=abm&id_perfil='.$tmp['0']);
 199                         }
 200                     }
 201                     elseif ($descripcion->getValue()) {
 202                         //Verificar que no exista un perfil con la misma descripcion
 203                         //Reduzco los blancos
 204                         $temp = $descripcion->getValue();
 205                         $tt = split (' ', $temp);
 206                         $rta = '';
 207                         foreach ($tt as $t) {
 208                             if ($t != '') {
 209                                 $rta.= $t.' ';
 210                             }
 211                         }
 212                         $rta = rtrim($rta);
 213                         //
 214                         if (SAMURAI_Perfil::existePerfil($DB, $rta)) {
 215                             $res = new PEAR_Error("Ya existe un perfil con ese nombre, seleccionelo del combo.<br>
 216                                                    Recuerde que varios espacios se reduciran a uno solo
 217                                                    (Ej: Agregar&nbsp;&nbsp;&nbsp;&nbsp; Usuario -> Agregar Usuario)");
 218                         }
 219                         else {
 220                             $temp = ereg_replace(' ' , '%20', $rta); //Cambio los espacios por %20 para que no chille el netscape
 221                             header('Location: '.$_SERVER['PHP_SELF'].'?samurai_perfiles=abm&desc_perfil='.$temp);
 222                         }
 223                     }
 224                     if (PEAR::isError($res)) {
 225                         $TABLA = new MECON_HTML_Tabla ('cellspacing=0');
 226                         $row = array ('<font color="red"><b>'.$res->getMessage().'</b></font>');
 227                         $TABLA->addRow($row,'align=left');
 228                     }
 229                 }
 230             }
 231         // }}}
 232         //AGREGO LA INFO AL MARCO {{{
 233         //AGREGO LOS DATOS A LAS TABLAS {{{
 234             $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
 235             $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
 236             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
 237             $TABLA3->addRow($row,'align=left');
 238         //}}}
 239             $MARCO->addBody($TABLA3);
 240             if (isset($TABLA)) {
 241                 $MARCO->addBody($TABLA);
 242             }
 243             $MARCO->addBody($FORM);
 244         //}}}
 245     }
 246     //}}}
 247     //ABM {{{
 248     elseif (@$_GET['samurai_perfiles'] == 'abm' || @$_POST['samurai_accion'] == 'abm') {
 249         //VEO SI PUEDE ACCEDER{{{
 250         $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL,SAMURAI_BAJA_PERFIL,SAMURAI_MODI_PERFIL);
 251         //}}}
 252         //CREO LOS OBJETO NECESARIOS {{{
 253             if (@$_GET['id_perfil']) {
 254                 $id_perfil = $_GET['id_perfil'];
 255             }
 256             elseif (@$_POST['id_perfil']) {
 257                 $id_perfil = $_POST['id_perfil'];
 258             }
 259             else {
 260                 $id_perfil = null;
 261             }
 262             $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);
 263             $SISTEMA =& new SAMURAI_Sistema ($DB, $id_sistema);
 264             $PERFIL  =& new SAMURAI_Perfil ($DB, $id_perfil);
 265
 266             if ($PERFIL->getResponsable()) {
 267                 $responsable = $PERFIL->getResponsable();
 268             }
 269             else {
 270                 $responsable = $_SESSION['usuario'];
 271             }
 272
 273             if (!@$_GET['id_perfil']) {
 274                 if (@$_GET['desc_perfil']) {
 275                     $PERFIL->setDescripcion(@$_GET['desc_perfil']);
 276                 }
 277                 else {
 278                     $PERFIL->setDescripcion(@$_POST['desc_ant']);
 279                 }
 280             }
 281             $descripcion = $PERFIL->getDescripcion();
 282         // }}}
 283         //OBTENGO LOS PERMISOS DEL SISTEMA {{{
 284             $ASOCIACIONES = $SISTEMA->getAsociaciones();
 285             $PERMISOS = array ();
 286             foreach ($ASOCIACIONES as $as) {
 287                 $clave = $as['id'].'##'.$as['obs'];
 288                 $texto = ($as['obs'] != '') ? $as['desc'].' - '.$as['obs']: $as['desc'];
 289                 $PERMISOS[$clave] = $texto;
 290             }
 291         // }}}
 292         //AGREGO LOS ELEMENTOS DEL FORM {{{
 293             if (@$PERMISOS) {
 294                 $FORM->addElement ('hidden', 'samurai_accion', 'abm');
 295                 $FORM->addElement ('header', 'cabecera', 'ABM Perfiles');
 296                 $FORM->addElement ('hidden', 'id_perfil', $id_perfil);
 297                 $FORM->addElement ('hidden', 'desc_ant'   , $descripcion);
 298                 $FORM->addElement ('static', 'desc_perfil', 'Descripcion', $descripcion);
 299                 $FORM->addElement ('select', 'permisos'   , 'Permisos'   , $PERMISOS, array('size' => '5', 'multiple' => 'true'));
 300                 if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 301                     $FORM->addElement ('select', 'tipo_perfil', 'Tipo Perfil', array('E' => 'Externo', 'I' => 'Interno', 'D' => 'Dios'), array ('size' => '1'));
 302                 }
 303                 $FORM->addElement ('hidden', 'responsable', $responsable);
 304                 $group[] = HTML_QuickForm::createElement('submit', 'aceptar' , 'Grabar');
 305                 $group[] = HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar', array ('onClick' => 'javascript:window.location=\''.$_SERVER['PHP_SELF'].'\';return false;'));
 306                 $FORM->addGroup($group,'botones');
 307             }
 308             else {
 309                 $ERROR = new MECON_HTML_Error('El sistema no posee permisos asociados.');
 310             }
 311         // }}}
 312         //AGREGO LAS REGLAS DE VALIDACION {{{
 313             $FORM->addRule ('permisos', 'Se debe seleccionar al menos un permiso', 'required');
 314         // }}}
 315         //CARGO LOS DATOS SI YA EXISTEN EN BASE {{{
 316             if (isset($_GET['accion']) && $_GET['accion'] != '') {
 317                 //MODIFICACION
 318                 $id_perfil    =& $FORM->getElement  ('id_perfil'  );
 319                 $desc_perfil  =& $FORM->getElement  ('desc_perfil');
 320                 $permisos     =& $FORM->getElement  ('permisos'   );
 321
 322                 if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 323                     $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
 324                 }
 325                 $responsable  =& $FORM->getElement  ('responsable');
 326                 $group        =& $FORM->getElement  ('botones'    );
 327                 $group        =& $group->getElements('aceptar'    );
 328                 $aceptar      =& $group[0];
 329
 330                 $permisos->setSelected($PERFIL->getPermisos());
 331
 332                 if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 333                     $tipo_perfil->setSelected($PERFIL->getTipo());
 334                 }
 335
 336                 if ($PERFIL->getResponsable() != '') {
 337                     $responsable->setValue($PERFIL->getResponsable());
 338                 }
 339
 340                 //Modifico el valor del boton
 341                 $aceptar->setValue('Modificar');
 342
 343                 //ELIMINACION -> modifico el valor del boton
 344                 if ($_GET['accion'] == 'e') {
 345                     $aceptar->setValue('Eliminar');
 346                     $aceptar->updateAttributes(array ('onClick' => 'javascript:if (confirm(\'¿Esta Seguro?\')) return true;return false;'));
 347                     $FORM->freeze();
 348                 }
 349             }
 350         // }}}
 351         //VALIDO EL FORMULARIO {{{
 352             if ($FORM->validate()) {
 353                 // VEO SI SE CANCELO {{{
 354                 $botones = $FORM->getSubmitValue('botones');
 355                 if (@$botones['cancelar']) {
 356                     header('Location: '.$_SERVER['PHP_SELF']);
 357                 }
 358                 // }}}
 359                 else {
 360                     $id_perfil    =& $FORM->getElement  ('id_perfil'  );
 361                     $desc_perfil  =& $FORM->getElement  ('desc_perfil');
 362                     $permisos     =& $FORM->getElement  ('permisos'   );
 363
 364                     if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 365                         $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
 366                         $tipo_perfil_tmp  =  $tipo_perfil->getSelected();
 367                     }
 368                     $responsable  =& $FORM->getElement  ('responsable');
 369                     $group        =& $FORM->getElement  ('botones'    );
 370                     $group        =& $group->getElements('aceptar'    );
 371                     $aceptar      =& $group[0];
 372
 373                     $PERFIL->setDescripcion($desc_perfil->_text     );
 374                     $PERFIL->setResponsable($responsable->getValue());
 375                     $PERFIL->setPermisos   ($permisos->getSelected()); //Le asigno al perfil los permisos seleccionados
 376
 377                     if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 378                         $PERFIL->setTipo       ($tipo_perfil_tmp['0']   );
 379                     }
 380
 381                     //Grabo y verifico si se produjo algun error
 382                     $res = $PERFIL->guardarDatos($aceptar->getValue());
 383
 384                     if (PEAR::isError($res)) {
 385                         $ERROR = new MECON_HTML_Error($res->getMessage());
 386                         if ($aceptar->getValue() == 'Eliminar') {
 387                             $FORM->freeze();
 388                         }
 389                     }
 390                     else {
 391                         $FORM->freeze();
 392                         header('Location: '.$_SERVER['PHP_SELF']);
 393                     }
 394                 }
 395             }
 396         // }}}
 397         //DIBUJO LA PAGINA {{{
 398             $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
 399             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
 400             $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
 401             $TABLA3->addRow($row,'align=left');
 402
 403             $MARCO->addTitle('ABM Perfil');
 404             $MARCO->addBody($TABLA3);
 405             if (isset($ERROR)) {
 406                 $MARCO->addBody($ERROR);
 407             }
 408             $MARCO->addBody($FORM);
 409     //}}}
 410     }
 411     //}}}
 412 }
 413 ?>