sistema/www/consultas/consultas.php

   1 <?php
   2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker:
   3 // +----------------------------------------------------------------------+
   4 // | PHP Version 4                                                        |
   5 // +----------------------------------------------------------------------+
   6 // | Copyright (c) 1997-2003 The PHP Group                                |
   7 // +----------------------------------------------------------------------+
   8 // | This source file is subject to version 2.02 of the PHP license,      |
   9 // | that is bundled with this package in the file LICENSE, and is        |
  10 // | available at through the world-wide-web at                           |
  11 // | http://www.php.net/license/2_02.txt.                                 |
  12 // | If you did not receive a copy of the PHP license and are unable to   |
  13 // | obtain it through the world-wide-web, please send a note to          |
  14 // | license@php.net so we can mail you a copy immediately.               |
  15 // +----------------------------------------------------------------------+
  16 // | Created: jue sep 18 13:29:34 ART 2003
  17 // | Author:  Martin Marrese <mmarre@mecon.gov.ar>
  18 // +----------------------------------------------------------------------+
  19 //
  20 // $Id$
  21 //
  22
  23 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
  24 $SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
  25 //}}}
  26     //VEO SI HAY QUE ELEGIR EN QUE SISTEMA TRABAJAR {{{
  27     if (!@$_SESSION['samurai']['id_sistema']) {
  28         header('Location: ./../sel-sistema?redirect=consultas/consultas');
  29     }
  30     // }}}
  31 //REQUIRE ONCE {{{
  32     require_once 'MECON/HTML/Tabla.php';
  33     require_once 'MECON/HTML/Link.php';
  34     require_once 'MECON/HTML/Image.php';
  35 // }}}
  36 //CREO LOS OBJETOS NECESARIOS {{{
  37     $TABLA =& new MECON_HTML_Tabla ('width="500"', 'claro');
  38     $LINK_PHP_CONSTANTES =& new MECON_HTML_Link ('php-constantes',
  39             'Bajar la definicion de constantes de un sistema.');
  40     $LINK_INFO_SISTEMAS =& new MECON_HTML_Link('sistemas', 'Ver informacion
  41             de los sistemas.', array('accion'=>'info_listado'));
  42     $LINK_ACTIVAR_SISTEMAS =& new MECON_HTML_Link('sistemas', 'Activar
  43             Sistemas.', array('accion'=>'activar_sistema'));
  44     $LINK_INFO_USUARIOS =& new MECON_HTML_Link('info-usuarios', 'Ver informacion
  45             de los usuarios.');
  46 //}}}
  47 //AGREGO LA INFO A LAS TABLAS {{{
  48     $TABLA->addRow(array($LINK_PHP_CONSTANTES->toHtml()), 'align="center"');
  49     $TABLA->addRow(array($LINK_INFO_SISTEMAS->toHtml()) , 'align="center"');
  50     $TABLA->addRow(array($LINK_ACTIVAR_SISTEMAS->toHtml()) , 'align="center"');
  51     $TABLA->addRow(array($LINK_INFO_USUARIOS->toHtml()) , 'align="center"');
  52 //}}}
  53 //DIBUJO LA PAGINA {{{
  54     $MARCO->addBodyContent($TABLA);
  55     $MARCO->display();
  56 // }}}
  57 //FIN
  58 ?>