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