Agrego mensages de error.

[mecon/intranet.git] / sistema / www / servicios / agenda / agenda1.php

diff --git a/sistema/www/servicios/agenda/agenda1.php b/sistema/www/servicios/agenda/agenda1.php
index c86f270bbfc808d6c500081433703489512688a5..1facfd4e090744d601c4cccc3bc4863e21675d02 100644 (file)
--- a/sistema/www/servicios/agenda/agenda1.php
+++ b/sistema/www/servicios/agenda/agenda1.php
@@ -25,20 +25,13 @@ $Id$
 -----------------------------------------------------------------------------*/
 
 //REQUIRE ONCE {{{
-require_once '../../../local_lib/Servicios/Agenda.php';
+require_once 'Servicios/Agenda.php';
 require_once 'HTML/Table.php';
 require_once 'MECON/HTML/Tabla.php';
-require_once '../../../local_lib/HTML_DietMarco.php';
+require_once 'HTML_DietMarco.php';
 require_once 'MECON/HTML/QuickForm.php';
 require_once 'MECON/HTML/Image.php';
 require_once 'MECON/HTML/Link.php';
-require_once 'DB.php';
-//}}}
-//CREO LA CONEXION A LA BASE DE DATOS {{{
-$DB = DB::connect("mysql://intranet:intranet@intranet-db/agenda",true);
-if (DB::isError($DB)) {
-    die ($DB->getMessage());
-}
 //}}}
 //CREO LOS OBJETOS NECESARIOS {{{
 $TABLAFORM = new MECON_HTML_Tabla ('width="500"', 'claro');
@@ -54,6 +47,9 @@ $LINK_2    = new MECON_HTML_Link('mailto:teleco@mecon.gov.ar', 'Consultas', arra
 //}}}
 //OBTENGO LOS DATOS DE LAS BASES {{{
 $EDIFICIOS = Servicios_Agenda::getEdificios($DB); 
+if (PEAR::isError($EDIFICIOS)) {
+    trigger_error('Error: ' . $EDIFICIOS->getMessage() . "\n", E_USER_ERROR);
+}
 //}}}
 //AGREGO LOS ELEMENTOS AL FORM {{{
 $header        =& $FORM->addElement('header', 'cabecera'      , $IMG1->toHtml().'Búsqueda de Internos');