2 // vim: set binary expandtab ts=4 shiftwidth=4 textwidth=80:
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';
14 define('COLUMNAS', 3);
27 $db = IntranetDB::connect();
28 $sistemas = AI_Sistema::getSistemas($db);
30 $pct = intval(100/COLUMNAS) . '%';
31 $sistema = @array_shift($sistemas);
34 for ($j = 0; $j < COLUMNAS; $j++) {
36 $img = new HTML_Image(
37 "/sistemas/intranet/images/$sistema->icono",
40 'title' => $sistema->descripcion,
42 'align' => 'absmiddle',
45 $link = new HTML_Link(
50 'title' => $sistema->descripcion,
54 $html = $img->toHtml() . $link->toHtml() . '<BR>'
55 . $sistema->descripcion;
56 if ($sistema->link_ayuda) {
57 $link = new HTML_Link(
61 array('target' => '_blank')
63 $html .= $link->toHtml();
66 $sistema = @array_shift($sistemas);
71 $t->addRow($row, array('width' => $pct));
74 $m = new HTML_DietMarco('sistemas');
75 $m->addTitle('Sistemas');
76 $m->addBodyContent($t);