sistema/www/consultas/usuarios.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: jue oct  2 13:03:34 ART 2003
  17 // | Author:  Martin Marrese <mmarre@mecon.gov.ar>
  18 // +----------------------------------------------------------------------+
  19 //
  20 // $Id$
  21 //
  22
  23 //Require_once {{{
  24     //PEAR{{{
  25     require_once 'HTML/Table.php';
  26     //}}}
  27     //Mecon {{{
  28     require_once 'MECON/HTML/Tabla.php';
  29     require_once 'MECON/HTML/Image.php';
  30     require_once 'MECON/HTML/Link.php';
  31     require_once 'MECON/Usuario.php';
  32     require_once 'MECON/Dependencia.php';
  33     require_once 'MECON/HTML/QuickForm.php';
  34     //}}}
  35     //Samurai {{{
  36     require_once 'SAMURAI/Sistema.php';
  37     require_once 'SAMURAI/Usuario.php';
  38     require_once 'SAMURAI/Perfil.php';
  39     require_once 'SAMURAI/Permiso.php';
  40     //}}}
  41 //}}}
  42
  43 //Verifico si se tiene acceso a la pagina {{{
  44     $SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
  45 //}}}
  46
  47 //Obtengo la accion y el id del usuario {{{
  48     $accion    = (@$_REQUEST['accion'])    ? $_REQUEST['accion']    : 'listado';
  49     $subaccion = (@$_REQUEST['subaccion']) ? $_REQUEST['subaccion'] : null;
  50     $login     = (@$_REQUEST['login'])     ? $_REQUEST['login']     : null;
  51     $filtro    = (@$_REQUEST['filtro'])    ? $_REQUEST['filtro']    : null;
  52 //}}}
  53
  54 //Creo la tabla volver {{{
  55     $T_VOLVER     =& new HTML_Table('width="760"');
  56     $IMG_VOLVER   =& new MECON_HTML_Image('/MECON/images/general_anterior.gif');
  57     $LINK_VOLVER  =& new MECON_HTML_Link('', $IMG_VOLVER);
  58 //}}}
  59
  60 //Filtrar Usuarios {{{
  61 if (@!$accion || $accion == 'filtrar') {
  62     //Creo los objetos necesarios {{{
  63         $FORM =& new MECON_HTML_QuickForm ('usuarios_filtrar','post','usuarios');
  64         $T_USUARIOS = new MECON_HTML_Tabla ('width="400"');
  65         $FORM->renderer->setTable($T_USUARIOS);
  66     //}}}
  67
  68     //Agrego los elementos al form {{{
  69         $FORM->addElement ('header', 'cabecera', 'Filtrar Usuarios');
  70         $f_accion =& $FORM->addElement ('hidden', 'accion', 'listado');
  71         $f_texto =& $FORM->addElement ('text', 'filtro', 'Login@Organismo',
  72                 array('size' => '20'));
  73         $group[] = HTML_QuickForm::createElement('submit', 'filtrar', 'Filtrar');
  74         $FORM->addGroup($group,'botones');
  75     //}}}
  76
  77     //Agrego la informacion al marco {{{
  78         $LINK_VOLVER->setHref('consultas');
  79         $MARCO->addBodyContent($FORM);
  80         $MARCO->addTitle('Ver informacion de los usuarios');
  81         $MARCO->addBodyContent('<BR>');
  82         $T_VOLVER->addRow(array($LINK_VOLVER->toHtml()), 'align="left"');
  83         $MARCO->addBodyContent($T_VOLVER);
  84   //}}}
  85 }
  86 //}}}
  87
  88 //Listado de usuarios filtrados {{{
  89 elseif ($accion == 'listado') {
  90     //Creo los objetos necesarios {{{
  91         $T_USUARIOS  =& new MECON_HTML_Tabla();
  92         $IMG_SEL =& new MECON_HTML_Image('/MECON/images/general_ir4.gif');
  93         $LINK_SEL =& new MECON_HTML_Link('usuarios', $IMG_SEL);
  94     //}}}
  95
  96     //Filtro los usuarios {{{
  97         $usu_res = MECON_Usuario::filtrarUsuarios($DB, $filtro, null);
  98         while ($usu_res->fetchInto($row)){
  99             $usu[$row['login']] = $row['nombre'];
 100         }
 101     //}}}
 102
 103     //Armo la tabla de Usuarios {{{
 104         $T_USUARIOS->addRow(array('Listado de Usuarios'), 'colspan="4" cabecera
 105                 align="left"');
 106         $T_USUARIOS->addRow(array('Login', 'Nombre', 'Dependencia', 'Sel.'), 'titulo');
 107         foreach ($usu as $key => $value) {
 108             $u =& new MECON_Usuario(null, $key);
 109             //BUSCO EL NOMBRE DE LA DEPENDENCIA {{{
 110             $depen = MECON_Dependencia::buscarPorCodigo ($DB, $u->getCodep());
 111             while ($depen->fetchInto($row)){
 112                 $dep = $row['nombre'];
 113             }
 114             //}}}
 115             $LINK_SEL->setGetVars(array('accion'=>'info_usuario', 'login'
 116                         => $key));
 117             $T_USUARIOS->addRow(array($key, $value, $dep, $LINK_SEL->toHtml()));
 118         }
 119     //}}}
 120
 121     //Agrego la informacion al marco {{{
 122         $LINK_VOLVER->setHref('usuarios');
 123         $LINK_VOLVER->setGetVars(array('accion' => 'filtrar'));
 124         $MARCO->addBodyContent($T_USUARIOS);
 125         $MARCO->addTitle('Seleccionar Usuario');
 126         $MARCO->addBodyContent('<BR>');
 127         $T_VOLVER->addRow(array($LINK_VOLVER->toHtml()), 'align="left"');
 128         $MARCO->addBodyContent($T_VOLVER);
 129     //}}}
 130 }
 131 //}}}
 132
 133 //MUESTRO LA INFORMACION {{{
 134     $MARCO->display();
 135     exit;
 136 //}}}
 137
 138 ?>