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 5bcd329634e5a9327c776f18a6d9f7fcb234c9d2..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.');