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