Libreria de Perl terminada.

[mecon/samurai.git] / sistema / www / sistemas / sistemas-permisos-abm.php

diff --git a/sistema/www/sistemas/sistemas-permisos-abm.php b/sistema/www/sistemas/sistemas-permisos-abm.php
index d8eb622608879e79e630675e32fbda7d470e6f9e..b2ac96536f7dbbf37030bd781da2a243699cf3aa 100644 (file)
--- a/sistema/www/sistemas/sistemas-permisos-abm.php
+++ b/sistema/www/sistemas/sistemas-permisos-abm.php
@@ -31,6 +31,9 @@
     require_once 'SAMURAI/Permiso.php';
     // }}}
 // }}}
     require_once 'SAMURAI/Permiso.php';
     // }}}
 // }}}

+//VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
+$SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
+//}}}

 //OBTENGO EL ID DEL SISTEMA {{{
     //El id de sistema viene por get o por post, no hay otra posibilidad
     $idSistema = 0;
 //OBTENGO EL ID DEL SISTEMA {{{
     //El id de sistema viene por get o por post, no hay otra posibilidad
     $idSistema = 0;


@@ -44,7 +47,7 @@
 //CREO LOS OBJETO NECESARIOS {{{
     $SISTEMA   = new SAMURAI_Sistema ($DB, $idSistema);
     $TABLASIST = new MECON_HTML_Tabla ('cellpadding=2');
 //CREO LOS OBJETO NECESARIOS {{{
     $SISTEMA   = new SAMURAI_Sistema ($DB, $idSistema);
     $TABLASIST = new MECON_HTML_Tabla ('cellpadding=2');

-    $SISTEMA->setResponsable($_SESSION['samurai']['login']);
+    $SISTEMA->setResponsable($_SESSION['usuario']);

     $FORM = new MECON_HTML_QuickForm ('sistemas_permisos_abm','post','sistemas-permisos-abm');
 // }}}
 //AGREGO LA INFORMACION DEL SISTEMA {{{
     $FORM = new MECON_HTML_QuickForm ('sistemas_permisos_abm','post','sistemas-permisos-abm');
 // }}}
 //AGREGO LA INFORMACION DEL SISTEMA {{{