]> git.llucax.com Git - mecon/intranet.git/blob - sistema/www/sistemas.php
Ahora el copete toma correctamente los estilos propios desde cualquier directorio.
[mecon/intranet.git] / sistema / www / sistemas.php
1 <?php
2 // vim: set binary expandtab ts=4 shiftwidth=4 textwidth=80:
3 // $Id$
4
5 require_once '../local_lib/HTML_DietMarco.php';
6 require_once '../local_lib/intranetdb.php';
7 require_once 'MECON/HTML/Arbol/ArbolDB.php';
8 require_once 'HTML/Table.php';
9 require_once 'HTML/Link.php';
10 #require_once 'AI/DB.php';
11 require_once 'DB.php';
12 require_once 'AI/Sistema.php';
13
14 define('COLUMNAS', 3);
15
16 $t = new HTML_Table(
17     array(
18         'width'         => '100%',
19         'cellspacing'   => '0',
20         'cellpadding'   => '0',
21         'border'        => '0',
22         'align'         => 'left',
23         'valign'        => 'middle',
24     )
25 );
26
27 $db = IntranetDB::connect();
28 $sistemas = AI_Sistema::getSistemas($db);
29
30 $pct = intval(100/COLUMNAS) . '%';
31 $sistema = @array_shift($sistemas);
32 while ($sistema) {
33     $row = array();
34     for ($j = 0; $j < COLUMNAS; $j++) {
35         if ($sistema) {
36             $img = new HTML_Image(
37                     "/sistemas/intranet/images/$sistema->icono",
38                     $sistema->nombre,
39                     array(
40                         'title'  => $sistema->descripcion,
41                         'border' => 0,
42                         'align'  => 'absmiddle',
43                     )
44             );
45                         $link = new HTML_Link(
46                                 $sistema->link,
47                                 $sistema->nombre,
48                                 array(),
49                         array(
50                                     'title'  => $sistema->descripcion,
51                                     'target' => '_blank',
52                                 )
53                     );
54             $html = $img->toHtml() . $link->toHtml() . '<BR>'
55                         . $sistema->descripcion;
56                 if ($sistema->link_ayuda) {
57                         $link = new HTML_Link(
58                                         $sistema->link_ayuda,
59                                         '(?)',
60                                         array(),
61                                         array('target' => '_blank')
62                                 );
63                                 $html .= $link->toHtml();
64                         }
65             $row[] = $html;
66             $sistema = @array_shift($sistemas);
67         } else {
68             $row[] = '&nbsp;';
69         }
70     }
71     $t->addRow($row, array('width' => $pct));
72 }
73
74 $m = new HTML_DietMarco('sistemas');
75 $m->addTitle('Sistemas');
76 $m->addBodyContent($t);
77 $m->display();
78     
79 ?>