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/Table.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 HTML_Table('width="760" align="center" bgcolor="#FFFFFF"');
  29             //Cargo las filas {{{
  30                 //Cargo boton submit, arranco en el row 1 para que quede uno en blanco
  31
  32                 // Cambiar como meto la imagen en la pagina.
  33                 $imagen = '<a href="./sistemas_abm.php"><img alt="Nuevo" src="./images/ira.gif" border="0">Ingresar Nuevo Sistema</a>';                $TABLE_externa->setCellContents(1,0,$imagen,'td');
  34                 $TABLE_externa->setCellAttributes(1,0,'align="right" class="texto11_blanco"');
  35
  36
  37                 //METER ESTO DENTRO DEL OBJETO SISTEMAS {{{
  38                 //Esta es la tabla interna
  39                 $TABLE = new HTML_Table('width="100%" align="center" cellpadding="0" cellspacing="2" border="0" bgcolor="#336699"');
  40
  41                 //Cargo la cabecera de la tabla
  42                 $TABLE->setCellContents(0,0,'Id','th');
  43                 $TABLE->updateCellAttributes(0,0,'align="center" class="texto11_blanco"');
  44                 $TABLE->setCellContents(0,1,'Nombre','th');
  45                 $TABLE->updateCellAttributes(0,1,'align="center" class="texto11_blanco"');
  46                 $TABLE->setCellContents(0,2,'Descipcion','th');
  47                 $TABLE->updateCellAttributes(0,2,'align="center" class="texto11_blanco"');
  48                 $TABLE->setCellContents(0,3,'Modificar','th');
  49                 $TABLE->updateCellAttributes(0,3,'align="center" class="texto11_blanco"');
  50                 $TABLE->setCellContents(0,4,'Eliminar','th');
  51                 $TABLE->updateCellAttributes(0,4,'align="center" class="texto11_blanco"');
  52
  53
  54                 // Ver si esta parte la puedo evitar usando alguna funcion de html_table {{{
  55                 //Cargo los sistemas
  56                 $datos = $sistema_remoto->datosTodos();
  57                 //Genero las filas con los datos de los sistemas
  58                 foreach ($datos as $dato) {
  59                     $rc = $TABLE->getRowCount();
  60                     $TABLE->setCellContents($rc,0,$dato['0'],'td');
  61                     $TABLE->updateCellAttributes($rc,0,'align="center" bgcolor="#FFFFFF" class="texto11_negro"');
  62                     $TABLE->setCellContents($rc,1,$dato['1'],'td');
  63                     $TABLE->updateCellAttributes($rc,1,'align="center" bgcolor="#FFFFFF" class="texto11_negro"');
  64                     $TABLE->setCellContents($rc,2,$dato['2'],'td');
  65                     $TABLE->updateCellAttributes($rc,2,'align="left" bgcolor="#FFFFFF" class="texto11_negro"');
  66                     $TABLE->setCellContents($rc,3,'Mod','td');
  67                     $TABLE->updateCellAttributes($rc,3,'align="center" bgcolor="#FFFFFF" class="texto11_negro"');
  68                     $TABLE->setCellContents($rc,4,'Eli','td');
  69                     $TABLE->updateCellAttributes($rc,4,'align="center" bgcolor="#FFFFFF" class="texto11_negro"');
  70                 }
  71                 // }}} html_table
  72                 // }}} HASTA ACA
  73
  74                 //Tiro la tabla interna en la externa
  75                 $TABLE_externa->setCellContents(2,0,$TABLE->toHtml(),'td');
  76                 $TABLE_externa->updateCellAttributes(2,0,'align="center"');
  77
  78                 //Tengo que agregar una fila mas para dejar un espacio en blanco
  79                 $TABLE_externa->setCellContents(3,0,'','td');
  80                 $TABLE_externa->updateCellAttributes(3,0,'align="center2"');
  81             // }}} Fin carga de filas
  82         $TABLE_externa->display();
  83     // }}} Fin de la tabla
  84     $FORM->end();
  85     // }}} Fin del FORM
  86 ?>