sistema/local_lib/Servicios/Informes.php

   1 <?php
   2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
   3 // +--------------------------------------------------------------------+
   4 // |                      Ministerio de Economía                        |
   5 // |                             Intranet                              |
   6 // +--------------------------------------------------------------------+
   7 // | This file is part of Intranet.                                    |
   8 // |                                                                    |
   9 // | Intranet is free software; you can redistribute it and/or modify  |
  10 // | it under the terms of the GNU General Public License as published  |
  11 // | by the Free Software Foundation; either version 2 of the License,  |
  12 // | or (at your option) any later version.                             |
  13 // |                                                                    |
  14 // | Intranet is distributed in the hope that it will be useful, but   |
  15 // | WITHOUT ANY WARRANTY; without even the implied warranty of         |
  16 // | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU   |
  17 // | General Public License for more details.                           |
  18 // |                                                                    |
  19 // | You should have received a copy of the GNU General Public License  |
  20 // | along with Hooks; if not, write to the Free Software Foundation,   |
  21 // | Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA      |
  22 // +--------------------------------------------------------------------+
  23 // | Creado: Tue Nov 4 18:17:24 2003
  24 // | Autor:  Myrna Degano <mdegan@mecon.gov.ar>
  25 // +--------------------------------------------------------------------+
  26 //
  27 // $Id: xmi2code.tpl.php 50 2003-08-12 19:00:38Z mmarre $
  28 //
  29
  30 require_once 'DB.php';
  31 require_once 'MECON/HTML/Image.php';
  32 require_once 'MECON/HTML/Link.php';
  33
  34
  35 // +X2C includes
  36 require_once 'HTML/Table.php';
  37 // ~X2C
  38
  39 // +X2C Class 189 :Servicios_Informes
  40 /**
  41  * Clase para la visualizaciOn de Informes Parlamentarios por Intranet.
  42 Esto es provisorio, hasta tanto se defina cOmo han de actualizarse y mostrarse estos informes en la nueva Intranet.
  43  *
  44  * @access public
  45  */
  46 class Servicios_Informes extends HTML_Table {
  47     // ~X2C
  48
  49     // +X2C Operation 191
  50     /**
  51      * @return string
  52      * @access public
  53      */
  54     function getCSS() // ~X2C
  55     {
  56         $css = '/sistemas/intranet/css/servicios_informes.css';
  57         return $css;
  58     }
  59     // -X2C
  60
  61     // +X2C Operation 192
  62     /**
  63      * @return string
  64      * @access public
  65      */
  66     function toHtml() // ~X2C
  67     {
  68         //Base de Datos
  69         $dbh = DB::connect("mysql://mark:mark@intranet-db/MEconDAV");
  70
  71         //Imágenes
  72         $IMG_l296 =& new MECON_HTML_Image('../../images/servicios_informes_l296.gif', '', array('height'=>'1', 'width'=>'296'));
  73         $IMG_l24 =& new MECON_HTML_Image('../../images/servicios_informes_l296.gif', '', array('height'=>'1', 'width'=>'24'));
  74         $IMG_l320 =& new MECON_HTML_Image('../../images/servicios_informes_l320.gif', '', array('height'=>'24', 'width'=>'320'));
  75         $IMG_parl =& new MECON_HTML_Image('../../images/servicios_informes_parl.gif', '-', array('height'=>'24', 'width'=>'24'));
  76
  77         //Informes
  78         $SECCION = 53;
  79         $sql= " SELECT  headline, Articles.article_id, publication_date
  80                 FROM    Articles, ArticlePublicationStates
  81                 WHERE   section_id = $SECCION AND
  82                         Articles.article_publication_state_id=ArticlePublicationStates.article_publication_state_id AND
  83                         ArticlePublicationStates.publication_state_id=5
  84                         ORDER BY publication_date desc, Articles.article_id desc";
  85         $informes = $dbh->getAll($sql);
  86
  87         $cant_col2 = intval(count($informes)/2);
  88         $cant_col1 = count($informes) - $cant_col2;
  89
  90         $tabla_out =& new HTML_Table('border="0" cellPadding="0" cellSpacing="0" width="660" align="center"');
  91
  92         $tabla_col1 =& new HTML_Table('border="0" cellPadding="0" cellSpacing="0" width="320"');
  93         for ($i=0; $i<$cant_col1; $i++){
  94             $tabla_col1->addRow(array($informes[$i][0]), array('class'=>'servicios_informes_informe', 'colspan'=>'2'));
  95             $tabla_col1->addRow(array($IMG_l24->toHtml(), $IMG_l296->toHtml()));
  96
  97             //Obtener Adjuntos
  98             $sql = "SELECT file_for_article_id, mimetype, filename, caption
  99                     FROM FilesForArticle
 100                     WHERE article_id = ". $informes[$i][1]. " AND
 101                           (oculto <> 1 OR oculto IS NULL)
 102                     ORDER BY file_for_article_id ASC";
 103             $adjuntos = $dbh->getAll($sql);
 104
 105             foreach ($adjuntos as $item){
 106                 $url = '/sistemas/intranet/servicios/informes/get_file.php';
 107                 $link_adjunto = new MECON_HTML_Link($url,
 108                                                     $item[3],
 109                                                     array('id'=>$item[0]),
 110                                                     array('target'=>'_blank'));
 111                 $tabla_col1->addRow(array($IMG_parl->toHtml(), $link_adjunto->toHtml()), array('class'=>'servicios_informes_adjunto'));
 112             }
 113
 114             $tabla_col1->addRow(array($IMG_l320->toHtml()), array('colspan'=>'2'));
 115         }
 116
 117         $tabla_col2 =& new HTML_Table('border="0" cellPadding="0" cellSpacing="0" width="320"');
 118         for ($i=$cant_col1; $i<count($informes); $i++){
 119             $tabla_col2->addRow(array($informes[$i][0]), array('class'=>'servicios_informes_informe', 'colspan'=>'2'));
 120             $tabla_col2->addRow(array($IMG_l24->toHtml(), $IMG_l296->toHtml()));
 121
 122             //Obtener Adjuntos
 123             $sql = "SELECT file_for_article_id, mimetype, filename, caption
 124                     FROM FilesForArticle
 125                     WHERE article_id = ". $informes[$i][1]. " AND
 126                           (oculto <> 1 OR oculto IS NULL)
 127                     ORDER BY file_for_article_id ASC";
 128             $adjuntos = $dbh->getAll($sql);
 129
 130             foreach ($adjuntos as $item){
 131                 $url = '/sistemas/intranet/servicios/informes/get_file.php';
 132                 $link_adjunto = new MECON_HTML_Link($url,
 133                                                     $item[3],
 134                                                     array('id'=>$item[0]),
 135                                                     array('target'=>'_blank'));
 136                 $tabla_col2->addRow(array($IMG_parl->toHtml(), $link_adjunto->toHtml()), array('class'=>'servicios_informes_adjunto'));
 137             }
 138
 139             $tabla_col2->addRow(array($IMG_l320->toHtml()), array('colspan'=>'2'));
 140         }
 141
 142         $tabla_out->addRow(array($tabla_col1->toHtml(), $tabla_col2->toHtml()), array('align'=>'center', 'valign'=>'top'));
 143
 144         return $tabla_out->toHtml();
 145     }
 146     // -X2C
 147
 148 } // -X2C Class :Servicios_Informes
 149 ?>