Libreria SAMURAI_Perm en Perl casi lista. Falta getObservaciones y verificar que...

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

diff --git a/sistema/www/consultas/consultas.php b/sistema/www/consultas/consultas.php
index f45115ab0c282d5433341c69aff90e4ed0626c8a..a25d2ea921b591084a508c924998733f1dc033cb 100644 (file)
--- a/sistema/www/consultas/consultas.php
+++ b/sistema/www/consultas/consultas.php
@@ -21,22 +21,51 @@
 // 
 
 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
-$SAMURAI_PERM->chequear(SAMURAI_DEVELOPER);
+$SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
 //}}}
-    //VEO SI HAY QUE ELEGIR EN QUE SISTEMA TRABAJAR {{{
-    if (!@$_SESSION['samurai']['id_sistema']) {
-        header('Location: ./../sel-sistema?redirect=consultas/consultas');    
-    }
-    // }}}  
 //REQUIRE ONCE {{{
+    require_once 'MECON/HTML/Tabla.php';
     require_once 'MECON/HTML/Link.php';
+    require_once 'MECON/HTML/Image.php';
 // }}}
 //CREO LOS OBJETOS NECESARIOS {{{
-    $LINK_PHP_CONSTANTES = new MECON_HTML_Link ('php-constantes',
+    $TABLA =& new HTML_Table('width="500" align="right"');
+    $LINK0 =& new MECON_HTML_Link('sistemas', 'Ver informacion
+            de los sistemas.', array('accion'=>'info_listado'));
+    $LINK1 =& new MECON_HTML_Link('sistemas', 'Activar
+            Sistemas.', array('accion'=>'activar_sistema'));
+    $LINK2 =& new MECON_HTML_Link('usuarios', 'Ver informacion
+            de los usuarios.', array('accion'=>'filtrar'));
+    $LINK3 =& new MECON_HTML_Link ('php-constantes',
             'Bajar la definicion de constantes de un sistema.');
+    
+    $IMG0 =& new MECON_HTML_Image('../images/verinfodesist.gif');
+    $IMG1 =& new MECON_HTML_Image('../images/activar.gif');
+    $IMG2 =& new MECON_HTML_Image('../images/verusuario.gif');
+    $IMG3 =& new MECON_HTML_Image('../images/bajar.gif');
+    
+    $IMG4 =& new MECON_HTML_Image('/MECON/images/blanco.gif');
+    
+    $LINK00 =& new MECON_HTML_Link('sistemas', $IMG0, 
+            array('accion'=>'info_listado'));
+    $LINK11 =& new MECON_HTML_Link('sistemas', $IMG1, 
+            array('accion'=>'info_listado'));
+    $LINK22 =& new MECON_HTML_Link('sistemas', $IMG2, 
+            array('accion'=>'info_listado'));
+    $LINK33 =& new MECON_HTML_Link('sistemas', $IMG3, 
+            array('accion'=>'info_listado'));
 //}}}    
+//AGREGO LA INFO A LAS TABLAS {{{
+    $TABLA->addRow(array($LINK00->toHtml(),$LINK0->toHtml()), 'align="left"');
+    $TABLA->addRow(array($IMG4->toHtml()), 'colspan="2"');
+    $TABLA->addRow(array($LINK11->toHtml(),$LINK1->toHtml()), 'align="left"');
+    $TABLA->addRow(array($IMG4->toHtml()), 'colspan="2"');
+    $TABLA->addRow(array($LINK22->toHtml(),$LINK2->toHtml()), 'align="left"');
+    $TABLA->addRow(array($IMG4->toHtml()), 'colspan="2"');
+    $TABLA->addRow(array($LINK33->toHtml(),$LINK3->toHtml()), 'align="left"');
+//}}}
 //DIBUJO LA PAGINA {{{
-    $MARCO->addBodyContent($LINK_PHP_CONSTANTES);
+    $MARCO->addBodyContent($TABLA);
     $MARCO->display();
 // }}}
 //FIN