]> git.llucax.com Git - mecon/intranet.git/blob - sistema/www/servicios/agenda/agenda2.php
- Primera version semi-funcional de bandas. Otros cambios que no tengo idea de que...
[mecon/intranet.git] / 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 '../../../local_lib/HTML_DietMarco.php';
30 require_once 'MECON/HTML/Image.php';
31 require_once 'MECON/HTML/Link.php';
32 require_once 'DB.php';
33 //}}}
34 //CREO LA CONEXION A LA BASE DE DATOS {{{
35 $DB = DB::connect("mysql://intranet:intranet@intranet-db/agenda",true);
36 if (DB::isError($DB)) {
37     die ($DB->getMessage());
38 }
39 //}}}
40 //CREO LOS OBJETOS NECESARIOS {{{
41 $MARCO     = new HTML_DietMarco('servicios');
42 $AGENDA    = new Servicios_Agenda ($DB);
43 $TABLA     = new HTML_Table('width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF"');
44 $LUPA      = new MECON_HTML_Image('../../images/servicios_agenda_lupa.gif');
45 $MAIL      = new MECON_HTML_Image('../../images/servicios_agenda_mail.gif');
46 $TELECO    = new MECON_HTML_Image('../../images/servicios_agenda_teleco.gif');
47 $INFO      = new MECON_HTML_Image('../../images/servicios_agenda_info.gif');
48 $NOTAS     = new MECON_HTML_Image('../../images/servicios_agenda_notas.gif');
49 $V5        = new MECON_HTML_Image('../../images/servicios_agenda_v5.gif');
50
51 $LINK_1    = new MECON_HTML_Link('mailto:teleco@mecon.gov.ar', $MAIL);
52 $LINK_2    = new MECON_HTML_Link('mailto:teleco@mecon.gov.ar', 'Consultas', array(), array ('class' => 'txt2'));
53 $LINK_3    = new MECON_HTML_Link('agenda1', 'Nueva búsqueda', array(), array ('class' => 'txt2'));
54 $LINK_4    = new MECON_HTML_Link('mailto:teleco@mecon.gov.ar', 'envíenos su consulta o reclamo');
55 //}}}
56 //OBTENGO LOS DATOS DE LAS BASES {{{
57     if (@$_POST['interno']) { $AGENDA->setInterno($_POST['interno']); }
58     if (@$_POST['nombre']) { $AGENDA->setNombre($_POST['nombre']); }
59     if (@$_POST['codep']) { $AGENDA->setCodep($_POST['codep']); }
60     if (@$_POST['dependencia']) { $AGENDA->setDependencia($_POST['dependencia']); }
61     if (@$_POST['edificio'] && $_POST['edificio'] != '-') { $AGENDA->setEdificio($_POST['edificio']); }
62     if (@$_POST['piso']) { $AGENDA->setPiso($_POST['piso']); }
63     if (@$_POST['oficina']) { $AGENDA->setOficina($_POST['oficina']); }
64     if (@$_POST['Ordenado_por']['op1']) { $AGENDA->setOrdenar($_POST['Ordenado_por']['op1']); }
65
66     $resultado = $AGENDA->obtenerInfo();    
67 //}}}
68 //ARMO LA TABLA {{{
69     $TABLA->addRow(array($LINK_1->toHtml(), $LINK_2->toHtml(), 
70                          $LUPA->toHtml(), $LINK_3->toHtml(),
71                          $TELECO->toHtml()));
72                      
73     $TABLA->updateColAttributes(0,'width="24"');
74     $TABLA->updateColAttributes(1,'width="60"');
75     $TABLA->updateColAttributes(2,'width="24"');
76     $TABLA->updateColAttributes(3,'width="100"');
77     $TABLA->updateColAttributes(4,'width="525" class="txt_derecha"');
78                  
79     //AGREGO LA INFORMACION {{{
80     if (is_null($resultado)) {
81         $TABLA->addRow(array('La búsqueda no produjo aciertos'));
82         $TABLA->setRowAttributes(1,'colspan="5" align="center" class="txt_naranja"');
83     }
84     else {
85         $TABLA3 = new HTML_Table('width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#003366"');
86         $TABLA2 = new HTML_Table('width="760" border="0" cellspacing="2" cellpadding="1"');
87         //Agrego el encabezado de la tabla interna
88         $TABLA2->addRow(array($V5->toHtml().'Resultados de la búsqueda de Internos'));
89         $TABLA2->addRow(array('Interno','Usuario','Codep','Dependencia','Edificio','Piso','Oficina'), 'bgcolor="#FFFFFF"');
90         foreach ($resultado as $res) {
91             $TABLA2->addRow($res, 'class="txt1" bgcolor="#FFFFFF"');
92         }
93
94         //ACOMODO LA TABLA {{{
95         $TABLA2->updateColAttributes(0,'width="47"  class="txt2" height="25"');
96         $TABLA2->updateColAttributes(1,'width="117" class="txt2" height="25"');
97         $TABLA2->updateColAttributes(2,'width="76"  class="txt2" height="25"');
98         $TABLA2->updateColAttributes(3,'width="263" class="txt2" height="25"');
99         $TABLA2->updateColAttributes(4,'width="108" class="txt2" height="25"');
100         $TABLA2->updateColAttributes(5,'width="50"  class="txt2" height="25"');
101         $TABLA2->updateColAttributes(6,'width="83"  class="txt2" height="25"');
102         $TABLA2->setCellAttributes(0,0,'class="titulo_form" height="25" colspan="7" bgcolor="#FFFFFF"');
103         $TABLA2->updateRowAttributes(1, 'class="txt1"');
104         //}}}
105         $TABLA3->addRow(array($TABLA2));
106         $TABLA->addRow(array($TABLA3),'colspan="5"');
107     }
108     //}}}
109
110     $TABLA->addRow(array('&nbsp;'), 'colspan="5" align="center"');
111     $TABLA->addRow(array($INFO->toHtml() , 'Información suministrada por el Área Telecomunicaciones del Ministerio de Economía'));
112     $TABLA->addRow(array($NOTAS->toHtml(), 'NOTA: Si detecta algún error en los datos, '.$LINK_4->toHtml().'.'));
113                          
114     $TABLA->setCellAttributes(3,1,'colspan="4" class="textoazul"');
115     $TABLA->setCellAttributes(4,1,'colspan="4" class="textoazul"');
116 //}}}
117 //MUESTRO LA INFO {{{
118 $MARCO->addStyleSheet(PATH_RAIZ.'css/servicios_agenda.css');
119 $MARCO->addTitle('Agenda Telefonica');
120 $MARCO->addBodyContent($TABLA);
121 $MARCO->display();
122 //}}}
123 ?>