]> git.llucax.com Git - mecon/intranet.git/blob - sistema/www/servicios.php
Adapte la agenda a los nuevos estilos de MECON_HTML_Tabla
[mecon/intranet.git] / sistema / www / servicios.php
1 <?
2   require_once '../local_lib/HTML_DietMarco.php';
3   require_once '../local_lib/HTML_Servicio.php';
4   require_once 'AI/Servicio.php';
5 //  require_once 'AI/DB.php';
6   require_once 'DB.php';
7   $m = new HTML_DietMarco('servicios', 'Servicios');
8   $m->addTitle('Servicios');
9  
10   $n_serv = 0;
11   if(isset($_GET['servicios']))
12       $n_serv = $_GET['servicios'];
13   $serv = new AI_Servicio($n_serv);
14   //$bd = AI_DB::Connect();
15   $bd = DB::Connect('mysql://intranet:intranet@bal747f/intranet');
16   $serv->cargar($bd);
17   $serv->cargarHijos($bd);
18   $col_par = '';
19   $col_impar = '';
20   $impar = true;
21   foreach($serv->getHijos() as $s)
22   {
23       $sh =& new HTML_Servicio($s->servicio);
24       if($impar)
25       {
26         $col_impar .= $sh->toHTML().'<br>';
27         $impar = false;
28       }
29       else
30       {
31         $col_par .= $sh->toHTML().'<br>';
32         $impar = true;
33       }
34   }
35   $m->addStyleSheet($sh->getCSS());
36   $tabla =& new HTML_Table(array('width' => 760,
37                                  'cellspacing' => 10));
38   $tabla->addRow(array($col_impar, $col_par), array('valign'=>'top'));
39   $m->addBodyContent($tabla);
40
41   $m->display();
42 ?>