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 7eeaedaf4ddc6956acfa0367c91a561dace0c22c..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


@@ -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']);