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 /** \page page_samurai_html_perfil Perfil Embebido
  24
  25 \section page_samurai_html_perfil_descripcion Descripcion
  26     Samurai provee de una funcion que permite embeber la funcionalidad de
  27     perfiles dentro de aquellos sistemas que asi lo requieran.
  28     Es completamente independiente del sistema en el cual trabaja y puede ser
  29     agregado de cualquier manera (Seccion, Subseccion o Contenido) al sistema.
  30
  31     \note Es necesario para embeber los perfiles que se haya realizado un
  32     session_start().
  33
  34 \section page_samurai_html_perfil_funcionamiento Funcionamiento
  35     Es una copia de la seccion Perfiles dentro de SAMURAI. Se relizan las mismas
  36     verificaciones, tiene las mismas condiciones y se utilizan los mismos
  37     permisos que en este.
  38
  39     \subsection page_samurai_html_perfil_funcionamiento_validaciones Validaciones y Condiciones
  40         - Los espacios entre las palabras que componen el nombre de un
  41           perfil son eliminados. Ej: Agregar&nbsp;&nbsp;&nbsp;&nbsp;Usuario
  42           se cambia por Agregar Usuario.
  43         - Es obligatorio que los perfiles contengan al menos un permiso.
  44         - No puede haber dos perfiles con los mismos permisos.
  45         - No se pueden borrar perfiles que esten asociados a usuarios.
  46         - No se pueden ingresar pefiles nuevos que ya esten cargados.
  47
  48 \section page_samurai_html_perfil_ejemplo Ejemplo
  49     SAMURAI_HTML_Perfil agrega el contenido directamente en el marco que se este
  50     utilizando.
  51     Para embeber los perfiles hay que hacerlo de la siguiente manera
  52
  53     \code
  54     include 'SAMURAI/HTML/Perfil.php';
  55     SAMURAI_HTML_Perfil($MARCO, $ID_SISTEMA);
  56     \endcode
  57
  58     \note $MARCO es el objeto MECON_Marco o el objeto HTML_DietMarco de
  59     intranet.
  60     $ID_SISTEMA es el identificador numerico en el cual se esta realizando la
  61     accion de embeber.
  62
  63 \section page_samurai_html_perfil_permisos Pasos Finales
  64     Para que los usuarios puedan acceder a los perfiles embebidos es necesario
  65     que en el sistema en el cual se este embebiendo se agregen los permisos que
  66     utiliza la seccion Perfiles (enumerados mas abajo), y que estos mediante
  67     perfiles se asignen a usuarios.
  68     Esto implica que por lo menos un usuario tendra que ser cargado desde
  69     SAMURAI para que este tenga acceso a la zona embebida.
  70
  71     Permisos
  72         - perfil alta
  73         - perfil baja
  74         - perfil modificacion
  75         - perfil tipo
  76 */
  77
  78 //REQUIRE ONCE {{{
  79 require_once 'SAMURAI/DB.php';
  80 require_once 'SAMURAI/Perm.php';
  81 require_once 'SAMURAI/constantes.php';
  82 require_once 'SAMURAI/Perfil.php';
  83 require_once 'SAMURAI/Sistema.php';
  84 require_once 'SAMURAI/Permiso.php';
  85 require_once 'MECON/HTML/Tabla.php';
  86 require_once 'MECON/HTML/QuickForm.php';
  87 require_once 'MECON/HTML/Error.php';
  88 require_once 'MECON/HTML/Image.php';
  89 require_once 'PEAR.php';
  90 // }}}
  91
  92 /**
  93  * Funcion que se encarga agregar los componentes necesarios al sistema para
  94  * que se pueda realizar un abm de perfiles.
  95 @see \ref page_samurai_html_perfil
  96  *
  97  * @param MECON_Marco &$MARCO      Referencia al objeto MECON_Marco que se este utilizando en la pagina
  98  * @param int          $id_sistema Identificador del sistema en el cual se esta trabajando
  99  *
 100  * @return void
 101  */
 102 //SAMURAI_HTML_Perfil {{{
 103 function SAMURAI_HTML_Perfil(&$MARCO, $id_sistema) {
 104
 105     //INICIALIZO OBJETOS GENERALES {{{
 106     //REALIZO CONEXION
 107     $tmp = new SAMURAI_DB();
 108     $DB  =& $tmp->connect();
 109     //CREAR EL OBJETO SAMURAI_Perm
 110     $SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['usuario'], $id_sistema, $DB);
 111     //}}}
 112
 113     if (@$_POST['samurai_accion'] == 'abm' || @$_GET['samurai_perfiles'] == 'abm') {
 114         $OPCION = 'abm';
 115     }
 116     elseif (@$_POST['samurai_accion'] == 'nuevo' || @$_GET['samurai_perfiles'] == 'nuevo') {
 117         $OPCION = 'nuevo';
 118     }
 119     else {
 120         $OPCION = 'listado';
 121     }
 122
 123     //POSIBLES ACCIONES
 124     // listado -> Listado de los perfiles ya creados en el sistema.
 125     // nuevo   -> Pantalla de seleccion o de ingreso de un nuevo nombre.
 126     // abm     -> Formulario para la carga de la info del perfil.
 127
 128     //LISTADO {{{
 129     if ($OPCION == 'listado') {
 130         //VEO SI PUEDE ACCEDER{{{
 131         $SAMURAI_PERM->chequear(SAMURAI_PERM_PERFIL_ALTA,SAMURAI_PERM_PERFIL_BAJA,SAMURAI_PERM_PERFIL_MODIF);
 132         //}}}
 133         //LINKS {{{
 134             $aHref      = '<a href="'.$_SERVER['PHP_SELF'].'?accion=##ACCION##&id_perfil=##NUEVO##&samurai_perfiles=abm">';
 135             $aHrefModif = $aHref.'<img src="/MECON/images/general_modificar.gif" border="0" alt="Modificar Perfil"></a>';
 136             $aHrefElim  = $aHref.'<img src="/MECON/images/general_eliminar.gif"  border="0" alt="Eliminar Perfil" ></a>';
 137         // }}}
 138         //CREO LOS OBJETOS NECESARIOS {{{
 139             $TABLA2  =& new MECON_HTML_Tabla ('cellspacing=0');
 140             $TABLA   =& new MECON_HTML_Tabla ('cellpadding=2');
 141             $TABLA3  =& new MECON_HTML_Tabla ('cellspacing=0');
 142             $SISTEMA =& new SAMURAI_Sistema($DB, $id_sistema);
 143         // }}}
 144         //OBTENGO LA INFORMACION DE LA BASE {{{
 145             $perfiles = SAMURAI_Perfil::getPerfiles($DB, null, $id_sistema);
 146         // }}}
 147         //AGREGO LOS DATOS A LAS TABLAS {{{
 148             $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
 149             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
 150             $TABLA3->addRow($row,'align=left');
 151
 152             //Agrego el link a nuevo
 153             if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_ALTA)) {
 154                 $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>');
 155                 $TABLA2->addRow($row,'align=right');
 156             }
 157
 158             //Genero la cabecera de la tabla
 159             $row   = array ('Id','Descripción');
 160             if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {
 161                 $row[] = 'Tipo';
 162             }
 163             if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_MODIF)) {
 164                 $row[] = 'Modif.';
 165             }
 166             if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_BAJA)) {
 167                 $row[] = 'Elim.';
 168             }
 169
 170             $TABLA->addRow($row,'cabecera');
 171             foreach ($perfiles as $perfil) {
 172                 $Modif = ereg_replace('##NUEVO##' , $perfil->getId(), $aHrefModif);
 173                 $Elim  = ereg_replace('##NUEVO##' , $perfil->getId(), $aHrefElim );
 174                 $Modif = ereg_replace('##ACCION##', 'm'             , $Modif     );
 175                 $Elim  = ereg_replace('##ACCION##', 'e'             , $Elim      );
 176                 $row = array ($perfil->getId(), $perfil->getDescripcion());
 177
 178                 if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {
 179                     $row[] = $perfil->getTipo();
 180                 }
 181                 if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_MODIF)) {
 182                     $row[] = $Modif;
 183                 }
 184                 if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_BAJA)) {
 185                     $row[] = $Elim;
 186                 }
 187                 $TABLA->addRow($row);
 188             }
 189         // }}}
 190         //AGREGO LA INFO AL MARCO {{{
 191             $MARCO->addBodyContent($TABLA3);
 192             $MARCO->addBodyContent($TABLA2->toHtml(1));
 193             $MARCO->addBodyContent($TABLA);
 194         //}}}
 195     }
 196     //}}}
 197     //NUEVO {{{
 198     elseif ($OPCION == 'nuevo') {
 199         //VEO SI PUEDE ACCEDER{{{
 200         $SAMURAI_PERM->chequear(SAMURAI_PERM_PERFIL_ALTA);
 201         //}}}
 202         //CREO LOS OBJETO NECESARIOS {{{
 203             $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);
 204             $SISTEMA =& new SAMURAI_Sistema ($DB, $id_sistema);
 205         // }}}
 206         //AGREGO LOS ELEMENTOS DEL FORM {{{
 207             $FORM->addElement ('hidden', 'samurai_accion', 'nuevo');
 208             $FORM->addElement ('header', 'cabecera'   , 'Nuevo Perfil');
 209             $FORM->addElement ('select', 'perfiles'   , 'Perfiles', null, array('size' => '1'));
 210             $FORM->addElement ('text'  , 'filtro'     , 'Filtrar' , array('size' => '50'));
 211             $FORM->addElement ('text'  , 'descripcion', 'Nombre'  , array('size' => '50'));
 212             $group[] = HTML_QuickForm::createElement('submit', 'continuar', 'Continuar');
 213             $group[] = HTML_QuickForm::createElement('submit', 'filtrar'  , 'Filtrar'  );
 214             $group[] = HTML_QuickForm::createElement('submit', 'cancelar' , 'Cancelar', array ('onClick' => 'javascript:window.location =\''.$_SERVER['PHP_SELF'].'\';return false;') );
 215             $FORM->addGroup($group,'botones');
 216         // }}}
 217         //RESTRINJO EL FORMATO DEL NOMBRE DEL PERFIL{{{
 218             $FORM->addRule ('descripcion', 'El nombre del perfil solo puede contener letras y/o numeros.', 'regex','/^[a-zA-Z0-9 ]+$/');
 219         // }}}
 220         // CARGO LA INFORMACION EN EL SELECT DE PERFILES {{{
 221             $botones     = $FORM->getSubmitValue('botones');
 222             $perfiles    =& $FORM->getElement('perfiles');
 223             $descripcion =& $FORM->getElement('descripcion');
 224             if (@$botones['cancelar']) {
 225                 header('Location: '.$_SERVER['PHP_SELF'].'/');
 226             }
 227             if (!isset($botones['filtrar'])) {
 228                 $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB);
 229             }
 230             elseif (@$botones['filtrar']) {
 231                 $filtro   =& $FORM->getElement('filtro');
 232                 $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB, $filtro->getValue());
 233             }
 234             $perfiles->addOption('--', '--');
 235             $perfiles->loadArray($PERFILES);
 236         // }}}
 237         // VALIDO EL FORMULARIO {{{
 238             if ($FORM->validate()) {
 239                 if (@$botones['continuar']) { //Ya selecciono un nombre para el perfil
 240                     $res = '';
 241                     $tmp = $perfiles->getSelected();
 242                     if ((!@$descripcion->getvalue() && $tmp['0'] == '--') || ($descripcion->getvalue() && $tmp['0'] != '--')) {
 243                         $res = new PEAR_Error("Debe seleccionar un perfil del combo o ingresar un nombre en la casilla correspondiente.<br>Solo una de las dos opciones.");
 244                         @$descripcion->setValue('');
 245                     }
 246                     elseif ($tmp['0'] != '--') {
 247                         //verificar que el sistema no tenga una asociacion con ese perfil
 248                         if (SAMURAI_Perfil::existeAsociacion($DB, $tmp['0'], $id_sistema)) {
 249                             $res = new PEAR_Error("El sistema ya tiene asociado el perfil seleccionado, modifique sus permisos desde la seccion perfiles.");
 250                         }
 251                         else {
 252                             header('Location: '.$_SERVER['PHP_SELF'].'?samurai_perfiles=abm&id_perfil='.$tmp['0']);
 253                         }
 254                     }
 255                     elseif ($descripcion->getValue()) {
 256                         //Verificar que no exista un perfil con la misma descripcion
 257                         //Reduzco los blancos
 258                         $temp = $descripcion->getValue();
 259                         $tt = split (' ', $temp);
 260                         $rta = '';
 261                         foreach ($tt as $t) {
 262                             if ($t != '') {
 263                                 $rta.= $t.' ';
 264                             }
 265                         }
 266                         $rta = rtrim($rta);
 267                         //
 268                         if (SAMURAI_Perfil::existePerfil($DB, $rta)) {
 269                             $res = new PEAR_Error("Ya existe un perfil con ese nombre, seleccionelo del combo.<br> Recuerde que varios espacios se reduciran a uno solo (Ej: Agregar&nbsp;&nbsp;&nbsp;&nbsp; Usuario -> Agregar Usuario)");
 270                         }
 271                         else {
 272                             $temp = ereg_replace(' ' , '%20', $rta); //Cambio los espacios por %20 para que no chille el netscape
 273                             header('Location: '.$_SERVER['PHP_SELF'].'?samurai_perfiles=abm&desc_perfil='.$temp);
 274                         }
 275                     }
 276                     if (PEAR::isError($res)) {
 277                         $TABLA = new MECON_HTML_Tabla ('cellspacing=0');
 278                         $row = array ('<font color="red"><b>'.$res->getMessage().'</b></font>');
 279                         $TABLA->addRow($row,'align=left');
 280                     }
 281                 }
 282             }
 283         // }}}
 284         //AGREGO LA INFO AL MARCO {{{
 285         //AGREGO LOS DATOS A LAS TABLAS {{{
 286             $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
 287             $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
 288             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
 289             $TABLA3->addRow($row,'align=left');
 290         //}}}
 291             $MARCO->addBodyContent($TABLA3);
 292             if (isset($TABLA)) {
 293                 $MARCO->addBodyContent($TABLA);
 294             }
 295             $MARCO->addBodyContent($FORM);
 296         //}}}
 297     }
 298     //}}}
 299     //ABM {{{
 300     elseif ($OPCION == 'abm') {
 301         //VEO SI PUEDE ACCEDER{{{
 302         $SAMURAI_PERM->chequear(SAMURAI_PERM_PERFIL_ALTA,SAMURAI_PERM_PERFIL_BAJA,SAMURAI_PERM_PERFIL_MODIF);
 303         //}}}
 304         //CREO LOS OBJETO NECESARIOS {{{
 305             if (@$_GET['id_perfil']) {
 306                 $id_perfil = $_GET['id_perfil'];
 307             }
 308             elseif (@$_POST['id_perfil']) {
 309                 $id_perfil = $_POST['id_perfil'];
 310             }
 311             else {
 312                 $id_perfil = null;
 313             }
 314             //XXX OBTENGO LA ACCION {{{
 315             switch (@$_REQUEST['accion']) {
 316                 case 'm':
 317                     $b_accion = 'Modificar';
 318                     $accion = 'm';
 319                     break;
 320                 case 'e':
 321                     $b_accion = 'Eliminar';
 322                     $accion = 'e';
 323                     break;
 324                 default:
 325                     $b_accion = 'Grabar';
 326                     $accion = '';
 327                     break;
 328             }
 329             //}}}
 330             $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);
 331             $SISTEMA =& new SAMURAI_Sistema ($DB, $id_sistema);
 332             $PERFIL  =& new SAMURAI_Perfil ($DB, $id_perfil, $id_sistema);
 333
 334             if ($PERFIL->getResponsable()) {
 335                 $responsable = $PERFIL->getResponsable();
 336             }
 337             else {
 338                 $responsable = $_SESSION['usuario'];
 339             }
 340
 341             if (!@$_GET['id_perfil']) {
 342                 if (@$_GET['desc_perfil']) {
 343                     $PERFIL->setDescripcion(@$_GET['desc_perfil']);
 344                 }
 345                 else {
 346                     $PERFIL->setDescripcion(@$_POST['desc_ant']);
 347                 }
 348             }
 349             $descripcion = $PERFIL->getDescripcion();
 350         // }}}
 351         //OBTENGO LOS PERMISOS DEL SISTEMA {{{
 352             $ASOCIACIONES = $SISTEMA->getAsociaciones();
 353             $PERMISOS = array ();
 354             foreach ($ASOCIACIONES as $as) {
 355                 $clave = $as['id'].'##'.$as['obs'];
 356                 $texto = ($as['obs'] != '') ? $as['desc'].' - '.$as['obs']: $as['desc'];
 357                 $PERMISOS[$clave] = $texto;
 358             }
 359         // }}}
 360         //AGREGO LOS ELEMENTOS DEL FORM {{{
 361             if (@$PERMISOS) {
 362                 $FORM->addElement ('hidden', 'samurai_accion', 'abm');
 363                 $FORM->addElement ('header', 'cabecera', 'ABM Perfiles');
 364                 $FORM->addElement ('hidden', 'id_perfil', $id_perfil);
 365                 $FORM->addElement ('hidden', 'desc_ant'   , $descripcion);
 366                 $FORM->addElement ('static', 'desc_perfil', 'Descripción', $descripcion);
 367                 $FORM->addElement ('select', 'permisos'   , 'Permisos'   , $PERMISOS, array('size' => '5', 'multiple' => 'true'));
 368                 if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {
 369                     $FORM->addElement ('select', 'tipo_perfil', 'Tipo Perfil', array('E' => 'Externo', 'I' => 'Interno', 'D' => 'Dios'), array ('size' => '1'));
 370                 }
 371                 $FORM->addElement ('hidden', 'responsable', $responsable);
 372                 $FORM->addElement ('hidden', 'accion', $accion);
 373                 $group[] = HTML_QuickForm::createElement('submit', 'aceptar', $b_accion);
 374                 $group[] = HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar', array ('onClick' => 'javascript:window.location=\''.$_SERVER['PHP_SELF'].'\';return false;'));
 375                 $FORM->addGroup($group,'botones');
 376             }
 377             else {
 378                 $ERROR = new MECON_HTML_Error('El sistema no posee permisos asociados.');
 379             }
 380         // }}}
 381         //AGREGO LAS REGLAS DE VALIDACION {{{
 382             $FORM->addRule ('permisos', 'Se debe seleccionar al menos un permiso', 'required');
 383         // }}}
 384         //CARGO LOS DATOS SI YA EXISTEN EN BASE {{{
 385             if (isset($_GET['accion']) && $_GET['accion'] != '') {
 386                 //MODIFICACION
 387                 $id_perfil    =& $FORM->getElement  ('id_perfil'  );
 388                 $desc_perfil  =& $FORM->getElement  ('desc_perfil');
 389                 $permisos     =& $FORM->getElement  ('permisos'   );
 390
 391                 if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {
 392                     $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
 393                 }
 394                 $responsable  =& $FORM->getElement  ('responsable');
 395                 $group        =& $FORM->getElement  ('botones'    );
 396                 $group        =& $group->getElements('aceptar'    );
 397                 $aceptar      =& $group[0];
 398
 399                 $permisos->setSelected($PERFIL->getPermisos());
 400
 401                 if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {
 402                     $tipo_perfil->setSelected($PERFIL->getTipo());
 403                 }
 404
 405                 if ($PERFIL->getResponsable() != '') {
 406                     $responsable->setValue($PERFIL->getResponsable());
 407                 }
 408
 409                 //Modifico el valor del boton
 410                 $aceptar->setValue('Modificar');
 411
 412                 //ELIMINACION -> modifico el valor del boton
 413                 if ($_GET['accion'] == 'e') {
 414                     $aceptar->setValue('Eliminar');
 415                     $aceptar->updateAttributes(array ('onClick' => 'javascript:if (confirm(\'¿Esta Seguro?\')) return true;return false;'));
 416                     $FORM->freeze();
 417                 }
 418             }
 419         // }}}
 420         //VALIDO EL FORMULARIO {{{
 421             if ($FORM->validate()) {
 422                 // VEO SI SE CANCELO {{{
 423                 $botones = $FORM->getSubmitValue('botones');
 424                 if (@$botones['cancelar']) {
 425                     header('Location: '.$_SERVER['PHP_SELF']);
 426                 }
 427                 // }}}
 428                 else {
 429                     $samurai_accion =& $FORM->getElement('samurai_accion');
 430                     $samurai_accion->setValue('listado');
 431                     $id_perfil    =& $FORM->getElement  ('id_perfil'  );
 432                     $desc_perfil  =& $FORM->getElement  ('desc_perfil');
 433                     $permisos     =& $FORM->getElement  ('permisos'   );
 434
 435                     if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {
 436                         $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
 437                         $tipo_perfil_tmp  =  $tipo_perfil->getSelected();
 438                     }
 439                     $responsable  =& $FORM->getElement  ('responsable');
 440                     $group        =& $FORM->getElement  ('botones'    );
 441                     $group        =& $group->getElements('aceptar'    );
 442                     $aceptar      =& $group[0];
 443
 444                     $PERFIL->setDescripcion($desc_perfil->_text     );
 445                     $PERFIL->setResponsable($responsable->getValue());
 446                     $PERFIL->setPermisos   ($permisos->getSelected()); //Le asigno al perfil los permisos seleccionados
 447
 448                     if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {
 449                         $PERFIL->setTipo($tipo_perfil_tmp['0']);
 450                     }
 451
 452                     //Grabo y verifico si se produjo algun error
 453                     $res = $PERFIL->guardarDatos($aceptar->getValue());
 454
 455                     if (PEAR::isError($res)) {
 456                         $ERROR = new MECON_HTML_Error($res->getMessage());
 457                         if ($aceptar->getValue() == 'Eliminar') {
 458                             $FORM->freeze();
 459                         }
 460                     }
 461                     else {
 462                         $FORM->freeze();
 463                         header('Location: '.$_SERVER ['PHP_SELF'].'/');
 464                         exit;
 465                     }
 466                 }
 467             }
 468         // }}}
 469         //DIBUJO LA PAGINA {{{
 470             $imagen = new MECON_HTML_Image('/MECON/images/vinetas_flecha_doble.gif');
 471             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
 472             $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
 473             $TABLA3->addRow($row,'align=left');
 474
 475             $MARCO->addBodyContent($TABLA3);
 476             if (isset($ERROR)) {
 477                 $MARCO->addBodyContent($ERROR);
 478             }
 479             $MARCO->addBodyContent($FORM);
 480     //}}}
 481     }
 482     //}}}
 483 }
 484 //}}}
 485 ?>