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     $_SESSION['samurai']['id_sistema'] = $id_sistema;
  60     $_SESSION['samurai']['login'] = $_SESSION['usuario'];
  61
  62     //INICIALIZO OBJETOS GENERALES {{{
  63     //REALIZO CONEXION
  64     $tmp = new SAMURAI_DB();
  65     $DB  =& $tmp->connect();
  66     //CREAR EL OBJETO SAMURAI_Perm
  67     $SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['usuario'], $id_sistema, $DB);
  68     //}}}
  69
  70     //POSIBLES ACCIONES
  71     // listado -> Listado de los perfiles ya creados en el sistema.
  72     // nuevo   -> Pantalla de seleccion o de ingreso de un nuevo nombre.
  73     // abm     -> Formulario para la carga de la info del perfil.
  74
  75     //LISTADO {{{
  76     if ((!@$_GET['samurai_perfiles'] && !@$_POST['samurai_accion'])|| @$_GET['samurai_perfiles'] == 'listado') {
  77         //VEO SI PUEDE ACCEDER{{{
  78         $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL,SAMURAI_BAJA_PERFIL,SAMURAI_MODI_PERFIL);
  79         //}}}
  80         //LINKS {{{
  81             $aHref      = '<a href="'.$_SERVER['PHP_SELF'].'?accion=##ACCION##&id_perfil=##NUEVO##&samurai_perfiles=abm">';
  82             $aHrefModif = $aHref.'<img src="/MECON/images/general_modificar.gif" border="0" alt="Modificar Perfil"></a>';
  83             $aHrefElim  = $aHref.'<img src="/MECON/images/general_eliminar.gif"  border="0" alt="Eliminar Perfil" ></a>';
  84         // }}}
  85         //CREO LOS OBJETOS NECESARIOS {{{
  86             $TABLA2  =& new MECON_HTML_Tabla ('cellspacing=0');
  87             $TABLA   =& new MECON_HTML_Tabla ('cellpadding=2');
  88             $TABLA3  =& new MECON_HTML_Tabla ('cellspacing=0');
  89             $SISTEMA =& new SAMURAI_Sistema($DB, $id_sistema);
  90         // }}}
  91         //OBTENGO LA INFORMACION DE LA BASE {{{
  92             $perfiles = SAMURAI_Perfil::getPerfiles($DB, null, $id_sistema);
  93         // }}}
  94         //AGREGO LOS DATOS A LAS TABLAS {{{
  95             $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
  96             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
  97             $TABLA3->addRow($row,'align=left');
  98
  99             //Agrego el link a nuevo
 100             if ($SAMURAI_PERM->tiene(SAMURAI_ALTA_PERFIL)) {
 101                 $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>');
 102                 $TABLA2->addRow($row,'align=right');
 103             }
 104
 105             //Genero la cabecera de la tabla
 106             $row   = array ('Id','Descripcion');
 107             if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 108                 $row[] = 'Tipo';
 109             }
 110             if ($SAMURAI_PERM->tiene(SAMURAI_MODI_PERFIL)) {
 111                 $row[] = 'Modif.';
 112             }
 113             if ($SAMURAI_PERM->tiene(SAMURAI_BAJA_PERFIL)) {
 114                 $row[] = 'Elim.';
 115             }
 116
 117             $TABLA->addRow($row,'cabecera');
 118             foreach ($perfiles as $perfil) {
 119                 $Modif = ereg_replace('##NUEVO##' , $perfil->getId(), $aHrefModif);
 120                 $Elim  = ereg_replace('##NUEVO##' , $perfil->getId(), $aHrefElim );
 121                 $Modif = ereg_replace('##ACCION##', 'm'             , $Modif     );
 122                 $Elim  = ereg_replace('##ACCION##', 'e'             , $Elim      );
 123                 $row = array ($perfil->getId(), $perfil->getDescripcion());
 124
 125                 if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 126                     $row[] = $perfil->getTipo();
 127                 }
 128                 if ($SAMURAI_PERM->tiene(SAMURAI_MODI_PERFIL)) {
 129                     $row[] = $Modif;
 130                 }
 131                 if ($SAMURAI_PERM->tiene(SAMURAI_BAJA_PERFIL)) {
 132                     $row[] = $Elim;
 133                 }
 134                 $TABLA->addRow($row);
 135             }
 136         // }}}
 137         //AGREGO LA INFO AL MARCO {{{
 138             $MARCO->addBody($TABLA3);
 139             $MARCO->addBody($TABLA2->toHtml(1));
 140             $MARCO->addBody($TABLA);
 141         //}}}
 142     }
 143     //}}}
 144     //NUEVO {{{
 145     elseif (@$_GET['samurai_perfiles'] == 'nuevo' || @$_POST['samurai_accion'] == 'nuevo') {
 146         //VEO SI PUEDE ACCEDER{{{
 147         $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL);
 148         //}}}
 149         //CREO LOS OBJETO NECESARIOS {{{
 150             $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);
 151             $SISTEMA =& new SAMURAI_Sistema ($DB, $id_sistema);
 152         // }}}
 153         //AGREGO LOS ELEMENTOS DEL FORM {{{
 154             $FORM->addElement ('hidden', 'samurai_accion', 'nuevo');
 155             $FORM->addElement ('header', 'cabecera'   , 'Nuevo Perfil');
 156             $FORM->addElement ('select', 'perfiles'   , 'Perfiles', '', array('size' => '1'));
 157             $FORM->addElement ('text'  , 'filtro'     , 'Filtrar' , array('size' => '50'));
 158             $FORM->addElement ('text'  , 'descripcion', 'Nombre'  , array('size' => '50'));
 159             $group[] = HTML_QuickForm::createElement('submit', 'continuar', 'Continuar');
 160             $group[] = HTML_QuickForm::createElement('submit', 'filtrar'  , 'Filtrar'  );
 161             $group[] = HTML_QuickForm::createElement('submit', 'cancelar' , 'Cancelar', array ('onClick' => 'javascript:window.location =\''.$_SERVER['PHP_SELF'].'\';return false;') );
 162             $FORM->addGroup($group,'botones');
 163         // }}}
 164         //RESTRINJO EL FORMATO DEL NOMBRE DEL PERFIL{{{
 165             $FORM->addRule ('descripcion', 'El nombre del perfil solo puede contener letras y/o numeros.', 'regex','/^[a-zA-Z0-9 ]+$/');
 166         // }}}
 167         // CARGO LA INFORMACION EN EL SELECT DE PERFILES {{{
 168             $botones     = $FORM->getSubmitValue('botones');
 169             $perfiles    =& $FORM->getElement('perfiles');
 170             $descripcion =& $FORM->getElement('descripcion');
 171             if (@$botones['cancelar']) {
 172                 header('Location: '.$_SERVER['PHP_SELF']);
 173             }
 174             if (!isset($botones['filtrar'])) {
 175                 $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB);
 176             }
 177             elseif (@$botones['filtrar']) {
 178                 $filtro   =& $FORM->getElement('filtro');
 179                 $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB, $filtro->getValue());
 180             }
 181             $perfiles->addOption('--', '--');
 182             $perfiles->loadArray($PERFILES);
 183         // }}}
 184         // VALIDO EL FORMULARIO {{{
 185             if ($FORM->validate()) {
 186                 if (@$botones['continuar']) { //Ya selecciono un nombre para el perfil
 187                     $res = '';
 188                     $tmp = $perfiles->getSelected();
 189                     if ((!@$descripcion->getvalue() && $tmp['0'] == '--') || ($descripcion->getvalue() && $tmp['0'] != '--')) {
 190                         $res = new PEAR_Error("Debe seleccionar un perfil del combo o ingresar un nombre en la casilla correspondiente.<br>
 191                                                Solo una de las dos opciones.");
 192                         @$descripcion->setValue('');
 193                     }
 194                     elseif ($tmp['0'] != '--') {
 195                         //verificar que el sistema no tenga una asociacion con ese perfil
 196                         if (SAMURAI_Perfil::existeAsociacion($DB, $tmp['0'], $id_sistema)) {
 197                             $res = new PEAR_Error("El sistema ya tiene asociado el perfil seleccionado,
 198                                                    modifique sus permisos desde la seccion perfiles.");
 199                         }
 200                         else {
 201                             header('Location: '.$_SERVER['PHP_SELF'].'?samurai_perfiles=abm&id_perfil='.$tmp['0']);
 202                         }
 203                     }
 204                     elseif ($descripcion->getValue()) {
 205                         //Verificar que no exista un perfil con la misma descripcion
 206                         //Reduzco los blancos
 207                         $temp = $descripcion->getValue();
 208                         $tt = split (' ', $temp);
 209                         $rta = '';
 210                         foreach ($tt as $t) {
 211                             if ($t != '') {
 212                                 $rta.= $t.' ';
 213                             }
 214                         }
 215                         $rta = rtrim($rta);
 216                         //
 217                         if (SAMURAI_Perfil::existePerfil($DB, $rta)) {
 218                             $res = new PEAR_Error("Ya existe un perfil con ese nombre, seleccionelo del combo.<br>
 219                                                    Recuerde que varios espacios se reduciran a uno solo
 220                                                    (Ej: Agregar&nbsp;&nbsp;&nbsp;&nbsp; Usuario -> Agregar Usuario)");
 221                         }
 222                         else {
 223                             $temp = ereg_replace(' ' , '%20', $rta); //Cambio los espacios por %20 para que no chille el netscape
 224                             header('Location: '.$_SERVER['PHP_SELF'].'?samurai_perfiles=abm&desc_perfil='.$temp);
 225                         }
 226                     }
 227                     if (PEAR::isError($res)) {
 228                         $TABLA = new MECON_HTML_Tabla ('cellspacing=0');
 229                         $row = array ('<font color="red"><b>'.$res->getMessage().'</b></font>');
 230                         $TABLA->addRow($row,'align=left');
 231                     }
 232                 }
 233             }
 234         // }}}
 235         //AGREGO LA INFO AL MARCO {{{
 236         //AGREGO LOS DATOS A LAS TABLAS {{{
 237             $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
 238             $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
 239             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
 240             $TABLA3->addRow($row,'align=left');
 241         //}}}
 242             $MARCO->addBody($TABLA3);
 243             if (isset($TABLA)) {
 244                 $MARCO->addBody($TABLA);
 245             }
 246             $MARCO->addBody($FORM);
 247         //}}}
 248     }
 249     //}}}
 250     //ABM {{{
 251     elseif (@$_GET['samurai_perfiles'] == 'abm' || @$_POST['samurai_accion'] == 'abm') {
 252         //VEO SI PUEDE ACCEDER{{{
 253         $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL,SAMURAI_BAJA_PERFIL,SAMURAI_MODI_PERFIL);
 254         //}}}
 255         //CREO LOS OBJETO NECESARIOS {{{
 256             if (@$_GET['id_perfil']) {
 257                 $id_perfil = $_GET['id_perfil'];
 258             }
 259             elseif (@$_POST['id_perfil']) {
 260                 $id_perfil = $_POST['id_perfil'];
 261             }
 262             else {
 263                 $id_perfil = null;
 264             }
 265             $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);
 266             $SISTEMA =& new SAMURAI_Sistema ($DB, $id_sistema);
 267             $PERFIL  =& new SAMURAI_Perfil ($DB, $id_perfil);
 268
 269             if ($PERFIL->getResponsable()) {
 270                 $responsable = $PERFIL->getResponsable();
 271             }
 272             else {
 273                 $responsable = $_SESSION['usuario'];
 274             }
 275
 276             if (!@$_GET['id_perfil']) {
 277                 if (@$_GET['desc_perfil']) {
 278                     $PERFIL->setDescripcion(@$_GET['desc_perfil']);
 279                 }
 280                 else {
 281                     $PERFIL->setDescripcion(@$_POST['desc_ant']);
 282                 }
 283             }
 284             $descripcion = $PERFIL->getDescripcion();
 285         // }}}
 286         //OBTENGO LOS PERMISOS DEL SISTEMA {{{
 287             $ASOCIACIONES = $SISTEMA->getAsociaciones();
 288             $PERMISOS = array ();
 289             foreach ($ASOCIACIONES as $as) {
 290                 $clave = $as['id'].'##'.$as['obs'];
 291                 $texto = ($as['obs'] != '') ? $as['desc'].' - '.$as['obs']: $as['desc'];
 292                 $PERMISOS[$clave] = $texto;
 293             }
 294         // }}}
 295         //AGREGO LOS ELEMENTOS DEL FORM {{{
 296             if (@$PERMISOS) {
 297                 $FORM->addElement ('hidden', 'samurai_accion', 'abm');
 298                 $FORM->addElement ('header', 'cabecera', 'ABM Perfiles');
 299                 $FORM->addElement ('hidden', 'id_perfil', $id_perfil);
 300                 $FORM->addElement ('hidden', 'desc_ant'   , $descripcion);
 301                 $FORM->addElement ('static', 'desc_perfil', 'Descripcion', $descripcion);
 302                 $FORM->addElement ('select', 'permisos'   , 'Permisos'   , $PERMISOS, array('size' => '5', 'multiple' => 'true'));
 303                 if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 304                     $FORM->addElement ('select', 'tipo_perfil', 'Tipo Perfil', array('E' => 'Externo', 'I' => 'Interno', 'D' => 'Dios'), array ('size' => '1'));
 305                 }
 306                 $FORM->addElement ('hidden', 'responsable', $responsable);
 307                 $group[] = HTML_QuickForm::createElement('submit', 'aceptar' , 'Grabar');
 308                 $group[] = HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar', array ('onClick' => 'javascript:window.location=\''.$_SERVER['PHP_SELF'].'\';return false;'));
 309                 $FORM->addGroup($group,'botones');
 310             }
 311             else {
 312                 $ERROR = new MECON_HTML_Error('El sistema no posee permisos asociados.');
 313             }
 314         // }}}
 315         //AGREGO LAS REGLAS DE VALIDACION {{{
 316             $FORM->addRule ('permisos', 'Se debe seleccionar al menos un permiso', 'required');
 317         // }}}
 318         //CARGO LOS DATOS SI YA EXISTEN EN BASE {{{
 319             if (isset($_GET['accion']) && $_GET['accion'] != '') {
 320                 //MODIFICACION
 321                 $id_perfil    =& $FORM->getElement  ('id_perfil'  );
 322                 $desc_perfil  =& $FORM->getElement  ('desc_perfil');
 323                 $permisos     =& $FORM->getElement  ('permisos'   );
 324
 325                 if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 326                     $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
 327                 }
 328                 $responsable  =& $FORM->getElement  ('responsable');
 329                 $group        =& $FORM->getElement  ('botones'    );
 330                 $group        =& $group->getElements('aceptar'    );
 331                 $aceptar      =& $group[0];
 332
 333                 $permisos->setSelected($PERFIL->getPermisos());
 334
 335                 if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 336                     $tipo_perfil->setSelected($PERFIL->getTipo());
 337                 }
 338
 339                 if ($PERFIL->getResponsable() != '') {
 340                     $responsable->setValue($PERFIL->getResponsable());
 341                 }
 342
 343                 //Modifico el valor del boton
 344                 $aceptar->setValue('Modificar');
 345
 346                 //ELIMINACION -> modifico el valor del boton
 347                 if ($_GET['accion'] == 'e') {
 348                     $aceptar->setValue('Eliminar');
 349                     $aceptar->updateAttributes(array ('onClick' => 'javascript:if (confirm(\'¿Esta Seguro?\')) return true;return false;'));
 350                     $FORM->freeze();
 351                 }
 352             }
 353         // }}}
 354         //VALIDO EL FORMULARIO {{{
 355             if ($FORM->validate()) {
 356                 // VEO SI SE CANCELO {{{
 357                 $botones = $FORM->getSubmitValue('botones');
 358                 if (@$botones['cancelar']) {
 359                     header('Location: '.$_SERVER['PHP_SELF']);
 360                 }
 361                 // }}}
 362                 else {
 363                     $id_perfil    =& $FORM->getElement  ('id_perfil'  );
 364                     $desc_perfil  =& $FORM->getElement  ('desc_perfil');
 365                     $permisos     =& $FORM->getElement  ('permisos'   );
 366
 367                     if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 368                         $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
 369                         $tipo_perfil_tmp  =  $tipo_perfil->getSelected();
 370                     }
 371                     $responsable  =& $FORM->getElement  ('responsable');
 372                     $group        =& $FORM->getElement  ('botones'    );
 373                     $group        =& $group->getElements('aceptar'    );
 374                     $aceptar      =& $group[0];
 375
 376                     $PERFIL->setDescripcion($desc_perfil->_text     );
 377                     $PERFIL->setResponsable($responsable->getValue());
 378                     $PERFIL->setPermisos   ($permisos->getSelected()); //Le asigno al perfil los permisos seleccionados
 379
 380                     if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
 381                         $PERFIL->setTipo       ($tipo_perfil_tmp['0']   );
 382                     }
 383
 384                     //Grabo y verifico si se produjo algun error
 385                     $res = $PERFIL->guardarDatos($aceptar->getValue());
 386
 387                     if (PEAR::isError($res)) {
 388                         $ERROR = new MECON_HTML_Error($res->getMessage());
 389                         if ($aceptar->getValue() == 'Eliminar') {
 390                             $FORM->freeze();
 391                         }
 392                     }
 393                     else {
 394                         $FORM->freeze();
 395                         header('Location: '.$_SERVER['PHP_SELF']);
 396                     }
 397                 }
 398             }
 399         // }}}
 400         //DIBUJO LA PAGINA {{{
 401             $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
 402             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
 403             $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
 404             $TABLA3->addRow($row,'align=left');
 405
 406             $MARCO->addBody($TABLA3);
 407             if (isset($ERROR)) {
 408                 $MARCO->addBody($ERROR);
 409             }
 410             $MARCO->addBody($FORM);
 411     //}}}
 412     }
 413     //}}}
 414 }
 415 ?>