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 6dffa471a9a6c7618db4c4aac78a0bbbcffbda01..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{{{
     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##">';
 //}}}
     $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##">';


@@ -32,7 +32,7 @@ $SAMURAI_PERM->chequear(SAMURAI_DEVELOPER);
     $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']) {
     $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']) {

-        header('Location: ./../sel-sistema');    
+        header('Location: ./../sel-sistema?redirect=sistemas/sistemas');    

     }
     // }}}  
 
     }
     // }}}  
 


@@ -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 = 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.');
     
     $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->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
 
 
     //Agrego las cosas al cuerpo de la pagina