sistema/www/perfiles/perfiles-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/Perfil.php';
  30     require_once 'SAMURAI/Permiso.php';
  31     require_once 'SAMURAI/Sistema.php';
  32     //}}}
  33     require_once 'HTML/Image.php';
  34     require_once 'HTML/Page.php';
  35 // }}}
  36
  37 //CREO LOS OBJETOS NECESARIOS {{{
  38     if (!@$_GET['id_perfil']) {
  39         $FORM    = new MECON_HTML_Error('No hay un perfil seleccionado');
  40     }
  41     else {
  42         $PAGE    = new HTML_Page(array ('doctype'=>'HTML 4.01 Transitional',
  43                                         'charset'  => 'iso-8859-1',
  44                                         'lineend'  => 'unix',
  45                                         'language' => 'es',
  46                                         'cache'    => 'false',
  47                                         'simple'   => 'true'));
  48         $FORM    = new MECON_HTML_QuickForm ('perfil_datos','post','perfil-datos');
  49         $PERFIL  = new SAMURAI_Perfil($DB, $_GET['id_perfil']);
  50         $SISTEMA = new SAMURAI_Sistema ($DB, $_SESSION['samurai']['id_sistema']);
  51     }
  52 // }}}
  53
  54 //OBTENGO LOS PERMISOS DEL SISTEMA {{{
  55     $ASOCIACIONES = $SISTEMA->getAsociaciones();
  56     $PERMISOS = array ();
  57     foreach ($ASOCIACIONES as $as) {
  58         $clave = $as['id'].'##'.$as['obs'];
  59         $texto = ($as['obs'] != '') ? $as['desc'].' - '.$as['obs']: $as['desc'];
  60         $PERMISOS[$clave] = $texto;
  61     }
  62 // }}}
  63 //TRADUZCO EL TIPO DE PERFIL {{{
  64     $TipoPerfil = $PERFIL->getTipo();
  65
  66     switch ($TipoPerfil) {
  67         case 'I':   $TipoPerfil = 'Interno';
  68                     break;
  69         case 'E':   $TipoPerfil = 'Externo';
  70                     break;
  71         case 'D':   $TipoPerfil = 'Dios';
  72                     break;
  73     }
  74 //}}}
  75
  76 //AGREGO LOS ELEMENTOS AL FORM {{{
  77     $FORM->addElement         ('static', 'id_perfil'  , 'Id Perfil'    , $PERFIL->getId()              );
  78     $FORM->addElement         ('static', 'desc_perfil', 'Descricion'   , $PERFIL->getDescripcion()     );
  79     $perf =& $FORM->addElement('select', 'permisos'   , 'Permisos'     , $PERMISOS, array ('size'=>'5'));
  80     $FORM->addElement         ('static', 'tipo_perfil', 'Tipo Perfil'  , $TipoPerfil                   );
  81     $perf->setSelected($PERFIL->getPermisos());
  82     $FORM->freeze();
  83 // }}}
  84
  85 //DIBUJO LA PAGINA {{{
  86     $PAGE->addBodyContent($FORM);
  87     $imagen = new HTML_Image('/MECON/images/general_cerrar.gif');
  88     $PAGE->addBodyContent('<a href="" onClick=\'self.close();return false;\'>'.$imagen->toHtml().'</a>');
  89     $PAGE->setTitle('Datos del Perfil');
  90     $PAGE->display();
  91 // }}}
  92 //FIN
  93 ?>