sistema/www/servicios/agenda/agenda2.php

   1 <?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 foldmethod=marker:
   2 -------------------------------------------------------------------------------
   3                              Ministerio de Economía
   4                                     agenda
   5 -------------------------------------------------------------------------------
   6 This file is part of agenda.
   7
   8 agenda 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 agenda 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: mié ago 13 13:17:35 ART 2003
  22 Autor:  Martin Marrese <mmarre@mecon.gov.ar>
  23 -------------------------------------------------------------------------------
  24 $Id$
  25 -----------------------------------------------------------------------------*/
  26 //REQUIRE ONCE {{{
  27 require_once '../../../local_lib/Servicios/Agenda.php';
  28 require_once 'HTML/Table.php';
  29 require_once 'MECON/HTML/Tabla.php';
  30 require_once '../../../local_lib/HTML_DietMarco.php';
  31 require_once 'MECON/HTML/Image.php';
  32 require_once 'MECON/HTML/Link.php';
  33 require_once 'DB.php';
  34 //}}}
  35 //CREO LA CONEXION A LA BASE DE DATOS {{{
  36 $DB = DB::connect("mysql://intranet:intranet@intranet-db/agenda",true);
  37 if (DB::isError($DB)) {
  38     die ($DB->getMessage());
  39 }
  40 //}}}
  41 //CREO LOS OBJETOS NECESARIOS {{{
  42 $MARCO     = new HTML_DietMarco('servicios', 'Servicios');
  43 $AGENDA    = new Servicios_Agenda ($DB);
  44 $TABLA     = new HTML_Table('width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF"');
  45 $LUPA      = new MECON_HTML_Image('../../images/servicios_lupa.gif');
  46 $MAIL      = new MECON_HTML_Image('../../images/servicios_mail.gif');
  47 $TELECO    = new MECON_HTML_Image('../../images/servicios_logo_telecomunicaciones.gif');
  48 $INFO      = new MECON_HTML_Image('../../images/servicios_info.gif');
  49 $NOTAS     = new MECON_HTML_Image('../../images/servicios_nota.gif');
  50 $V5        = new MECON_HTML_Image('../../images/servicios_flecha_naranja.gif');
  51
  52 $LINK_1    = new MECON_HTML_Link('mailto:teleco@mecon.gov.ar', $MAIL);
  53 $LINK_2    = new MECON_HTML_Link('mailto:teleco@mecon.gov.ar', 'Consultas', array(), array ('class' => 'servicios_agenda_txt2'));
  54 $LINK_3    = new MECON_HTML_Link('agenda1', 'Nueva búsqueda', array(), array ('class' => 'servicios_agenda_txt2'));
  55 $LINK_4    = new MECON_HTML_Link('mailto:teleco@mecon.gov.ar', 'envíenos su consulta o reclamo', array(), array('class' => 'servicios_agenda_textoazul'));;
  56 //}}}
  57 //OBTENGO LOS DATOS DE LAS BASES {{{
  58     if (@$_POST['interno']) { $AGENDA->setInterno($_POST['interno']); }
  59     if (@$_POST['nombre']) { $AGENDA->setNombre($_POST['nombre']); }
  60     if (@$_POST['codep']) { $AGENDA->setCodep($_POST['codep']); }
  61     if (@$_POST['dependencia']) { $AGENDA->setDependencia($_POST['dependencia']); }
  62     if (@$_POST['edificio'] && $_POST['edificio'] != '-') { $AGENDA->setEdificio($_POST['edificio']); }
  63     if (@$_POST['piso']) { $AGENDA->setPiso($_POST['piso']); }
  64     if (@$_POST['oficina']) { $AGENDA->setOficina($_POST['oficina']); }
  65     if (@$_POST['Ordenado_por']['op1']) { $AGENDA->setOrdenar($_POST['Ordenado_por']['op1']); }
  66
  67     $resultado = $AGENDA->obtenerInfo();
  68 //}}}
  69 //ARMO LA TABLA {{{
  70     $TABLA->addRow(array($LINK_1->toHtml(), $LINK_2->toHtml(),
  71                          $LUPA->toHtml(), $LINK_3->toHtml(),
  72                          $TELECO->toHtml()));
  73
  74     $TABLA->updateColAttributes(0,'width="24"');
  75     $TABLA->updateColAttributes(1,'width="60"');
  76     $TABLA->updateColAttributes(2,'width="24"');
  77     $TABLA->updateColAttributes(3,'width="100"');
  78     $TABLA->updateColAttributes(4,'width="525" class="servicios_agenda_txt_derecha"');
  79
  80     //AGREGO LA INFORMACION {{{
  81     if (is_null($resultado)) {
  82         $TABLA->addRow(array('La búsqueda no produjo aciertos'));
  83         $TABLA->setRowAttributes(1,'colspan="5" align="center" class="servicios_agenda_txt_naranja"');
  84     }
  85     else {
  86         $TABLAN = new MECON_HTML_Tabla ('width="760"', 'claro');
  87         //Agrego el encabezado de la tabla interna
  88         $TABLAN->addRow(array($V5->toHtml().'Resultados de la búsqueda de Internos'), 'cabecera');
  89         $TABLAN->addRow(array('Interno','Usuario','Codep','Dependencia','Edificio','Piso','Oficina'), 'titulo');
  90         foreach ($resultado as $res) {
  91             $TABLAN->addRow($res);
  92         }
  93
  94         //ACOMODO LA TABLA {{{
  95         $TABLAN->updateColAttributes(0,'width="47"  height="25"');
  96         $TABLAN->updateColAttributes(1,'width="117" height="25"');
  97         $TABLAN->updateColAttributes(2,'width="76"  height="25"');
  98         $TABLAN->updateColAttributes(3,'width="263" height="25"');
  99         $TABLAN->updateColAttributes(4,'width="108" height="25"');
 100         $TABLAN->updateColAttributes(5,'width="50"  height="25"');
 101         $TABLAN->updateColAttributes(6,'width="83"  height="25"');
 102         $TABLAN->updateCellAttributes(0,0,'height="25" colspan="7" bgcolor="#FFFFFF"');
 103         //}}}
 104         $MARCO->addStyleSheet($TABLAN->getCss()); //Agrego el estilo de la tabla.
 105         $TABLA->addRow(array($TABLAN),'colspan="5"');
 106     }
 107     //}}}
 108
 109     $TABLA->addRow(array('&nbsp;'), 'colspan="5" align="center"');
 110     $TABLA->addRow(array($INFO->toHtml() , 'Información suministrada por el Área Telecomunicaciones del Ministerio de Economía'));
 111     $TABLA->addRow(array($NOTAS->toHtml(), 'NOTA: Si detecta algún error en los datos, '.$LINK_4->toHtml().'.'));
 112
 113     $TABLA->setCellAttributes(3,1,'colspan="4" class="servicios_agenda_textoazul"');
 114     $TABLA->setCellAttributes(4,1,'colspan="4" class="servicios_agenda_textoazul"');
 115 //}}}
 116 //MUESTRO LA INFO {{{
 117 $MARCO->addStyleSheet(PATH_RAIZ.'css/servicios_agenda.css');
 118 //$MARCO->addTitle('Agenda Telefonica');
 119 $MARCO->addBodyContent($TABLA);
 120 $MARCO->display();
 121 //}}}
 122 ?>