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 'SAMURAI/Sistema.php';
  34 require_once 'SAMURAI/Perfil.php';
  35 require_once 'MECON/HTML/Image.php';
  36 require_once 'MECON/HTML/TablaDB.php';
  37 //}}}
  38
  39 //VEO SI HAY QUE ELEGIR EN QUE SISTEMA TRABAJAR {{{
  40 if (!@$_SESSION['samurai']['id_sistema']) {
  41     header('Location: ./../sel-sistema?redirect=perfiles/perfiles');
  42 }
  43 //}}}
  44
  45 //VIÑETA CON EL SISTEMA EN EL CUAL SE ESTA TRABAJANDO {{{
  46 $SISTEMA =& new SAMURAI_Sistema($DB, $_SESSION['samurai']['id_sistema']);
  47 $tmp =& new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif', '>>');
  48 $VINETA = '<div align="left">'. $tmp->toHTML() .'&nbsp;<b>SISTEMA: '.
  49     $SISTEMA->getNombre().'</b></div>';
  50 //}}}
  51
  52 //OBTENGO LA INFORMACION DE LOS PERFILES {{{
  53 $res = SAMURAI_Perfil::getPerfilesPager($DB, null, $_SESSION['samurai']['id_sistema']);
  54 //}}}
  55
  56 //CREO LA TABLA DE USUARIOS {{{
  57 $TABLA =& new MECON_HTML_TablaDB ('Perfiles');
  58 $TABLA->addLink(
  59         'nuevo',
  60         new MECON_HTML_Link(
  61             'perfiles-nuevo', 'Nuevo Perfil'
  62             )
  63         );
  64 $TABLA->addLink(
  65         'volver',
  66         new MECON_HTML_Link(
  67             './../sel-sistema?redirect=perfiles/perfiles',
  68             'Seleccionar otro sistema para trabajar'
  69             )
  70         );
  71
  72
  73 $cabecera[] = 'Id';
  74 $cabecera[] = 'Descripción';
  75
  76 //Agrego las columnas de modificacion y eliminacion {{{
  77 $link = new MECON_HTML_Link ('perfiles-abm', null, array('accion' => 'm'));
  78 if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_MODIF)) {
  79     $cabecera[] = 'Modif.';
  80     $TABLA->addRowsIcon('modificar', 'id_perfil', $link);
  81 }
  82 if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_BAJA)) {
  83     $cabecera[] = 'Elimn.';
  84     $link->setGetVar('accion', 'e');
  85     $TABLA->addRowsIcon('eliminar', 'id_perfil', $link);
  86 }
  87 //}}}
  88
  89 $TABLA->addRow($cabecera, 'cabecera');
  90 $pager = $TABLA->addPager($res, null, new MECON_HTML_Link ('perfiles', null), 25);
  91 $TABLA->addRows($pager, array ('id_perfil', 'descripcion'));
  92 //}}}
  93
  94 //DIBUJO LA PAGINA {{{
  95 $MARCO->addBody($VINETA);
  96 $MARCO->addBody($TABLA);
  97 $MARCO->display();
  98 //}}}
  99 ?>