Libreria de Perl terminada.

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

diff --git a/sistema/www/sistemas/sistemas.php b/sistema/www/sistemas/sistemas.php
index 5bfd70dba98e51fa893e6fdf55a24945a2e10fba..e6f1bb7a0a8e7e26ecb0a1c98b2f90998f69bdf9 100644 (file)
--- a/sistema/www/sistemas/sistemas.php
+++ b/sistema/www/sistemas/sistemas.php
@@ -23,7 +23,7 @@
     require_once 'SAMURAI/Sistema.php';
 
 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
-$SAMURAI_PERM->chequear(SAMURAI_DEVELOPER);
+$SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
 //}}}
     $aHrefPopup = '<a href="" onClick="window.open(\'sistemas-datos?id_sistema=##SISTEMA##\',\'sistemasdatos\',\'height=400,width=400,scrollbars=yes\');return false;">';
     $aHref      = '<a href="sistemas-abm?accion=##ACCION##&idSistema=##NUEVO##">';
@@ -41,8 +41,8 @@ $SAMURAI_PERM->chequear(SAMURAI_DEVELOPER);
     $TABLA2 = new MECON_HTML_Tabla ('cellspacing=0');
     $row = array ('<a href="../sel-sistema.php"><img src="/MECON/images/general_ir4" border="0">Seleccionar otro sistema para trabajar</a>', $aHref.'<img src="/MECON/images/general_nuevo.gif" border="0">Ingresar Nuevo Sistema</a>');
     $TABLA2->addRow($row);
-    $TABLA2->setColAlign(0,'left');
-    $TABLA2->setColAlign(1,'right');
+    $TABLA2->updateColAttributes(0,'align="left"');
+    $TABLA2->updateColAttributes(1,'align="right"');
     
     $TABLA = new MECON_HTML_Tabla ('cellpadding=2');
     $row = array ('Id','Nombre','Modif.','Elim.','Perm.');
@@ -65,6 +65,10 @@ $SAMURAI_PERM->chequear(SAMURAI_DEVELOPER);
                 );
         $TABLA->addRow($row);
     }
+    $TABLA->updateColAttributes(0, 'width="5%"');
+    $TABLA->updateColAttributes(2, 'width="8%"');
+    $TABLA->updateColAttributes(3, 'width="8%"');
+    $TABLA->updateColAttributes(4, 'width="8%"');
 
     //Agrego las cosas al cuerpo de la pagina