sistema/www/usuarios/usuarios-abm.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:  mié jul 16 13:37:33 ART 2003
  17 // | Author:  Martin Marrese <mmarre@mecon.gov.ar>
  18 // +----------------------------------------------------------------------+
  19 //
  20 // $Id$
  21 //
  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);
  27 }
  28 $MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
  29 //}}}
  30
  31 //XXX OBTENGO LA ACCION {{{
  32 switch ($_REQUEST['accion']) {
  33     case 'm':
  34         $b_accion = 'Modificar';
  35         $accion = 'm';
  36         break;
  37     case 'e':
  38         $b_accion = 'Eliminar';
  39         $accion = 'e';
  40         break;
  41     default:
  42         $b_accion = 'Grabar';
  43         $accion = '';
  44         break;
  45 }
  46 //}}}
  47 //REQUIRE ONCE {{{
  48     //MECON {{{
  49     require_once 'MECON/HTML/QuickForm.php';
  50     require_once 'MECON/HTML/Tabla.php';
  51     require_once 'MECON/HTML/Error.php';
  52     //}}}
  53     //SAMURAI {{{
  54     require_once 'SAMURAI/Perfil.php';
  55     require_once 'SAMURAI/Usuario.php';
  56     require_once 'SAMURAI/Sistema.php';
  57     //}}}
  58     require_once 'MECON/HTML/Image.php';
  59 // }}}
  60 //VEO SI HAY QUE ELEGIR EN QUE SISTEMA TRABAJAR {{{
  61 if (!@$_SESSION['samurai']['id_sistema']) {
  62     header('Location: ./../sel-sistema?redirect=usuarios/usuarios');
  63 }
  64 // }}}
  65 //CREO LOS OBJETOS NECESARIOS {{{
  66     if (@$_GET['login']) {
  67         $login = $_GET['login'];
  68         $validar = 0;
  69     }
  70     else {
  71         $validar = 1;
  72         $login = null;
  73     }
  74
  75
  76     $TABLA   = new MECON_HTML_Tabla ('cellspacing=0');
  77     $FORM    = new MECON_HTML_QuickForm ('usuarios_abm','post','usuarios-abm');
  78     $FORM->renderer->updateAttributes('width="400"');
  79     $SISTEMA = new SAMURAI_Sistema($DB, $_SESSION['samurai']['id_sistema']);
  80     $USUARIO = new SAMURAI_Usuario($DB, $login, $_SESSION['samurai']['id_sistema']);
  81 // }}}
  82 //OBTENGO LOS DATOS DE LA BASE {{{
  83     $tmps = SAMURAI_Perfil::getPerfiles($DB, null, $_SESSION['samurai']['id_sistema']);
  84     foreach ($tmps as $tmp) {
  85         $PERFILES[$tmp->getId()] = $tmp->getDescripcion();
  86     }
  87 //}}}
  88 //AGREGO LOS DATOS A LAS TABLAS {{{
  89     $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
  90     $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
  91     $TABLA->addRow($row,'align=left');
  92 //}}}
  93 //AGREGO LOS ELEMENTOS DEL FORM {{{
  94     if (@$PERFILES) {
  95         $FORM->addElement ('header', 'cabecera'   , 'ABM Usuarios');
  96         if ($login) { //Si esta el login solo permito modificar los perfiles asociados
  97             $FORM->addElement ('static', 'login2', 'Login@Organismo' , $login );
  98             $FORM->addElement ('hidden', 'login' , $login );
  99             $FORM->addElement ('static', 'nombre', 'Nombre', $USUARIO->getNombre());
 100         }
 101         else {
 102             $FORM->addElement ('text'  , 'login' , 'Login@Organismo' , array( 'value' => $login , 'size' => '20'));
 103         }
 104         $FORM->addElement ('select', 'perfiles'   , 'Perfiles', $PERFILES, array('size' => '5', 'multiple' => 'true'));
 105         $FORM->addElement ('hidden', 'responsable', $_SESSION['usuario']);
 106         $FORM->addElement ('hidden', 'accion', $accion);
 107         $group[] = HTML_QuickForm::createElement('submit', 'aceptar', $b_accion);
 108         $group[] = HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar', array ('onClick' => 'javascript:window.location = \'usuarios\';return false;'));
 109         $FORM->addGroup($group,'botones');
 110     }
 111     else {
 112         $ERROR = new MECON_HTML_Error('El sistema no posee perfiles.');
 113     }
 114 // }}}
 115 //AGREO LAS REGLAS DE VALIDACION {{{
 116     if (@$PERFILES) {
 117         if (@$validar) {
 118             $FORM->addRule ('login', 'Se debe ingresar el login del usuario', 'required');
 119         }
 120         $FORM->addRule ('perfiles', 'Se debe seleccionar al menos un perfil', 'required');
 121     }
 122 // }}}
 123 //SETEO LOS PERFILES SELECCIONADOS {{{
 124     if (isset($_GET['accion']) && $_GET['accion'] != '') {
 125         $perfiles =& $FORM->getElement  ('perfiles');
 126         $group    =& $FORM->getElement  ('botones' );
 127         $group    =& $group->getElements('aceptar' );
 128         $aceptar  =& $group[0];
 129
 130         $perfiles->setSelected($USUARIO->getPerfiles());
 131
 132         //Modifico el valor del boton
 133         $aceptar->setValue('Modificar');
 134
 135         //ELIMINACION -> modifico el valor del boton
 136         if ($_GET['accion'] == 'e') {
 137             $aceptar->updateAttributes(array ('onClick' => 'javascript:if (confirm(\'¿Esta Seguro?\')) return true;return false;'));
 138             $aceptar->setValue('Eliminar');
 139             $FORM->freeze();
 140         }
 141     }
 142 // }}}
 143 //VALIDO EL FORMULARIO {{{
 144     if ($FORM->validate()) {
 145         // VEO SI SE CANCELO {{{
 146         $botones = $FORM->getSubmitValue('botones');
 147         if (@$botones['cancelar']) {
 148             header('Location: usuarios');
 149         }
 150         // }}}
 151         else {
 152             $login2   =& $FORM->getElement  ('login'   );
 153             $nombre   =& $FORM->getElement  ('nombre'  );
 154             $perfiles =& $FORM->getElement  ('perfiles');
 155             $group    =& $FORM->getElement  ('botones' );
 156             $group    =& $group->getElements('aceptar' );
 157             $aceptar  =& $group[0];
 158             $res = '';
 159
 160             if ($login) {
 161                 $login3 = $login2->_text;
 162             }
 163             else {
 164                 $login3 = $login2->getValue();
 165             }
 166             $USUARIO->setLogin($login3);
 167
 168             $res  = $USUARIO->verificarLogin();
 169             if ($aceptar->getValue() == 'Grabar') {
 170                 $res2 = $USUARIO->verificarAsociacionExistente();
 171             }
 172             if (@PEAR::isError($res)) {
 173                 $ERROR = new MECON_HTML_Error($res->getMessage());
 174             }
 175             elseif (@PEAR::isError($res2)) {
 176                 $ERROR =new MECON_HTML_Error($res2->getMessage());
 177             }
 178             else {
 179                 $USUARIO->setPerfiles($perfiles->getSelected());
 180
 181                 $res = $USUARIO->guardarDatos($aceptar->getValue());
 182
 183                 if (PEAR::isError($res)) {
 184                     $ERROR = new MECON_HTML_Error($res->getMessage());
 185                     if ($aceptar->getValue() == 'Eliminar') {
 186                         $FORM->freeze();
 187                     }
 188                 }
 189                 else {
 190                     $FORM->freeze();
 191                     header('Location: usuarios');
 192                 }
 193             }
 194         }
 195     }
 196 // }}}
 197 //DIBUJO LA PAGINA {{{
 198     $MARCO->addBody($TABLA);
 199     if (isset($ERROR)) {
 200         $MARCO->addBody($ERROR);
 201     }
 202     $MARCO->addBody($FORM);
 203     $MARCO->display();
 204 // }}}
 205 //FIN
 206 ?>