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