sistema/www/procesos.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: jue nov 27 18:58:19 ART 2003
  22 Autor:  Martin Marrese <mmarre@mecon.gov.ar>
  23 -------------------------------------------------------------------------------
  24 $Id$
  25 -----------------------------------------------------------------------------*/
  26
  27 //Require Once {{{
  28 require_once 'MECON/HTML/TablaDB.php';
  29 require_once 'MECON/HTML/Tabla.php';
  30 require_once 'MECON/HTML/Image.php';
  31 require_once 'MECON/HTML/Link.php';
  32 require_once 'YATTA/Proceso.php';
  33 //}}}
  34
  35 //Obtengo la informacion de la base y la agrego a la tabla {{{
  36 $TABLADB = new MECON_HTML_TablaDB ('Procesos');
  37 $TABLADB->addRow(array(
  38             'Listado de Procesos'
  39             ), 'cabecera colspan="4" align="left"');
  40 $TABLADB->addRow(array(
  41             'Id', 'Fecha', 'Sistema', 'Descripcion', 'Estado'
  42             ),'titulo');
  43
  44 $PROCESO =& new YATTA_Proceso;
  45 $PROCESO->owner = $_SESSION['usuario'];
  46 $res = $PROCESO->buscar($DB, MECON_DBO_AND, ' id ASC');
  47 if (PEAR::isError($res)) {
  48     die('Error: ' . $res->getMessage() . "\n");
  49 }
  50
  51 //@FIXME La fecha esta quedando en formato americano, arreglar eso.
  52
  53 $pager = $TABLADB->addPager($res, null,
  54             new MECON_HTML_Link
  55                 ('procesos', null
  56                 )
  57         );
  58
  59 $TABLADB->addRowsData('<a href="procesos_popup?id=%s" '.
  60         'OnClick="javascript:window.open(\'procesos_popup?id=%s\','.
  61         '\'proc\', \'width=450,height=250,scrollbars=yes\');'.
  62         'return false;" target="_blank">'.
  63         "<img src=\"/sistemas/yatta/images/estado_%s.gif\" alt=\"%s\"".
  64         ' border=0></a>', array ('id', 'id', 'status', 'icono'));
  65
  66 $TABLADB->addRows($pager, array ('id', 'fecha', 'nombre_sistema', 'descripcion'));
  67 $TABLADB->updateColAttributes(0,'width="8%"');
  68 $TABLADB->updateColAttributes(2,'width="30%"');
  69 $TABLADB->updateColAttributes(3,'width="40%"');
  70 $TABLADB->updateColAttributes(4,'width="5%"');
  71 //}}}
  72
  73 //Agrego la tabla con la explicacion de los iconos {{{
  74 $TABLA =& new MECON_HTML_Tabla ('width="400"');
  75 $TABLA->addRow(array('Significado de los iconos'), 'cabecera colspan="2"');
  76 $TABLA->addRow(array('Icono', 'Significado'), 'titulo');
  77 $TABLA->addRow(array(
  78                 new MECON_HTML_Image ('/sistemas/yatta/images/estado_0.gif',
  79                     'Espera'),
  80                 "El proceso esta en cola. Aun no se ejecuto.<br>Puede abortar su".
  81                 ' ejecucion presionando en el icono.'
  82             ));
  83 $TABLA->addRow(array(
  84                 new MECON_HTML_Image ('/sistemas/yatta/images/estado_1.gif',
  85                     'Procesando'),
  86                 'El proceso se esta ejecutando en este momento. <br>Puede abortar su'.
  87                 ' ejecucion presionando en el icono.'
  88             ));
  89 $TABLA->addRow(array(
  90                 new MECON_HTML_Image ('/sistemas/yatta/images/estado_2.gif',
  91                     'Finalizado'),
  92                 'El proceso ha finalizado.<br>'.
  93                 'Puede buscar el resultado en la seccion archivos.'
  94             ));
  95 $TABLA->addRow(array(
  96                 new MECON_HTML_Image ('/sistemas/yatta/images/estado_3.gif',
  97                     'Error'),
  98                 'Se produjo un error durante la ejecucion del proceso.<br>'.
  99                 'Presionando sobre el icono puede ver una explicacion del mismo.'
 100             ));
 101 $TABLA->addRow(array(
 102                 new MECON_HTML_Image ('/sistemas/yatta/images/estado_0.gif',
 103                     'Abortado'),
 104                 'El proceso fue detenido por alguna persona (el responsable o'.
 105                 ' el administrador). Presionando sobre el icono puede ver una'.
 106                 'explicacion.'
 107             ));
 108 $TABLA->updateColAttributes(0, 'align="center"');
 109 $TABLA->updateColAttributes(1, 'align="left"');
 110 //}}}
 111
 112 //Agrego la info al marco y la muestro {{{
 113 $MARCO->addStyleSheet('css/yatta.css');
 114 $MARCO->addBody($TABLADB);
 115 $MARCO->addBody('<BR> <BR>');
 116 $MARCO->addBody($TABLA);
 117 $MARCO->display();
 118 //}}}
 119
 120 ?>