sistema/www/perfiles/perfiles.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 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
  24 $SAMURAI_PERM->setSistema(SAMURAI_PERM);
  25 if (!$SAMURAI_PERM->tiene(SAMURAI_PERM_DEVELOPER)) {
  26     $SAMURAI_PERM->setSistema($_SESSION['samurai']['id_sistema']);
  27     $SAMURAI_PERM->chequear(SAMURAI_PERM_PERFIL_ALTA,SAMURAI_PERM_PERFIL_BAJA,SAMURAI_PERM_PERFIL_MODIF, SAMURAI_PERM_DEVELOPER);
  28 }
  29 $MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
  30 //}}}
  31
  32 //REQUIRE ONCE {{{
  33     require_once 'MECON/HTML/Tabla.php';
  34     require_once 'SAMURAI/Perfil.php';
  35     require_once 'SAMURAI/Sistema.php';
  36 //}}}
  37 //LINKS {{{
  38     $aHrefPopup = '<a href="" onClick="window.open(\'perfiles-datos?id_perfil=##PERFIL##\',\'perfilesdatos\',\'height=300,width=400,scrollbars=yes\');return false;">';
  39     $aHref      = '<a href="perfiles-abm?accion=##ACCION##&id_perfil=##NUEVO##">';
  40     $aHrefModif = $aHref.'<img src="/MECON/images/general_modificar.gif" border="0" alt="Modificar Perfil"></a>';
  41     $aHrefElim  = $aHref.'<img src="/MECON/images/general_eliminar.gif"  border="0" alt="Eliminar Perfil" ></a>';
  42 // }}}
  43 //VEO SI HAY QUE ELEGIR EN QUE SISTEMA TRABAJAR {{{
  44 if (!@$_SESSION['samurai']['id_sistema']) {
  45     header('Location: ./../sel-sistema?redirect=perfiles/perfiles');
  46 }
  47 // }}}
  48 //CREO LOS OBJETOS NECESARIOS {{{
  49     $TABLA2 = new MECON_HTML_Tabla ('cellspacing=0');
  50     $TABLA  = new MECON_HTML_Tabla ('cellpadding=2');
  51     $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
  52     $SISTEMA = new SAMURAI_Sistema($DB, $_SESSION['samurai']['id_sistema']);
  53 // }}}
  54 //OBTENGO LA INFORMACION DE LA BASE {{{
  55     $perfiles = SAMURAI_Perfil::getPerfiles($DB, null, $_SESSION['samurai']['id_sistema']);
  56 // }}}
  57 //AGREGO LOS DATOS A LAS TABLAS {{{
  58     $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
  59     $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
  60     $TABLA3->addRow($row,'align=left');
  61
  62     //Agrego la posibilidad de seleccionar otro sistema para trabajar.
  63     $row = array ();
  64     $row[] = '<a href="/sistemas/samurai/sel-sistema?redirect=perfiles/perfiles"><img src="/MECON/images/general_volver.gif" border="0">Seleccionar otro sistema para trabajar.</a>';
  65     //Agrego el link a nuevo
  66     if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_ALTA)) {
  67         $row[] = '<a href="perfiles-nuevo"><img src="/MECON/images/general_nuevo.gif" border="0">Ingresar&nbsp;Nuevo&nbsp;Perfil</a>';
  68     }
  69     $TABLA2->addRow($row,'align=right');
  70     //Genero la cabecera de la tabla
  71     $row   = array ('Id','Descripción');
  72     if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_MODIF)) {
  73         $row[] = 'Modif.';
  74     }
  75     if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_BAJA)) {
  76         $row[] = 'Elim.';
  77     }
  78
  79     $TABLA->addRow($row,'cabecera');
  80     foreach ($perfiles as $perfil) {
  81         $Popup = ereg_replace('##PERFIL##', $perfil->getId(), $aHrefPopup);
  82         $Modif = ereg_replace('##NUEVO##' , $perfil->getId(), $aHrefModif);
  83         $Elim  = ereg_replace('##NUEVO##' , $perfil->getId(), $aHrefElim );
  84         $Popup = $Popup.$perfil->getDescripcion().'</a>';
  85         $Modif = ereg_replace('##ACCION##', 'm'             , $Modif     );
  86         $Elim  = ereg_replace('##ACCION##', 'e'             , $Elim      );
  87         $row = array ($perfil->getId(), $Popup);
  88
  89         if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_MODIF)) {
  90             $row[] = $Modif;
  91         }
  92         if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_BAJA)) {
  93             $row[] = $Elim;
  94         }
  95         $TABLA->addRow($row);
  96     }
  97 // }}}
  98 //DIBUJO LA PAGINA {{{
  99     $MARCO->addBody($TABLA3);
 100     $MARCO->addBody($TABLA2->toHtml(1));
 101     $MARCO->addBody($TABLA);
 102     $MARCO->display();
 103 // }}}
 104 //FIN
 105 ?>