sistema/www/sistemas/sistemas-permisos.php

   1 <?php
   2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker:
   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 may 27 15:16:38 ART 2003
  17 // | Author:  Martin Marrese <mmarre@mecon.gov.ar>
  18 // +----------------------------------------------------------------------+
  19 //
  20 // $Id$
  21 //
  22
  23 //REQUIRE_ONCE {{{
  24     //MECON {{{
  25     require_once 'MECON/HTML/Tabla.php';
  26     // }}}
  27     //SAMURAI {{{
  28     require_once 'SAMURAI/Sistema.php';
  29     require_once 'SAMURAI/Permiso.php';
  30     // }}}
  31 // }}}
  32 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
  33 $SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
  34 //}}}
  35 //OBTENGO EL ID DEL SISTEMA {{{
  36     //El id de sistema viene por get o por post, no hay otra posibilidad
  37     $idSistema = 0;
  38     if (isset($_GET['idSistema'])) {
  39         $idSistema = $_GET['idSistema'];
  40     }
  41     elseif (isset($_POST['idSistema'])) {
  42         $idSistema = $_POST['idSistema'];
  43     }
  44     $_SESSION['samurai']['id_sistema'] = $idSistema;
  45 // }}}
  46 //CREO LOS OBJETO NECESARIOS {{{
  47     $SISTEMA   = new SAMURAI_Sistema ($DB, $idSistema);
  48     $TABLASIST = new MECON_HTML_Tabla ('cellpadding=2');
  49     $TABLAPERM = new MECON_HTML_Tabla ('cellpadding=2');
  50     $SISTEMA->setResponsable($_SESSION['usuario']);
  51 // }}}
  52 //AGREGO LA INFORMACION DEL SISTEMA {{{
  53     $row = array ('Datos del sistema');
  54     $TABLASIST->addRow($row, 'cabecera colspan=3');
  55     $row = array ('Id', 'Nombre', 'Descripcion');
  56     $TABLASIST->addRow($row, 'titulo');
  57     $row = array ($SISTEMA->getId(), $SISTEMA->getNombre(), $SISTEMA->getDescripcion());
  58     $TABLASIST->addRow($row, 'comun');
  59 // }}}
  60 //AGREGO LA INFORMACION DE LAS ASOCIACIONES {{{
  61     $aHref      = '<a href="sistemas-permisos-abm?accion=##ACCION##&idPermiso=##PERMISO##&observacion=##OBS##&idSistema='.$idSistema.'">';
  62     $aHrefModif = $aHref.'<img src="/MECON/images/general_modificar.gif" border="0" alt="Modificar"></a>';
  63     $aHrefElim  = $aHref.'<img src="/MECON/images/general_eliminar.gif"  border="0" alt="Eliminar" ></a>';
  64
  65     $TABLA2 = new MECON_HTML_Tabla ('cellspacing=0');
  66     $tt = ereg_replace ('##ACCION##' , 'n', $aHref);
  67     $tt = ereg_replace ('##PERMISO##', 'p', $tt   );
  68     $tt = ereg_replace ('##OBS##'    , 'o', $tt   );
  69     $row = array ($tt.'<img src="/MECON/images/general_nuevo.gif" border="0">Asociar nuevo permiso al sistema</a>');
  70     $TABLA2->addRow($row, 'align=right');
  71
  72     $row = array ('Permisos Asociados al Sistema');
  73     $TABLAPERM->addRow($row, 'cabecera colspan=4');
  74     $row = array ('Nombre', 'Observacion', 'Modif.', 'Elim.');
  75     $TABLAPERM->addRow($row, 'titulo');
  76
  77     $asocs = $SISTEMA->getAsociaciones();
  78
  79     foreach ($asocs as $asoc) {
  80         $obs = ereg_replace(' ' , '%20', $asoc['obs']); //Cambio los espacios por %20 para que funcione bien con el netscape
  81         $estilo = 'comun';
  82         $permiso = new SAMURAI_Permiso($DB, $asoc['id']);
  83         $Modif = ereg_replace('##PERMISO##', $asoc['id'] , $aHrefModif);
  84         $Elim  = ereg_replace('##PERMISO##', $asoc['id'] , $aHrefElim );
  85         $Modif = ereg_replace('##OBS##'    , $obs        , $Modif     );
  86         $Elim  = ereg_replace('##OBS##'    , $obs        , $Elim      );
  87         $Modif = ereg_replace('##ACCION##' , 'm'         , $Modif     );
  88         $Elim  = ereg_replace('##ACCION##' , 'e'         , $Elim      );
  89         $row = array ($permiso->getDescripcion(), $asoc['obs'], $Modif, $Elim);
  90         $TABLAPERM->addRow($row, $estilo);
  91     }
  92
  93 // }}}
  94 //OPCION VOLVER {{{
  95     $TABLAVOLVER = new MECON_HTML_Tabla ('cellspacing=0');
  96     $row = array ('<a href="sistemas" alt="Volver a la lista de Sistemas" ><img src="/MECON/images/general_volver4.gif" border="0">&nbsp;Volver a Sistemas</a>');
  97     $TABLAVOLVER->addRow($row,'align=left');
  98 // }}}
  99 //DIBUJO LA PAGINA {{{
 100     $MARCO->addBody($TABLAVOLVER);
 101     $MARCO->addTitle('Asociar Permisos y Sistemas');
 102     //AGREGO LA TABLA DEL SISTEMA
 103     $MARCO->addBody($TABLASIST);
 104     $MARCO->addBody('<BR>');
 105     //AGREGO LA TABLA DE PERMISOS
 106     $MARCO->addBody($TABLA2);
 107     $MARCO->addBody($TABLAPERM);
 108     $MARCO->display();
 109 // }}}
 110 //FIN
 111
 112 ?>