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 521fed56187330d0bbb79d0632a945aa8eac2ab2..90872f5abdad1b4986e73260ca0c83cfd6781e84 100644 (file)
--- a/sistema/www/permisos/permisos.php
+++ b/sistema/www/permisos/permisos.php
@@ -21,7 +21,7 @@
 // 
     
 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
-$SAMURAI_PERM->chequear(SAMURAI_DEVELOPER);
+$SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
 //}}}
     require_once 'MECON/HTML/Tabla.php';
     require_once 'SAMURAI/Permiso.php';
@@ -35,7 +35,7 @@ $SAMURAI_PERM->chequear(SAMURAI_DEVELOPER);
 // }}}
 //VEO SI HAY QUE ELEGIR EN QUE SISTEMA TRABAJAR {{{
 if (!@$_SESSION['samurai']['id_sistema']) {
-    header('Location: ./../sel-sistema');    
+    header('Location: ./../sel-sistema?redirect=permisos/permisos');    
 }
 // }}}   
 //CREO LOS OBJETOS NECESARIOS {{{