Agrego el modulito que traduce la sesion de PHP a PERL. Hay que modificarlo en cada...

[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 4fc70035a3a8c493de18102e91b7d0d78dd73a98..d4701a53789ec65e02c988bdf620f253f4e6e428 100644 (file)
--- a/sistema/www/servicios/agenda/agenda1.php
+++ b/sistema/www/servicios/agenda/agenda1.php
@@ -24,17 +24,14 @@ Autor:  Martin Marrese <mmarre@mecon.gov.ar>
 $Id$
 -----------------------------------------------------------------------------*/
 
-require_once 'MECON/general.php';
-prepend_include_path('/home/mmarrese/public_html/meconlib/lib/');
-
 //REQUIRE ONCE {{{
 require_once '../../../local_lib/Servicios/Agenda.php';
 require_once 'HTML/Table.php';
 require_once 'MECON/HTML/Tabla.php';
 require_once '../../../local_lib/HTML_DietMarco.php';
 require_once 'MECON/HTML/QuickForm.php';
-require_once 'HTML/Image.php';
-require_once 'HTML/Link.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 {{{
@@ -49,11 +46,11 @@ $MARCO     = new HTML_DietMarco('servicios');
 $FORM      = new MECON_HTML_QuickForm('agenda', 'post', 'agenda2', '', array ('onSubmit' => "return validar(this)", 'action' => ''));
 $FORM->renderer->setTable($TABLAFORM);
 $TABLA     = new HTML_Table('width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF"');
-$IMG1      = new HTML_Image('../../images/servicios_agenda_lupa.gif');
-$IMG2      = new HTML_Image('../../images/servicios_agenda_mail.gif');
-$TELECO    = new HTML_Image('../../images/servicios_agenda_teleco.gif');
-$LINK_1    = new HTML_Link('mailto:teleco@mecon.gov.ar', $IMG2);
-$LINK_2    = new HTML_Link('mailto:teleco@mecon.gov.ar', 'Consultas', array(), array ('class' => 'txt2'));
+$IMG1      = new MECON_HTML_Image('../../images/servicios_agenda_lupa.gif');
+$IMG2      = new MECON_HTML_Image('../../images/servicios_agenda_mail.gif');
+$TELECO    = new MECON_HTML_Image('../../images/servicios_agenda_teleco.gif');
+$LINK_1    = new MECON_HTML_Link('mailto:teleco@mecon.gov.ar', $IMG2);
+$LINK_2    = new MECON_HTML_Link('mailto:teleco@mecon.gov.ar', 'Consultas', array(), array ('class' => 'txt2'));
 //}}}
 //OBTENGO LOS DATOS DE LAS BASES {{{
 $EDIFICIOS = Servicios_Agenda::getEdificios($DB);