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 59c62eac90e66cd82fd93159384aae46360c125a..e6f1bb7a0a8e7e26ecb0a1c98b2f90998f69bdf9 100644 (file)
--- a/sistema/www/sistemas/sistemas.php
+++ b/sistema/www/sistemas/sistemas.php
@@ -22,26 +22,29 @@
     require_once 'MECON/HTML/Tabla.php';
     require_once 'SAMURAI/Sistema.php';
 
+//VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
+$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##">';
     $aHrefModif = $aHref.'<img src="/MECON/images/general_modificar.gif" border="0" alt="Modificar Sistema"></a>';
     $aHrefElim  = $aHref.'<img src="/MECON/images/general_eliminar.gif"  border="0" alt="Eliminar Sistema" ></a>';
     $aHrefPerm = '<a href="sistemas-permisos?idSistema=##SISTEMA##"><img src="/MECON/images/general_ir4" border="0" alt="Definir Permisos"></a>';
     //VEO SI HAY QUE ELEGIR EN QUE SISTEMA TRABAJAR {{{
-    if (!@$_SESSION['samurai']['id_sistema'] || !@$_SESSION['samurai']['login']) {
-        header('Location: ./../sel-sistema');    
+    if (!@$_SESSION['samurai']['id_sistema']) {
+        header('Location: ./../sel-sistema?redirect=sistemas/sistemas');    
     }
     // }}}  
 
     $sistemas = SAMURAI_Sistema::getSistemas($DB);
 
-    $TABLA2 = new Tabla ('cellspacing=0');
+    $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 Tabla ('cellpadding=2');
+    $TABLA = new MECON_HTML_Tabla ('cellpadding=2');
     $row = array ('Id','Nombre','Modif.','Elim.','Perm.');
     $TABLA->addRow($row,'cabecera');
 
@@ -62,6 +65,10 @@
                 );
         $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