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 693a2bd5bdb970eee8ba2a1e692093cb2369e12f..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';
     // }}}
 // }}}
+//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;
@@ -43,8 +46,8 @@
 // }}}
 //CREO LOS OBJETO NECESARIOS {{{
     $SISTEMA   = new SAMURAI_Sistema ($DB, $idSistema);
-    $TABLASIST = new Tabla ('cellpadding=2');
-    $SISTEMA->setResponsable($_SESSION['samurai']['login']);
+    $TABLASIST = new MECON_HTML_Tabla ('cellpadding=2');
+    $SISTEMA->setResponsable($_SESSION['usuario']);
     $FORM = new MECON_HTML_QuickForm ('sistemas_permisos_abm','post','sistemas-permisos-abm');
 // }}}
 //AGREGO LA INFORMACION DEL SISTEMA {{{