src/www/sistemas.php

   1 <?php
   2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
   3 // +--------------------------------------------------------------------+
   4 // |                           SAMURAI                                  |
   5 // +--------------------------------------------------------------------+
   6 // |   Sistema de Administracion y Matenimiento de Usuarios Relativo A  |
   7 // |                             Intranet                               |
   8 // |                      Ministerio de Economía                        |
   9 // +--------------------------------------------------------------------+
  10 // | Creado: fri mar 21 ART 2003                                        |
  11 // | Autor:  Martin Marrese <mmarre@mecon.gov.ar>                       |
  12 // +--------------------------------------------------------------------+
  13 //
  14 // $Id$
  15 //
  16 // $URL$
  17 // $Rev$
  18 // $Date$
  19 // $Author$
  20
  21 require_once 'HTML/Form.php';
  22 require_once 'HTML/Tabla.php';
  23
  24 // Armo el FORM {{{
  25 $FORM = new HTML_Form('sistemas_abm.php', 'post', 'sistemas');
  26 $FORM->start();
  27     //Armo la tabla {{{
  28         $TABLE_externa = new Tabla('width="760" align="center" bgcolor="#FFFFFF"');
  29             //Cargo las filas {{{
  30                 // Cargo el link a sistemas_abm.php
  31                 $row_vacio = array ('0' => '');
  32
  33                 // Agrego una linea en blanco, que mas lindo esteticamente
  34                 $TABLE_externa->agregarFila($row_vacio);
  35
  36                 $row = array ($sistema_remoto->htmlLinkAbm('link_abm'));
  37                 $TABLE_externa->agregarFila($row);
  38                 $TABLE_externa->align(1,0,'right');
  39
  40                 // Tiro la tabla interna en la externa
  41                 $row = array ($sistema_remoto->htmlTablaCompleta());
  42                 $TABLE_externa->agregarFila($row);
  43
  44                 // Tengo que agregar una fila mas para dejar un espacio en blanco
  45                 $TABLE_externa->agregarFila($row_vacio);
  46
  47             // }}} Fin carga de filas
  48         $TABLE_externa->display();
  49     // }}} Fin de la tabla
  50     $FORM->end();
  51     // }}} Fin del FORM
  52 ?>