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 a721f80d8af2e0291f40448b8c056c11389b359e..020695a048343bad508903208a3de43ba0168f47 100644 (file)
--- a/sistema/www/sistemas/sistemas-permisos.php
+++ b/sistema/www/sistemas/sistemas-permisos.php
@@ -29,6 +29,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;
@@ -42,9 +45,9 @@
 // }}}
 //CREO LOS OBJETO NECESARIOS {{{
     $SISTEMA   = new SAMURAI_Sistema ($DB, $idSistema);
-    $TABLASIST = new Tabla ('cellpadding=2');
-    $TABLAPERM = new Tabla ('cellpadding=2');
-    $SISTEMA->setResponsable($_SESSION['samurai']['login']);
+    $TABLASIST = new MECON_HTML_Tabla ('cellpadding=2');
+    $TABLAPERM = new MECON_HTML_Tabla ('cellpadding=2');
+    $SISTEMA->setResponsable($_SESSION['usuario']);
 // }}}
 //AGREGO LA INFORMACION DEL SISTEMA {{{
     $row = array ('Datos del sistema');
@@ -59,7 +62,7 @@
     $aHrefModif = $aHref.'<img src="/MECON/images/general_modificar.gif" border="0" alt="Modificar"></a>';
     $aHrefElim  = $aHref.'<img src="/MECON/images/general_eliminar.gif"  border="0" alt="Eliminar" ></a>';
 
-    $TABLA2 = new Tabla ('cellspacing=0');
+    $TABLA2 = new MECON_HTML_Tabla ('cellspacing=0');
     $tt = ereg_replace ('##ACCION##' , 'n', $aHref);
     $tt = ereg_replace ('##PERMISO##', 'p', $tt   );
     $tt = ereg_replace ('##OBS##'    , 'o', $tt   );
@@ -72,8 +75,8 @@
     $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']);
@@ -89,7 +92,7 @@
 
 // }}}
 //OPCION VOLVER {{{
-    $TABLAVOLVER = new Tabla ('cellspacing=0');
+    $TABLAVOLVER = new MECON_HTML_Tabla ('cellspacing=0');
     $row = array ('<a href="sistemas" alt="Volver a la lista de Sistemas" ><img src="/MECON/images/general_volver4.gif" border="0">&nbsp;Volver a Sistemas</a>');
     $TABLAVOLVER->addRow($row,'align=left');
 // }}}