]> git.llucax.com Git - mecon/samurai.git/blob - lib/SAMURAI/HTML/Perfil.php
Se agrego la funcionalidad para embeber el abm de usuarios en cualquier sistema externo.
[mecon/samurai.git] / lib / SAMURAI / HTML / Perfil.php
1 <?php 
2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker textwidth=80:
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: mar ago 26 13:18:26 ART 2003
17 // | Author:  Martin Marrese <mmarre@mecon.gov.ar>
18 // +----------------------------------------------------------------------+
19 //
20 // $Id$
21 //
22
23 //require_once 'MECON/general.php';
24 //prepend_include_path('/home/mmarrese/public_html/meconlib/lib/');
25
26 //REQUIRE ONCE GENERALES {{{
27 require_once 'SAMURAI/DB.php';
28 require_once 'SAMURAI/Perm.php';
29 require_once 'SAMURAI/constantes.php';
30 require_once 'SAMURAI/Perfil.php';
31 require_once 'SAMURAI/Sistema.php';
32 require_once 'SAMURAI/Permiso.php';
33 require_once 'MECON/HTML/Tabla.php';
34 require_once 'MECON/HTML/QuickForm.php';
35 require_once 'MECON/HTML/Error.php';
36 require_once 'MECON/HTML/Image.php';
37 require_once 'PEAR.php';
38 // }}}
39
40 // Funciones para agregar la seccion SAMURAI_Perfil en los sistemas.
41 // Con esto se pueden embeber el abm de perfiles como una seccion/subseccion mas
42 // de un sistema cualquiera.
43 // Es necesario para que funcione que se haya realizado un session_start()
44 // antes, por ejemplo en el prepend.
45
46     /**
47      * Funcion que se encarga agregar los componentes necesarios al sistema para que
48      * se pueda realizar un abm de perfiles.
49      * Sin los parametros no funciona
50      *
51      * @param MECON_Marco &$MARCO      Referencia al objeto MECON_Marco que se este utilizando en la pagina
52      * @param int          $id_sistema Identificador del sistema en el cual se esta trabajando
53      *
54      * @return void
55      */
56 //SAMURAI_Perfil_Html {{{
57 function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
58
59     //INICIALIZO OBJETOS GENERALES {{{
60     //REALIZO CONEXION
61     $tmp = new SAMURAI_DB();
62     $DB  =& $tmp->connect();
63     //CREAR EL OBJETO SAMURAI_Perm
64     $SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['usuario'], $id_sistema, $DB);
65     //}}}
66
67     //POSIBLES ACCIONES
68     // listado -> Listado de los perfiles ya creados en el sistema.
69     // nuevo   -> Pantalla de seleccion o de ingreso de un nuevo nombre.
70     // abm     -> Formulario para la carga de la info del perfil.
71
72     //LISTADO {{{
73     if ((!@$_GET['samurai_perfiles'] && !@$_POST['samurai_accion'])|| @$_GET['samurai_perfiles'] == 'listado') {
74         //VEO SI PUEDE ACCEDER{{{
75         $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL,SAMURAI_BAJA_PERFIL,SAMURAI_MODI_PERFIL);
76         //}}}
77         //LINKS {{{
78             $aHref      = '<a href="'.$_SERVER['PHP_SELF'].'?accion=##ACCION##&id_perfil=##NUEVO##&samurai_perfiles=abm">';
79             $aHrefModif = $aHref.'<img src="/MECON/images/general_modificar.gif" border="0" alt="Modificar Perfil"></a>';
80             $aHrefElim  = $aHref.'<img src="/MECON/images/general_eliminar.gif"  border="0" alt="Eliminar Perfil" ></a>';
81         // }}}
82         //CREO LOS OBJETOS NECESARIOS {{{
83             $TABLA2  =& new MECON_HTML_Tabla ('cellspacing=0');
84             $TABLA   =& new MECON_HTML_Tabla ('cellpadding=2');
85             $TABLA3  =& new MECON_HTML_Tabla ('cellspacing=0');
86             $SISTEMA =& new SAMURAI_Sistema($DB, $id_sistema);
87         // }}}
88         //OBTENGO LA INFORMACION DE LA BASE {{{
89             $perfiles = SAMURAI_Perfil::getPerfiles($DB, null, $id_sistema);
90         // }}}
91         //AGREGO LOS DATOS A LAS TABLAS {{{
92             $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
93             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
94             $TABLA3->addRow($row,'align=left'); 
95
96             //Agrego el link a nuevo
97             if ($SAMURAI_PERM->tiene(SAMURAI_ALTA_PERFIL)) {
98                 $row   = array ('<a href="'.$_SERVER['PHP_SELF'].'?samurai_perfiles=nuevo"><img src="/MECON/images/general_nuevo.gif" border="0">Ingresar&nbsp;Nuevo&nbsp;Perfil</a>');
99                 $TABLA2->addRow($row,'align=right');    
100             }
101
102             //Genero la cabecera de la tabla
103             $row   = array ('Id','Descripcion');
104             if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
105                 $row[] = 'Tipo';
106             }    
107             if ($SAMURAI_PERM->tiene(SAMURAI_MODI_PERFIL)) {
108                 $row[] = 'Modif.';
109             }    
110             if ($SAMURAI_PERM->tiene(SAMURAI_BAJA_PERFIL)) {
111                 $row[] = 'Elim.';
112             }    
113             
114             $TABLA->addRow($row,'cabecera');
115             foreach ($perfiles as $perfil) {
116                 $Modif = ereg_replace('##NUEVO##' , $perfil->getId(), $aHrefModif);
117                 $Elim  = ereg_replace('##NUEVO##' , $perfil->getId(), $aHrefElim );
118                 $Modif = ereg_replace('##ACCION##', 'm'             , $Modif     );
119                 $Elim  = ereg_replace('##ACCION##', 'e'             , $Elim      );
120                 $row = array ($perfil->getId(), $perfil->getDescripcion());
121                 
122                 if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
123                     $row[] = $perfil->getTipo();
124                 }    
125                 if ($SAMURAI_PERM->tiene(SAMURAI_MODI_PERFIL)) {
126                     $row[] = $Modif;
127                 }    
128                 if ($SAMURAI_PERM->tiene(SAMURAI_BAJA_PERFIL)) {
129                     $row[] = $Elim;
130                 }    
131                 $TABLA->addRow($row);
132             }
133         // }}}
134         //AGREGO LA INFO AL MARCO {{{
135             $MARCO->addBody($TABLA3);
136             $MARCO->addBody($TABLA2->toHtml(1));
137             $MARCO->addBody($TABLA);
138         //}}}
139     }
140     //}}}
141     //NUEVO {{{
142     elseif (@$_GET['samurai_perfiles'] == 'nuevo' || @$_POST['samurai_accion'] == 'nuevo') {
143         //VEO SI PUEDE ACCEDER{{{
144         $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL);
145         //}}}
146         //CREO LOS OBJETO NECESARIOS {{{
147             $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);
148             $SISTEMA =& new SAMURAI_Sistema ($DB, $id_sistema);
149         // }}}
150         //AGREGO LOS ELEMENTOS DEL FORM {{{
151             $FORM->addElement ('hidden', 'samurai_accion', 'nuevo');
152             $FORM->addElement ('header', 'cabecera'   , 'Nuevo Perfil');
153             $FORM->addElement ('select', 'perfiles'   , 'Perfiles', '', array('size' => '1'));
154             $FORM->addElement ('text'  , 'filtro'     , 'Filtrar' , array('size' => '50'));
155             $FORM->addElement ('text'  , 'descripcion', 'Nombre'  , array('size' => '50'));
156             $group[] = HTML_QuickForm::createElement('submit', 'continuar', 'Continuar');
157             $group[] = HTML_QuickForm::createElement('submit', 'filtrar'  , 'Filtrar'  );
158             $group[] = HTML_QuickForm::createElement('submit', 'cancelar' , 'Cancelar', array ('onClick' => 'javascript:window.location =\''.$_SERVER['PHP_SELF'].'\';return false;') );
159             $FORM->addGroup($group,'botones');
160         // }}}
161         //RESTRINJO EL FORMATO DEL NOMBRE DEL PERFIL{{{
162             $FORM->addRule ('descripcion', 'El nombre del perfil solo puede contener letras y/o numeros.', 'regex','/^[a-zA-Z0-9 ]+$/');
163         // }}}
164         // CARGO LA INFORMACION EN EL SELECT DE PERFILES {{{
165             $botones     = $FORM->getSubmitValue('botones');
166             $perfiles    =& $FORM->getElement('perfiles');
167             $descripcion =& $FORM->getElement('descripcion');
168             if (@$botones['cancelar']) {
169                 header('Location: '.$_SERVER['PHP_SELF']);
170             }
171             if (!isset($botones['filtrar'])) {
172                 $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB);
173             }
174             elseif (@$botones['filtrar']) {
175                 $filtro   =& $FORM->getElement('filtro'); 
176                 $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB, $filtro->getValue());
177             }
178             $perfiles->addOption('--', '--');
179             $perfiles->loadArray($PERFILES);
180         // }}}
181         // VALIDO EL FORMULARIO {{{
182             if ($FORM->validate()) {
183                 if (@$botones['continuar']) { //Ya selecciono un nombre para el perfil
184                     $res = '';
185                     $tmp = $perfiles->getSelected();
186                     if ((!@$descripcion->getvalue() && $tmp['0'] == '--') || ($descripcion->getvalue() && $tmp['0'] != '--')) {
187                         $res = new PEAR_Error("Debe seleccionar un perfil del combo o ingresar un nombre en la casilla correspondiente.<br>
188                                                Solo una de las dos opciones.");
189                         @$descripcion->setValue('');
190                     }
191                     elseif ($tmp['0'] != '--') {
192                         //verificar que el sistema no tenga una asociacion con ese perfil
193                         if (SAMURAI_Perfil::existeAsociacion($DB, $tmp['0'], $id_sistema)) {
194                             $res = new PEAR_Error("El sistema ya tiene asociado el perfil seleccionado, 
195                                                    modifique sus permisos desde la seccion perfiles.");
196                         }
197                         else {
198                             header('Location: '.$_SERVER['PHP_SELF'].'?samurai_perfiles=abm&id_perfil='.$tmp['0']);
199                         }
200                     }
201                     elseif ($descripcion->getValue()) {
202                         //Verificar que no exista un perfil con la misma descripcion
203                         //Reduzco los blancos
204                         $temp = $descripcion->getValue();
205                         $tt = split (' ', $temp);
206                         $rta = ''; 
207                         foreach ($tt as $t) {
208                             if ($t != '') {
209                                 $rta.= $t.' ';
210                             }
211                         }
212                         $rta = rtrim($rta);
213                         // 
214                         if (SAMURAI_Perfil::existePerfil($DB, $rta)) {
215                             $res = new PEAR_Error("Ya existe un perfil con ese nombre, seleccionelo del combo.<br>
216                                                    Recuerde que varios espacios se reduciran a uno solo 
217                                                    (Ej: Agregar&nbsp;&nbsp;&nbsp;&nbsp; Usuario -> Agregar Usuario)");
218                         }
219                         else {
220                             $temp = ereg_replace(' ' , '%20', $rta); //Cambio los espacios por %20 para que no chille el netscape
221                             header('Location: '.$_SERVER['PHP_SELF'].'?samurai_perfiles=abm&desc_perfil='.$temp);
222                         }
223                     }
224                     if (PEAR::isError($res)) {
225                         $TABLA = new MECON_HTML_Tabla ('cellspacing=0');
226                         $row = array ('<font color="red"><b>'.$res->getMessage().'</b></font>');
227                         $TABLA->addRow($row,'align=left');
228                     }
229                 } 
230             }
231         // }}}
232         //AGREGO LA INFO AL MARCO {{{
233         //AGREGO LOS DATOS A LAS TABLAS {{{
234             $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
235             $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
236             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
237             $TABLA3->addRow($row,'align=left');    
238         //}}} 
239             $MARCO->addBody($TABLA3);
240             if (isset($TABLA)) {
241                 $MARCO->addBody($TABLA);
242             }
243             $MARCO->addBody($FORM);
244         //}}}
245     }
246     //}}}
247     //ABM {{{
248     elseif (@$_GET['samurai_perfiles'] == 'abm' || @$_POST['samurai_accion'] == 'abm') {
249         //VEO SI PUEDE ACCEDER{{{
250         $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL,SAMURAI_BAJA_PERFIL,SAMURAI_MODI_PERFIL);
251         //}}}
252         //CREO LOS OBJETO NECESARIOS {{{
253             if (@$_GET['id_perfil']) {
254                 $id_perfil = $_GET['id_perfil'];
255             }
256             elseif (@$_POST['id_perfil']) {
257                 $id_perfil = $_POST['id_perfil'];
258             }
259             else {
260                 $id_perfil = null;
261             }
262             $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);
263             $SISTEMA =& new SAMURAI_Sistema ($DB, $id_sistema);
264             $PERFIL  =& new SAMURAI_Perfil ($DB, $id_perfil);
265
266             if ($PERFIL->getResponsable()) {
267                 $responsable = $PERFIL->getResponsable();
268             }
269             else {
270                 $responsable = $_SESSION['usuario'];
271             }
272             
273             if (!@$_GET['id_perfil']) {
274                 if (@$_GET['desc_perfil']) {
275                     $PERFIL->setDescripcion(@$_GET['desc_perfil']);
276                 }
277                 else {
278                     $PERFIL->setDescripcion(@$_POST['desc_ant']);
279                 }
280             }
281             $descripcion = $PERFIL->getDescripcion();
282         // }}}
283         //OBTENGO LOS PERMISOS DEL SISTEMA {{{
284             $ASOCIACIONES = $SISTEMA->getAsociaciones();
285             $PERMISOS = array ();
286             foreach ($ASOCIACIONES as $as) {
287                 $clave = $as['id'].'##'.$as['obs'];
288                 $texto = ($as['obs'] != '') ? $as['desc'].' - '.$as['obs']: $as['desc'];
289                 $PERMISOS[$clave] = $texto;
290             }
291         // }}}
292         //AGREGO LOS ELEMENTOS DEL FORM {{{
293             if (@$PERMISOS) {
294                 $FORM->addElement ('hidden', 'samurai_accion', 'abm');
295                 $FORM->addElement ('header', 'cabecera', 'ABM Perfiles');
296                 $FORM->addElement ('hidden', 'id_perfil', $id_perfil);
297                 $FORM->addElement ('hidden', 'desc_ant'   , $descripcion);
298                 $FORM->addElement ('static', 'desc_perfil', 'Descripcion', $descripcion);
299                 $FORM->addElement ('select', 'permisos'   , 'Permisos'   , $PERMISOS, array('size' => '5', 'multiple' => 'true'));
300                 if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
301                     $FORM->addElement ('select', 'tipo_perfil', 'Tipo Perfil', array('E' => 'Externo', 'I' => 'Interno', 'D' => 'Dios'), array ('size' => '1'));
302                 }
303                 $FORM->addElement ('hidden', 'responsable', $responsable);
304                 $group[] = HTML_QuickForm::createElement('submit', 'aceptar' , 'Grabar');
305                 $group[] = HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar', array ('onClick' => 'javascript:window.location=\''.$_SERVER['PHP_SELF'].'\';return false;'));
306                 $FORM->addGroup($group,'botones');
307             }
308             else {
309                 $ERROR = new MECON_HTML_Error('El sistema no posee permisos asociados.');
310             }
311         // }}}
312         //AGREGO LAS REGLAS DE VALIDACION {{{
313             $FORM->addRule ('permisos', 'Se debe seleccionar al menos un permiso', 'required');
314         // }}}
315         //CARGO LOS DATOS SI YA EXISTEN EN BASE {{{
316             if (isset($_GET['accion']) && $_GET['accion'] != '') {
317                 //MODIFICACION
318                 $id_perfil    =& $FORM->getElement  ('id_perfil'  );
319                 $desc_perfil  =& $FORM->getElement  ('desc_perfil');
320                 $permisos     =& $FORM->getElement  ('permisos'   );
321                 
322                 if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
323                     $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
324                 }
325                 $responsable  =& $FORM->getElement  ('responsable');
326                 $group        =& $FORM->getElement  ('botones'    );
327                 $group        =& $group->getElements('aceptar'    );
328                 $aceptar      =& $group[0];
329
330                 $permisos->setSelected($PERFIL->getPermisos());
331                 
332                 if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
333                     $tipo_perfil->setSelected($PERFIL->getTipo());
334                 }
335
336                 if ($PERFIL->getResponsable() != '') {
337                     $responsable->setValue($PERFIL->getResponsable());
338                 }
339
340                 //Modifico el valor del boton
341                 $aceptar->setValue('Modificar');
342                     
343                 //ELIMINACION -> modifico el valor del boton
344                 if ($_GET['accion'] == 'e') {
345                     $aceptar->setValue('Eliminar');
346                     $aceptar->updateAttributes(array ('onClick' => 'javascript:if (confirm(\'¿Esta Seguro?\')) return true;return false;'));
347                     $FORM->freeze();
348                 }
349             }
350         // }}}
351         //VALIDO EL FORMULARIO {{{
352             if ($FORM->validate()) {
353                 // VEO SI SE CANCELO {{{
354                 $botones = $FORM->getSubmitValue('botones');
355                 if (@$botones['cancelar']) {
356                     header('Location: '.$_SERVER['PHP_SELF']);
357                 }
358                 // }}}
359                 else {
360                     $id_perfil    =& $FORM->getElement  ('id_perfil'  );
361                     $desc_perfil  =& $FORM->getElement  ('desc_perfil');
362                     $permisos     =& $FORM->getElement  ('permisos'   );
363                     
364                     if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
365                         $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
366                         $tipo_perfil_tmp  =  $tipo_perfil->getSelected();
367                     }
368                     $responsable  =& $FORM->getElement  ('responsable');
369                     $group        =& $FORM->getElement  ('botones'    );
370                     $group        =& $group->getElements('aceptar'    );
371                     $aceptar      =& $group[0];
372               
373                     $PERFIL->setDescripcion($desc_perfil->_text     );
374                     $PERFIL->setResponsable($responsable->getValue());
375                     $PERFIL->setPermisos   ($permisos->getSelected()); //Le asigno al perfil los permisos seleccionados
376                     
377                     if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
378                         $PERFIL->setTipo       ($tipo_perfil_tmp['0']   );
379                     }
380                     
381                     //Grabo y verifico si se produjo algun error
382                     $res = $PERFIL->guardarDatos($aceptar->getValue());
383
384                     if (PEAR::isError($res)) {
385                         $ERROR = new MECON_HTML_Error($res->getMessage());
386                         if ($aceptar->getValue() == 'Eliminar') {
387                             $FORM->freeze();
388                         }
389                     }
390                     else {
391                         $FORM->freeze();
392                         header('Location: '.$_SERVER['PHP_SELF']);
393                     }
394                 }
395             }
396         // }}}
397         //DIBUJO LA PAGINA {{{
398             $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
399             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
400             $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
401             $TABLA3->addRow($row,'align=left');    
402
403             $MARCO->addBody($TABLA3);
404             if (isset($ERROR)) {
405                 $MARCO->addBody($ERROR);
406             }
407             $MARCO->addBody($FORM);
408     //}}}
409     }
410     //}}}
411 }
412 ?>