sistema/www/usuarios/usuarios-datos.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 jul 17 16:29:54 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/QuickForm.php';
  26     require_once 'MECON/HTML/Error.php';
  27     //}}}
  28     //SAMURAI {{{
  29     require_once 'SAMURAI/Usuario.php';
  30     //}}}
  31     require_once 'HTML/Image.php';
  32     require_once 'HTML/Page.php';
  33 // }}}
  34
  35 //CREO LOS OBJETOS NECESARIOS {{{
  36     if (!@$_GET['login']) {
  37         $FORM    = new MECON_HTML_Error('No hay un usuario seleccionado');
  38     }
  39     else {
  40         $PAGE    = new HTML_Page(array ('doctype'=>'HTML 4.01 Transitional',
  41                                         'charset'  => 'iso-8859-1',
  42                                         'lineend'  => 'unix',
  43                                         'language' => 'es',
  44                                         'cache'    => 'false',
  45                                         'simple'   => 'true'));
  46         $FORM    = new MECON_HTML_QuickForm ('usuarios_datos','post','usuarios-datos');
  47         $USUARIO = new SAMURAI_Usuario($DB, $_GET['login']);
  48     }
  49 // }}}
  50
  51 //OBTENGO LOS DATOS DE LA BASE {{{
  52     $tmps = SAMURAI_Perfil::getPerfiles($DB, null, $_SESSION['samurai']['id_sistema']);
  53     foreach ($tmps as $tmp) {
  54         $PERFILES[$tmp->getId()] = $tmp->getDescripcion();
  55     }
  56 //}}}
  57
  58 //AGREGO LOS ELEMENTOS AL FORM {{{
  59     $FORM->addElement         ('static', 'login'   , 'Login@Organismo', $USUARIO->getLogin()                      );
  60     $FORM->addElement         ('static', 'nrodoc'  , 'Nro Documento'  , $USUARIO->getNrodoc()                     );
  61     $FORM->addElement         ('static', 'nombre'  , 'Nombre'         , $USUARIO->getNombre()                     );
  62     $perf =& $FORM->addElement('select', 'perfiles', 'Perfiles'       , $PERFILES            , array ('size'=>'5'));
  63     $perf->setSelected($USUARIO->getPerfiles());
  64     $FORM->freeze();
  65 // }}}
  66
  67 //DIBUJO LA PAGINA {{{
  68     $PAGE->addBodyContent($FORM);
  69     $imagen = new HTML_Image('/MECON/images/general_cerrar.gif');
  70     $PAGE->addBodyContent('<a href="" onClick=\'self.close();return false;\'>'.$imagen->toHtml().'</a>');
  71     $PAGE->display();
  72 // }}}
  73 //FIN
  74 ?>