]> git.llucax.com Git - mecon/intranet.git/blob - sistema/www/servicios.php
Login redirige cualquier cosa con redirect
[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, true, AI_SERVICIO_ORDEN_LONG_HIJOS);
18   $col_par = '';
19   $col_impar = '';
20   $impar = true;
21   $otro = false;
22   foreach($serv->getHijos() as $s)
23   {
24       $sh =& new HTML_Servicio($s->servicio);
25       if($impar)
26       {
27         $col_impar .= $sh->toHTML().'<br>';
28         if ($otro) $otro = false;
29         else
30         {
31           $impar = false;
32           $otro = true;
33         }
34       }
35       else
36       {
37         $col_par .= $sh->toHTML().'<br>';
38         if ($otro) $otro = false;
39         else
40         {
41           $impar = true;
42           $otro = true;
43         }
44       }
45   }
46   $m->addStyleSheet($sh->getCSS());
47   $tabla =& new HTML_Table(array('width' => 760,
48                                  'cellspacing' => 10));
49   $tabla->addRow(array($col_impar, $col_par), array('valign'=>'top'));
50   $m->addBodyContent($tabla);
51
52   $m->display();
53 ?>