2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker:
3 // +----------------------------------------------------------------------+
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: mié jul 16 12:51:57 ART 2003
17 // | Author: Martin Marrese <mmarre@mecon.gov.ar>
18 // +----------------------------------------------------------------------+
22 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
23 $SAMURAI_PERM->setSistema(SAMURAI_PERM);
24 if (!$SAMURAI_PERM->tiene(SAMURAI_PERM_DEVELOPER)) {
25 $SAMURAI_PERM->setSistema($_SESSION['samurai']['id_sistema']);
26 $SAMURAI_PERM->chequear(SAMURAI_PERM_USUARIO_ALTA, SAMURAI_PERM_USUARIO_BAJA, SAMURAI_PERM_USUARIO_MODIF, SAMURAI_PERM_DEVELOPER);
28 $MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
32 require_once 'SAMURAI/Sistema.php';
33 require_once 'MECON/HTML/Image.php';
34 require_once 'MECON/HTML/TablaDB.php';
35 require_once 'SAMURAI/Usuario.php';
38 //VEO SI HAY QUE ELEGIR EN QUE SISTEMA TRABAJAR {{{
39 if (!@$_SESSION['samurai']['id_sistema']) {
40 header('Location: ./../sel-sistema?redirect=usuarios/usuarios');
44 //VIÑETA CON EL SISTEMA EN EL CUAL SE ESTA TRABAJANDO {{{
45 $SISTEMA =& new SAMURAI_Sistema($DB, $_SESSION['samurai']['id_sistema']);
46 $tmp =& new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif', '>>');
47 $VINETA = '<div align="left">'. $tmp->toHTML() .' <b>SISTEMA: '.
48 $SISTEMA->getNombre().'</b></div>';
51 //OBTENGO LA INFORMACION DE LOS USUARIOS {{{
52 $res = SAMURAI_Usuario::getUsuariosPager($DB, $_SESSION['samurai']['id_sistema']);
55 //CREO LA TABLA DE USUARIOS {{{
56 $TABLA =& new MECON_HTML_TablaDB ('Usuarios');
60 'usuarios-abm', 'Nuevo Usuario',
62 'accion' => '##ACCION##',
63 '_login' => '##NUEVO##'
70 './../sel-sistema?redirect=usuarios/usuarios',
71 'Seleccionar otro sistema para trabajar'
76 //Agrego las columnas de modificacion y eliminacion {{{
77 $link = new MECON_HTML_Link ('usuarios-abm', null, array('accion' => 'm'));
78 if ($SAMURAI_PERM->tiene(SAMURAI_PERM_USUARIO_MODIF)) {
79 $TABLA->addRowsIcon('modificar', 'login', $link);
81 if ($SAMURAI_PERM->tiene(SAMURAI_PERM_USUARIO_BAJA)) {
82 $link->setGetVar('accion', 'e');
83 $TABLA->addRowsIcon('eliminar', 'login', $link);
87 $TABLA->addRow(array('Login', 'Nombre', 'Modif.', 'Elimn.'), 'cabecera');
88 $pager = $TABLA->addPager($res, null, new MECON_HTML_Link ('usuarios', null), 25);
89 $TABLA->addRows($pager, array ('login', 'nombre'));
92 //DIBUJO LA PAGINA {{{
93 $MARCO->addBody($VINETA);
94 $MARCO->addBody($TABLA);