Libreria de Perl terminada.

[mecon/samurai.git] / sistema / www / permisos / permisos.php

diff --git a/sistema/www/permisos/permisos.php b/sistema/www/permisos/permisos.php
index 622bfde11df282e277f010d194521ea368480d7f..90872f5abdad1b4986e73260ca0c83cfd6781e84 100644 (file)
--- a/sistema/www/permisos/permisos.php
+++ b/sistema/www/permisos/permisos.php
@@ -20,6 +20,9 @@
 // $Id$
 // 
     
+//VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
+$SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
+//}}}
     require_once 'MECON/HTML/Tabla.php';
     require_once 'SAMURAI/Permiso.php';
 
@@ -31,13 +34,13 @@
     $aHElimdes  = '<img src="/MECON/images/general_eliminar_des.gif"  border="0" alt="No se puede eliminar Permiso">';
 // }}}
 //VEO SI HAY QUE ELEGIR EN QUE SISTEMA TRABAJAR {{{
-if (!@$_SESSION['samurai']['id_sistema'] || !@$_SESSION['samurai']['login']) {
-    header('Location: ./../sel-sistema');    
+if (!@$_SESSION['samurai']['id_sistema']) {
+    header('Location: ./../sel-sistema?redirect=permisos/permisos');    
 }
 // }}}   
 //CREO LOS OBJETOS NECESARIOS {{{
-    $TABLA2 = new Tabla ('cellspacing=0');
-    $TABLA  = new Tabla ('cellpadding=2');
+    $TABLA2 = new MECON_HTML_Tabla ('cellspacing=0');
+    $TABLA  = new MECON_HTML_Tabla ('cellpadding=2');
 // }}}
 //OBTENGO LA INFORMACION DE LA BASE {{{
     $permisos = SAMURAI_Permiso::getPermisos($DB);