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 //HTML {{{
  29 require_once 'MECON/HTML/TablaDB.php';
  30 require_once 'MECON/HTML/Tabla.php';
  31 require_once 'MECON/HTML/Image.php';
  32 require_once 'MECON/HTML/Link.php';
  33 //}}}
  34 //YATTA {{{
  35 require_once 'YATTA/Controlador.php';
  36 require_once 'YATTA/Proceso.php' ;
  37 require_once 'YATTA/ProcesoDB.php' ;
  38 //}}}
  39 //}}}
  40
  41 //Elimino el proceso en caso de ser necesario {{{
  42 if (@$_REQUEST['accion'] == 'eliminar') {
  43     $PROCESO = new YATTA_ProcesoDB;
  44     $PROCESO->id = $_REQUEST['_id'];
  45     $res = $PROCESO->borrar($DB);
  46     if (PEAR::isError($res)) {
  47         trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
  48     }
  49 }
  50 //}}}
  51
  52 //Obtengo la informacion de la base y la agrego a la tabla {{{
  53 $TABLADB = new MECON_HTML_TablaDB ('Procesos');
  54 $TABLADB->addRow(array(
  55             'Listado de Procesos'
  56             ), 'cabecera colspan="5" align="left"');
  57 $TABLADB->addRow(array(
  58             'Id', 'Fecha', 'Sistema', 'Descripción', 'Estado', 'Borrar'
  59             ),'titulo');
  60
  61 $PROCESO =& new YATTA_Controlador;
  62 $res = $PROCESO->obtenerProcesosUsuario($DB, $_SESSION['usuario']);
  63 if (PEAR::isError($res)) {
  64      trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
  65 }
  66
  67 $pager = $TABLADB->addPager($res, null,
  68             new MECON_HTML_Link
  69                 ('procesos', null
  70                 )
  71         );
  72
  73 $TABLADB->addRowsData('<a href="procesos_popup?id=%s">'.
  74         "<img src=\"/sistemas/yatta/images/estado_%s.gif\" alt=\"%s\"".
  75         ' border=0></a>', array ('id', 'status', 'icono'));
  76
  77 $LINK =& new MECON_HTML_Link ('procesos', '', array ('accion' => 'eliminar'));
  78 $TABLADB->addRowsIcon('borrar', 'id', $LINK);
  79
  80 $TABLADB->addRows($pager, array ('id', 'fecha', 'nombre_sistema', 'descripcion'));
  81 $TABLADB->updateColAttributes(0,'width="8%"');
  82 $TABLADB->updateColAttributes(2,'width="30%"');
  83 $TABLADB->updateColAttributes(3,'width="40%"');
  84 $TABLADB->updateColAttributes(4,'width="5%"');
  85 $TABLADB->updateColAttributes(5,'width="5%"');
  86 //}}}
  87
  88 //Agrego la tabla con la explicacion de los iconos {{{
  89 $TABLA =& new MECON_HTML_Tabla ('width="400"');
  90 $TABLA->addRow(array('Significado de los íconos'), 'cabecera colspan="2"');
  91 $TABLA->addRow(array('Icono', 'Significado'), 'titulo');
  92 $TABLA->addRow(array(
  93                 new MECON_HTML_Image ('/sistemas/yatta/images/estado_0.gif',
  94                     'Espera'),
  95                 "El proceso está en cola. Aún no se ejecutó.<br>Puede abortar su".
  96                 ' ejecución presionando en el ícono.'
  97             ));
  98 $TABLA->addRow(array(
  99                 new MECON_HTML_Image ('/sistemas/yatta/images/estado_1.gif',
 100                     'Procesando'),
 101                 'El proceso se está ejecutando en este momento. <br>Puede abortar su'.
 102                 ' ejecución presionando en el ícono.'
 103             ));
 104 $TABLA->addRow(array(
 105                 new MECON_HTML_Image ('/sistemas/yatta/images/estado_2.gif',
 106                     'Finalizado'),
 107                 'El proceso ha finalizado.<br>'.
 108                 'Puede buscar el resultado en la sección archivos.'
 109             ));
 110 $TABLA->addRow(array(
 111                 new MECON_HTML_Image ('/sistemas/yatta/images/estado_3.gif',
 112                     'Error'),
 113                 'Se produjo un error durante la ejecución del proceso.<br>'.
 114                 'Presionando sobre el ícono puede ver una explicación del mismo.'
 115             ));
 116 $TABLA->addRow(array(
 117                 new MECON_HTML_Image ('/sistemas/yatta/images/estado_4.gif',
 118                     'Abortado'),
 119                 'El proceso fue detenido por alguna persona (el responsable o'.
 120                 ' el administrador). Presionando sobre el ícono puede ver una'.
 121                 ' explicación.'
 122             ));
 123 $TABLA->updateColAttributes(0, 'align="center"');
 124 $TABLA->updateColAttributes(1, 'align="left"');
 125 //}}}
 126
 127 //Agrego la info al marco y la muestro {{{
 128 $MARCO->addStyleSheet('css/yatta.css');
 129 $MARCO->addBody($TABLADB);
 130 $MARCO->addBody('<BR> <BR>');
 131 $MARCO->addBody($TABLA);
 132 $MARCO->display();
 133 //}}}
 134 ?>