Agrego paginacion a la lista de permisos

[mecon/samurai.git] / lib / SAMURAI / HTML / Perfil.php

diff --git a/lib/SAMURAI/HTML/Perfil.php b/lib/SAMURAI/HTML/Perfil.php
index 8abccbb4fbbee874ac086725986d5e209a88c434..72af3dcaedbb9d26b0ee2eb5452f18f5301bf6c2 100644 (file)
--- a/lib/SAMURAI/HTML/Perfil.php
+++ b/lib/SAMURAI/HTML/Perfil.php
@@ -20,10 +20,62 @@
 // $Id$
 //
 
 // $Id$
 //
 

-//require_once 'MECON/general.php';
-//prepend_include_path('/home/mmarrese/public_html/meconlib/lib/');
+/** \page page_samurai_html_perfil Perfil Embebido

 
 

-//REQUIRE ONCE GENERALES {{{
+\section page_samurai_html_perfil_descripcion Descripcion
+    Samurai provee de una funcion que permite embeber la funcionalidad de 
+    perfiles dentro de aquellos sistemas que asi lo requieran.
+    Es completamente independiente del sistema en el cual trabaja y puede ser
+    agregado de cualquier manera (Seccion, Subseccion o Contenido) al sistema.
+        
+    \note Es necesario para embeber los perfiles que se haya realizado un
+    session_start().
+
+\section page_samurai_html_perfil_funcionamiento Funcionamiento
+    Es una copia de la seccion Perfiles dentro de SAMURAI. Se relizan las mismas
+    verificaciones, tiene las mismas condiciones y se utilizan los mismos 
+    permisos que en este.
+
+    \subsection page_samurai_html_perfil_funcionamiento_validaciones Validaciones y Condiciones
+        - Los espacios entre las palabras que componen el nombre de un
+          perfil son eliminados. Ej: Agregar    Usuario
+          se cambia por Agregar Usuario.
+        - Es obligatorio que los perfiles contengan al menos un permiso.
+        - No puede haber dos perfiles con los mismos permisos.
+        - No se pueden borrar perfiles que esten asociados a usuarios.
+        - No se pueden ingresar pefiles nuevos que ya esten cargados.
+
+\section page_samurai_html_perfil_ejemplo Ejemplo
+    SAMURAI_HTML_Perfil agrega el contenido directamente en el marco que se este
+    utilizando.
+    Para embeber los perfiles hay que hacerlo de la siguiente manera
+
+    \code
+    include 'SAMURAI/HTML/Perfil.php';
+    SAMURAI_HTML_Perfil($MARCO, $ID_SISTEMA);
+    \endcode
+    
+    \note $MARCO es el objeto MECON_Marco o el objeto HTML_DietMarco de
+    intranet. 
+    $ID_SISTEMA es el identificador numerico en el cual se esta realizando la
+    accion de embeber.
+
+\section page_samurai_html_perfil_permisos Pasos Finales
+    Para que los usuarios puedan acceder a los perfiles embebidos es necesario
+    que en el sistema en el cual se este embebiendo se agregen los permisos que
+    utiliza la seccion Perfiles (enumerados mas abajo), y que estos mediante
+    perfiles se asignen a usuarios.
+    Esto implica que por lo menos un usuario tendra que ser cargado desde
+    SAMURAI para que este tenga acceso a la zona embebida.
+
+    Permisos
+        - perfil alta
+        - perfil baja
+        - perfil modificacion
+        - perfil tipo
+*/
+
+//REQUIRE ONCE {{{

 require_once 'SAMURAI/DB.php';
 require_once 'SAMURAI/Perm.php';
 require_once 'SAMURAI/constantes.php';
 require_once 'SAMURAI/DB.php';
 require_once 'SAMURAI/Perm.php';
 require_once 'SAMURAI/constantes.php';


@@ -37,24 +89,18 @@ require_once 'MECON/HTML/Image.php';
 require_once 'PEAR.php';
 // }}}
 
 require_once 'PEAR.php';
 // }}}
 

-// Funciones para agregar la seccion SAMURAI_Perfil en los sistemas.
-// Con esto se pueden embeber el abm de perfiles como una seccion/subseccion mas
-// de un sistema cualquiera.
-// Es necesario para que funcione que se haya realizado un session_start()
-// antes, por ejemplo en el prepend.
-
-    /**
-     * Funcion que se encarga agregar los componentes necesarios al sistema para que
-     * se pueda realizar un abm de perfiles.
-     * Sin los parametros no funciona
-     *
-     * @param MECON_Marco &$MARCO      Referencia al objeto MECON_Marco que se este utilizando en la pagina
-     * @param int          $id_sistema Identificador del sistema en el cual se esta trabajando
-     *
-     * @return void
-     */
-//SAMURAI_Perfil_Html {{{
-function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
+/** 
+ * Funcion que se encarga agregar los componentes necesarios al sistema para
+ * que se pueda realizar un abm de perfiles.
+@see \ref page_samurai_html_perfil
+ *
+ * @param MECON_Marco &$MARCO      Referencia al objeto MECON_Marco que se este utilizando en la pagina
+ * @param int          $id_sistema Identificador del sistema en el cual se esta trabajando
+ *
+ * @return void
+ */
+//SAMURAI_HTML_Perfil {{{
+function SAMURAI_HTML_Perfil(&$MARCO, $id_sistema) {

 
     //INICIALIZO OBJETOS GENERALES {{{
     //REALIZO CONEXION
 
     //INICIALIZO OBJETOS GENERALES {{{
     //REALIZO CONEXION


@@ -64,15 +110,25 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
     $SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['usuario'], $id_sistema, $DB);
     //}}}
 
     $SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['usuario'], $id_sistema, $DB);
     //}}}
 

+    if (@$_POST['samurai_accion'] == 'abm' || @$_GET['samurai_perfiles'] == 'abm') {
+        $OPCION = 'abm';
+    }
+    elseif (@$_POST['samurai_accion'] == 'nuevo' || @$_GET['samurai_perfiles'] == 'nuevo') {
+        $OPCION = 'nuevo';
+    }
+    else {
+        $OPCION = 'listado';
+    }
+    

     //POSIBLES ACCIONES
     // listado -> Listado de los perfiles ya creados en el sistema.
     // nuevo   -> Pantalla de seleccion o de ingreso de un nuevo nombre.
     // abm     -> Formulario para la carga de la info del perfil.
 
     //LISTADO {{{
     //POSIBLES ACCIONES
     // listado -> Listado de los perfiles ya creados en el sistema.
     // nuevo   -> Pantalla de seleccion o de ingreso de un nuevo nombre.
     // abm     -> Formulario para la carga de la info del perfil.
 
     //LISTADO {{{

-    if ((!@$_GET['samurai_perfiles'] && !@$_POST['samurai_accion'])|| @$_GET['samurai_perfiles'] == 'listado') {
+    if ($OPCION == 'listado') {

         //VEO SI PUEDE ACCEDER{{{
         //VEO SI PUEDE ACCEDER{{{

-        $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL,SAMURAI_BAJA_PERFIL,SAMURAI_MODI_PERFIL);
+        $SAMURAI_PERM->chequear(SAMURAI_PERM_PERFIL_ALTA,SAMURAI_PERM_PERFIL_BAJA,SAMURAI_PERM_PERFIL_MODIF);

         //}}}
         //LINKS {{{
             $aHref      = '<a href="'.$_SERVER['PHP_SELF'].'?accion=##ACCION##&id_perfil=##NUEVO##&samurai_perfiles=abm">';
         //}}}
         //LINKS {{{
             $aHref      = '<a href="'.$_SERVER['PHP_SELF'].'?accion=##ACCION##&id_perfil=##NUEVO##&samurai_perfiles=abm">';


@@ -94,20 +150,20 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
             $TABLA3->addRow($row,'align=left'); 
 
             //Agrego el link a nuevo
             $TABLA3->addRow($row,'align=left'); 
 
             //Agrego el link a nuevo

-            if ($SAMURAI_PERM->tiene(SAMURAI_ALTA_PERFIL)) {
+            if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_ALTA)) {

                 $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>');
                 $TABLA2->addRow($row,'align=right');    
             }
 
             //Genero la cabecera de la tabla
                 $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>');
                 $TABLA2->addRow($row,'align=right');    
             }
 
             //Genero la cabecera de la tabla

-            $row   = array ('Id','Descripcion');
-            if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
+            $row   = array ('Id','Descripción');
+            if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {

                 $row[] = 'Tipo';
             }    
                 $row[] = 'Tipo';
             }    

-            if ($SAMURAI_PERM->tiene(SAMURAI_MODI_PERFIL)) {
+            if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_MODIF)) {

                 $row[] = 'Modif.';
             }    
                 $row[] = 'Modif.';
             }    

-            if ($SAMURAI_PERM->tiene(SAMURAI_BAJA_PERFIL)) {
+            if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_BAJA)) {

                 $row[] = 'Elim.';
             }    
             
                 $row[] = 'Elim.';
             }    
             


@@ -119,29 +175,29 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
                 $Elim  = ereg_replace('##ACCION##', 'e'             , $Elim      );
                 $row = array ($perfil->getId(), $perfil->getDescripcion());
                 
                 $Elim  = ereg_replace('##ACCION##', 'e'             , $Elim      );
                 $row = array ($perfil->getId(), $perfil->getDescripcion());
                 

-                if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
+                if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {

                     $row[] = $perfil->getTipo();
                 }    
                     $row[] = $perfil->getTipo();
                 }    

-                if ($SAMURAI_PERM->tiene(SAMURAI_MODI_PERFIL)) {
+                if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_MODIF)) {

                     $row[] = $Modif;
                 }    
                     $row[] = $Modif;
                 }    

-                if ($SAMURAI_PERM->tiene(SAMURAI_BAJA_PERFIL)) {
+                if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_BAJA)) {

                     $row[] = $Elim;
                 }    
                 $TABLA->addRow($row);
             }
         // }}}
         //AGREGO LA INFO AL MARCO {{{
                     $row[] = $Elim;
                 }    
                 $TABLA->addRow($row);
             }
         // }}}
         //AGREGO LA INFO AL MARCO {{{

-            $MARCO->addBody($TABLA3);
-            $MARCO->addBody($TABLA2->toHtml(1));
-            $MARCO->addBody($TABLA);
+            $MARCO->addBodyContent($TABLA3);
+            $MARCO->addBodyContent($TABLA2->toHtml(1));
+            $MARCO->addBodyContent($TABLA);

         //}}}
     }
     //}}}
     //NUEVO {{{
         //}}}
     }
     //}}}
     //NUEVO {{{

-    elseif (@$_GET['samurai_perfiles'] == 'nuevo' || @$_POST['samurai_accion'] == 'nuevo') {
+    elseif ($OPCION == 'nuevo') {

         //VEO SI PUEDE ACCEDER{{{
         //VEO SI PUEDE ACCEDER{{{

-        $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL);
+        $SAMURAI_PERM->chequear(SAMURAI_PERM_PERFIL_ALTA);

         //}}}
         //CREO LOS OBJETO NECESARIOS {{{
             $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);
         //}}}
         //CREO LOS OBJETO NECESARIOS {{{
             $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);


@@ -150,7 +206,7 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
         //AGREGO LOS ELEMENTOS DEL FORM {{{
             $FORM->addElement ('hidden', 'samurai_accion', 'nuevo');
             $FORM->addElement ('header', 'cabecera'   , 'Nuevo Perfil');
         //AGREGO LOS ELEMENTOS DEL FORM {{{
             $FORM->addElement ('hidden', 'samurai_accion', 'nuevo');
             $FORM->addElement ('header', 'cabecera'   , 'Nuevo Perfil');

-            $FORM->addElement ('select', 'perfiles'   , 'Perfiles', '', array('size' => '1'));
+            $FORM->addElement ('select', 'perfiles'   , 'Perfiles', null, array('size' => '1'));

             $FORM->addElement ('text'  , 'filtro'     , 'Filtrar' , array('size' => '50'));
             $FORM->addElement ('text'  , 'descripcion', 'Nombre'  , array('size' => '50'));
             $group[] = HTML_QuickForm::createElement('submit', 'continuar', 'Continuar');
             $FORM->addElement ('text'  , 'filtro'     , 'Filtrar' , array('size' => '50'));
             $FORM->addElement ('text'  , 'descripcion', 'Nombre'  , array('size' => '50'));
             $group[] = HTML_QuickForm::createElement('submit', 'continuar', 'Continuar');


@@ -166,7 +222,7 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
             $perfiles    =& $FORM->getElement('perfiles');
             $descripcion =& $FORM->getElement('descripcion');
             if (@$botones['cancelar']) {
             $perfiles    =& $FORM->getElement('perfiles');
             $descripcion =& $FORM->getElement('descripcion');
             if (@$botones['cancelar']) {

-                header('Location: '.$_SERVER['PHP_SELF']);
+                header('Location: '.$_SERVER['PHP_SELF'].'/');

             }
             if (!isset($botones['filtrar'])) {
                 $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB);
             }
             if (!isset($botones['filtrar'])) {
                 $PERFILES = SAMURAI_Perfil::getArrayPerfiles($DB);


@@ -184,15 +240,13 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
                     $res = '';
                     $tmp = $perfiles->getSelected();
                     if ((!@$descripcion->getvalue() && $tmp['0'] == '--') || ($descripcion->getvalue() && $tmp['0'] != '--')) {
                     $res = '';
                     $tmp = $perfiles->getSelected();
                     if ((!@$descripcion->getvalue() && $tmp['0'] == '--') || ($descripcion->getvalue() && $tmp['0'] != '--')) {

-                        $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.");
+                        $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.");

                         @$descripcion->setValue('');
                     }
                     elseif ($tmp['0'] != '--') {
                         //verificar que el sistema no tenga una asociacion con ese perfil
                         if (SAMURAI_Perfil::existeAsociacion($DB, $tmp['0'], $id_sistema)) {
                         @$descripcion->setValue('');
                     }
                     elseif ($tmp['0'] != '--') {
                         //verificar que el sistema no tenga una asociacion con ese perfil
                         if (SAMURAI_Perfil::existeAsociacion($DB, $tmp['0'], $id_sistema)) {

-                            $res = new PEAR_Error("El sistema ya tiene asociado el perfil seleccionado, 
-                                                   modifique sus permisos desde la seccion perfiles.");
+                            $res = new PEAR_Error("El sistema ya tiene asociado el perfil seleccionado, modifique sus permisos desde la seccion perfiles.");

                         }
                         else {
                             header('Location: '.$_SERVER['PHP_SELF'].'?samurai_perfiles=abm&id_perfil='.$tmp['0']);
                         }
                         else {
                             header('Location: '.$_SERVER['PHP_SELF'].'?samurai_perfiles=abm&id_perfil='.$tmp['0']);


@@ -212,9 +266,7 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
                         $rta = rtrim($rta);
                         // 
                         if (SAMURAI_Perfil::existePerfil($DB, $rta)) {
                         $rta = rtrim($rta);
                         // 
                         if (SAMURAI_Perfil::existePerfil($DB, $rta)) {

-                            $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)");
+                            $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)");

                         }
                         else {
                             $temp = ereg_replace(' ' , '%20', $rta); //Cambio los espacios por %20 para que no chille el netscape
                         }
                         else {
                             $temp = ereg_replace(' ' , '%20', $rta); //Cambio los espacios por %20 para que no chille el netscape


@@ -236,18 +288,18 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
             $TABLA3->addRow($row,'align=left');    
         //}}} 
             $row    = array ($imagen->toHtml().'&nbsp;<b>SISTEMA: '.$SISTEMA->getNombre().'</b>');
             $TABLA3->addRow($row,'align=left');    
         //}}} 

-            $MARCO->addBody($TABLA3);
+            $MARCO->addBodyContent($TABLA3);

             if (isset($TABLA)) {
             if (isset($TABLA)) {

-                $MARCO->addBody($TABLA);
+                $MARCO->addBodyContent($TABLA);

             }
             }

-            $MARCO->addBody($FORM);
+            $MARCO->addBodyContent($FORM);

         //}}}
     }
     //}}}
     //ABM {{{
         //}}}
     }
     //}}}
     //ABM {{{

-    elseif (@$_GET['samurai_perfiles'] == 'abm' || @$_POST['samurai_accion'] == 'abm') {
+    elseif ($OPCION == 'abm') {

         //VEO SI PUEDE ACCEDER{{{
         //VEO SI PUEDE ACCEDER{{{

-        $SAMURAI_PERM->chequear(SAMURAI_ALTA_PERFIL,SAMURAI_BAJA_PERFIL,SAMURAI_MODI_PERFIL);
+        $SAMURAI_PERM->chequear(SAMURAI_PERM_PERFIL_ALTA,SAMURAI_PERM_PERFIL_BAJA,SAMURAI_PERM_PERFIL_MODIF);

         //}}}
         //CREO LOS OBJETO NECESARIOS {{{
             if (@$_GET['id_perfil']) {
         //}}}
         //CREO LOS OBJETO NECESARIOS {{{
             if (@$_GET['id_perfil']) {


@@ -259,9 +311,25 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
             else {
                 $id_perfil = null;
             }
             else {
                 $id_perfil = null;
             }

+            //XXX OBTENGO LA ACCION {{{
+            switch (@$_REQUEST['accion']) {
+                case 'm':
+                    $b_accion = 'Modificar';
+                    $accion = 'm';
+                    break;
+                case 'e':
+                    $b_accion = 'Eliminar';
+                    $accion = 'e';
+                    break;
+                default:
+                    $b_accion = 'Grabar';
+                    $accion = '';
+                    break;
+            }       
+            //}}}        

             $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);
             $SISTEMA =& new SAMURAI_Sistema ($DB, $id_sistema);
             $FORM    =& new MECON_HTML_QuickForm ('samurai_perfiles','post',$_SERVER['PHP_SELF']);
             $SISTEMA =& new SAMURAI_Sistema ($DB, $id_sistema);

-            $PERFIL  =& new SAMURAI_Perfil ($DB, $id_perfil);
+            $PERFIL  =& new SAMURAI_Perfil ($DB, $id_perfil, $id_sistema);

 
             if ($PERFIL->getResponsable()) {
                 $responsable = $PERFIL->getResponsable();
 
             if ($PERFIL->getResponsable()) {
                 $responsable = $PERFIL->getResponsable();


@@ -295,13 +363,14 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
                 $FORM->addElement ('header', 'cabecera', 'ABM Perfiles');
                 $FORM->addElement ('hidden', 'id_perfil', $id_perfil);
                 $FORM->addElement ('hidden', 'desc_ant'   , $descripcion);
                 $FORM->addElement ('header', 'cabecera', 'ABM Perfiles');
                 $FORM->addElement ('hidden', 'id_perfil', $id_perfil);
                 $FORM->addElement ('hidden', 'desc_ant'   , $descripcion);

-                $FORM->addElement ('static', 'desc_perfil', 'Descripcion', $descripcion);
+                $FORM->addElement ('static', 'desc_perfil', 'Descripción', $descripcion);

                 $FORM->addElement ('select', 'permisos'   , 'Permisos'   , $PERMISOS, array('size' => '5', 'multiple' => 'true'));
                 $FORM->addElement ('select', 'permisos'   , 'Permisos'   , $PERMISOS, array('size' => '5', 'multiple' => 'true'));

-                if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
+                if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {

                     $FORM->addElement ('select', 'tipo_perfil', 'Tipo Perfil', array('E' => 'Externo', 'I' => 'Interno', 'D' => 'Dios'), array ('size' => '1'));
                 }
                 $FORM->addElement ('hidden', 'responsable', $responsable);
                     $FORM->addElement ('select', 'tipo_perfil', 'Tipo Perfil', array('E' => 'Externo', 'I' => 'Interno', 'D' => 'Dios'), array ('size' => '1'));
                 }
                 $FORM->addElement ('hidden', 'responsable', $responsable);

-                $group[] = HTML_QuickForm::createElement('submit', 'aceptar' , 'Grabar');
+                $FORM->addElement ('hidden', 'accion', $accion);
+                $group[] = HTML_QuickForm::createElement('submit', 'aceptar', $b_accion);

                 $group[] = HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar', array ('onClick' => 'javascript:window.location=\''.$_SERVER['PHP_SELF'].'\';return false;'));
                 $FORM->addGroup($group,'botones');
             }
                 $group[] = HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar', array ('onClick' => 'javascript:window.location=\''.$_SERVER['PHP_SELF'].'\';return false;'));
                 $FORM->addGroup($group,'botones');
             }


@@ -319,7 +388,7 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
                 $desc_perfil  =& $FORM->getElement  ('desc_perfil');
                 $permisos     =& $FORM->getElement  ('permisos'   );
                 
                 $desc_perfil  =& $FORM->getElement  ('desc_perfil');
                 $permisos     =& $FORM->getElement  ('permisos'   );
                 

-                if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
+                if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {

                     $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
                 }
                 $responsable  =& $FORM->getElement  ('responsable');
                     $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
                 }
                 $responsable  =& $FORM->getElement  ('responsable');


@@ -329,7 +398,7 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
 
                 $permisos->setSelected($PERFIL->getPermisos());
                 
 
                 $permisos->setSelected($PERFIL->getPermisos());
                 

-                if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
+                if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {

                     $tipo_perfil->setSelected($PERFIL->getTipo());
                 }
 
                     $tipo_perfil->setSelected($PERFIL->getTipo());
                 }
 


@@ -357,11 +426,13 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
                 }
                 // }}}
                 else {
                 }
                 // }}}
                 else {

+                    $samurai_accion =& $FORM->getElement('samurai_accion');
+                    $samurai_accion->setValue('listado');

                     $id_perfil    =& $FORM->getElement  ('id_perfil'  );
                     $desc_perfil  =& $FORM->getElement  ('desc_perfil');
                     $permisos     =& $FORM->getElement  ('permisos'   );
                     
                     $id_perfil    =& $FORM->getElement  ('id_perfil'  );
                     $desc_perfil  =& $FORM->getElement  ('desc_perfil');
                     $permisos     =& $FORM->getElement  ('permisos'   );
                     

-                    if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
+                    if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {

                         $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
                         $tipo_perfil_tmp  =  $tipo_perfil->getSelected();
                     }
                         $tipo_perfil  =& $FORM->getElement  ('tipo_perfil');
                         $tipo_perfil_tmp  =  $tipo_perfil->getSelected();
                     }


@@ -374,8 +445,8 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
                     $PERFIL->setResponsable($responsable->getValue());
                     $PERFIL->setPermisos   ($permisos->getSelected()); //Le asigno al perfil los permisos seleccionados
                     
                     $PERFIL->setResponsable($responsable->getValue());
                     $PERFIL->setPermisos   ($permisos->getSelected()); //Le asigno al perfil los permisos seleccionados
                     

-                    if ($SAMURAI_PERM->tiene(SAMURAI_TIPO_PERFIL)) {
-                        $PERFIL->setTipo       ($tipo_perfil_tmp['0']   );
+                    if ($SAMURAI_PERM->tiene(SAMURAI_PERM_PERFIL_TIPO)) {
+                        $PERFIL->setTipo($tipo_perfil_tmp['0']);

                     }
                     
                     //Grabo y verifico si se produjo algun error
                     }
                     
                     //Grabo y verifico si se produjo algun error


@@ -389,7 +460,8 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
                     }
                     else {
                         $FORM->freeze();
                     }
                     else {
                         $FORM->freeze();

-                        header('Location: '.$_SERVER['PHP_SELF']);
+                        header('Location: '.$_SERVER ['PHP_SELF'].'/');
+                        exit;

                     }
                 }
             }
                     }
                 }
             }


@@ -400,13 +472,14 @@ function SAMURAI_Perfil_Html(&$MARCO, $id_sistema) {
             $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
             $TABLA3->addRow($row,'align=left');    
 
             $TABLA3 = new MECON_HTML_Tabla ('cellspacing=0');
             $TABLA3->addRow($row,'align=left');    
 

-            $MARCO->addBody($TABLA3);
+            $MARCO->addBodyContent($TABLA3);

             if (isset($ERROR)) {
             if (isset($ERROR)) {

-                $MARCO->addBody($ERROR);
+                $MARCO->addBodyContent($ERROR);

             }
             }

-            $MARCO->addBody($FORM);
+            $MARCO->addBodyContent($FORM);

     //}}}
     }
     //}}}
 }
     //}}}
     }
     //}}}
 }

+//}}}

 ?>
 ?>