sistema/www/admin_servidores.php

   1 <?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80 foldmethod=marker:
   2 -------------------------------------------------------------------------------
   3                              Ministerio de Economía
   4                                     YATTA!
   5 -------------------------------------------------------------------------------
   6 This file is part of YATTA!.
   7
   8 YATTA! is free software; you can redistribute it and/or modify it under
   9 the terms of the GNU General Public License as published by the Free
  10 Software Foundation; either version 2 of the License, or (at your option)
  11 any later version.
  12
  13 YATTA! is distributed in the hope that it will be useful, but WITHOUT
  14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  15 FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License; if not,
  18 write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  19 Boston, MA  02111-1307  USA
  20 -------------------------------------------------------------------------------
  21 Creado: mar ene 27 13:10:26 ART 2004
  22 Autor:  Martin Marrese <mmarre@mecon.gov.ar>
  23 -------------------------------------------------------------------------------
  24 $Id$
  25 -----------------------------------------------------------------------------*/
  26 //Require Once {{{
  27 //HTML {{{
  28 require_once 'MECON/HTML/TablaDB.php';
  29 require_once 'MECON/HTML/Image.php';
  30 require_once 'MECON/HTML/Link.php';
  31 //}}}
  32 //YATTA {{{
  33 require_once 'YATTA/Controlador.php';
  34 require_once 'YATTA/ServidorDB.php';
  35 //}}}
  36 //}}}
  37
  38 //Obtengo los datos de los servidores {{{
  39 $SERVIDOR =& new YATTA_ServidorDB();
  40 $res = $SERVIDOR->buscar ($DB, MECON_DBO_OR, 'nombre');
  41 //}}}
  42
  43 //Agrego la informacion a la tabla {{{
  44 $TABLADB = new MECON_HTML_TablaDB ('Servidores', 'width="400"');
  45
  46 $TABLADB->addLink('nuevo', new MECON_HTML_Link('admin_servidores-abm',
  47             'Nuevo Servidor'));
  48
  49 $TABLADB->addRow(array('Listado de Servidores'),
  50         'cabecera colspan="6" align="left"');
  51
  52 $TABLADB->addRow(array('Id', 'Nombre', 'Escala', 'Procesos', 'Modif.', 'Elim.'
  53             ),'titulo');
  54
  55 $pager = $TABLADB->addPager($res, null, new MECON_HTML_Link ('admin_servidores'
  56             , null));
  57
  58 $TABLADB->addRowsIcon('modificar', array ('id'), new MECON_HTML_Link
  59         ('admin_servidores-abm', null, array('accion' => 'modificar')));
  60
  61 $TABLADB->addRowsIcon('borrar', array ('id'), new MECON_HTML_Link
  62         ('admin_servidores-abm', null, array('accion' => 'eliminar')));
  63
  64 $TABLADB->addRows($pager, array ('id', 'nombre', 'escala', 'procesos'));
  65
  66 $TABLADB->updateColAttributes(0, 'width="8%"');
  67 $TABLADB->updateColAttributes(1, 'width="52%"');
  68 $TABLADB->updateColAttributes(2, 'width="15%"');
  69 $TABLADB->updateColAttributes(3, 'width="15%"');
  70 $TABLADB->updateColAttributes(4, 'width="5%"');
  71 $TABLADB->updateColAttributes(5, 'width="5%"');
  72 //}}}
  73
  74 //Agrego la info al marco y la muestro {{{
  75 $MARCO->addStyleSheet('css/yatta.css');
  76 $MARCO->addBody($TABLADB);
  77 $MARCO->display();
  78 //}}}
  79 ?>