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 16dadba65261ae19cdc5150d22cfd12c8c41fbac..e6f1bb7a0a8e7e26ecb0a1c98b2f90998f69bdf9 100644 (file)
--- a/sistema/www/sistemas/sistemas.php
+++ b/sistema/www/sistemas/sistemas.php
@@ -41,8 +41,8 @@ $SAMURAI_PERM->chequear(SAMURAI_PERM_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_PERM_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