Libreria SAMURAI_Perm en Perl casi lista. Falta getObservaciones y verificar que...

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

diff --git a/sistema/www/sistemas/sistemas-permisos.php b/sistema/www/sistemas/sistemas-permisos.php
index 9fe3c3cfa9eddbd53204f3d500d56777a8ba4c99..020695a048343bad508903208a3de43ba0168f47 100644 (file)
--- a/sistema/www/sistemas/sistemas-permisos.php
+++ b/sistema/www/sistemas/sistemas-permisos.php
@@ -30,7 +30,7 @@
     // }}}
 // }}}
 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
     // }}}
 // }}}
 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{

-$SAMURAI_PERM->chequear(SAMURAI_DEVELOPER);
+$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
 //}}}
 //OBTENGO EL ID DEL SISTEMA {{{
     //El id de sistema viene por get o por post, no hay otra posibilidad


@@ -47,7 +47,7 @@ $SAMURAI_PERM->chequear(SAMURAI_DEVELOPER);
     $SISTEMA   = new SAMURAI_Sistema ($DB, $idSistema);
     $TABLASIST = new MECON_HTML_Tabla ('cellpadding=2');
     $TABLAPERM = new MECON_HTML_Tabla ('cellpadding=2');
     $SISTEMA   = new SAMURAI_Sistema ($DB, $idSistema);
     $TABLASIST = new MECON_HTML_Tabla ('cellpadding=2');
     $TABLAPERM = new MECON_HTML_Tabla ('cellpadding=2');

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

 // }}}
 //AGREGO LA INFORMACION DEL SISTEMA {{{
     $row = array ('Datos del sistema');
 // }}}
 //AGREGO LA INFORMACION DEL SISTEMA {{{
     $row = array ('Datos del sistema');


@@ -75,8 +75,8 @@ $SAMURAI_PERM->chequear(SAMURAI_DEVELOPER);
     $TABLAPERM->addRow($row, 'titulo');
     
     $asocs = $SISTEMA->getAsociaciones();
     $TABLAPERM->addRow($row, 'titulo');
     
     $asocs = $SISTEMA->getAsociaciones();

-    
-    foreach ($asocs as $key => $asoc) {
+
+    foreach ($asocs as $asoc) {

         $obs = ereg_replace(' ' , '%20', $asoc['obs']); //Cambio los espacios por %20 para que funcione bien con el netscape
         $estilo = 'comun';
         $permiso = new SAMURAI_Permiso($DB, $asoc['id']);
         $obs = ereg_replace(' ' , '%20', $asoc['obs']); //Cambio los espacios por %20 para que funcione bien con el netscape
         $estilo = 'comun';
         $permiso = new SAMURAI_Permiso($DB, $asoc['id']);