2 // vim: set binary expandtab ts=4 shiftwidth=4 textwidth=80:
4 require_once '../local_lib/HTML_DietMarco.php';
5 if(!isset($_SESSION['usuario']))
7 header('location: login?redirect=sistemas');
10 require_once '../local_lib/intranetdb.php';
11 require_once 'HTML/Table.php';
12 require_once 'MECON/HTML/Link.php';
13 require_once 'MECON/HTML/Image.php';
14 require_once 'DB.php';
15 require_once 'AI/Sistema.php';
17 define('COLUMNAS', 3);
28 // Agrego fila con espaciados.
29 $img = new MECON_HTML_Image('/MECON/images/blanco', '', array('height' => 1));
30 $img->updateAttributes(array('width' => 46));
32 $img->updateAttributes(array('width' => 4));
34 $img->updateAttributes(array('width' => 190));
36 $img->updateAttributes(array('width' => 20));
38 $img->updateAttributes(array('width' => 46));
40 $img->updateAttributes(array('width' => 4));
42 $img->updateAttributes(array('width' => 190));
44 $img->updateAttributes(array('width' => 20));
46 $img->updateAttributes(array('width' => 46));
48 $img->updateAttributes(array('width' => 4));
50 $img->updateAttributes(array('width' => 190));
54 $db = IntranetDB::connect();
55 $sistemas = AI_Sistema::getSistemas($db);
57 //$pct = intval(100/COLUMNAS) . '%';
58 $sistema = @array_shift($sistemas);
61 for ($j = 1; $j <= COLUMNAS; $j++) {
63 $row[] = new MECON_HTML_Image(
64 "/sistemas/intranet/images/$sistema->icono",
73 $link = new MECON_HTML_Link(
79 'class' => 'intranet_sistemas_txt',
82 $html = $link->toHtml() . ': ' . $sistema->descripcion;
83 if ($sistema->link_ayuda) {
85 $img = new MECON_HTML_Image(
86 '/sistemas/intranet/images/sistemas_ayuda',
89 $link = new MECON_HTML_Link(
95 'class' => 'intranet_sistemas_txt',
98 $html .= $link->toHtml();
101 $sistema = @array_shift($sistemas);
107 if ($j % (COLUMNAS)) {
111 $t->addRow(array(' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' '));
112 $t->addRow($row, array('class' => 'intranet_sistemas_txt'));
115 $m = new HTML_DietMarco('sistemas', 'Sistemas');
116 $m->addTitle('Sistemas');
117 $m->addStyleDeclaration('
118 .intranet_sistemas_txt {
120 FONT-FAMILY: Arial, Helvetica, sans-serif;
125 background-position: left centre;
127 vertical-align: middle;
128 text-decoration: none;
130 A.intranet_sistemas_txt {
134 $m->addBodyContent($t);