]> git.llucax.com Git - mecon/intranet.git/blob - sistema/www/sistemas.php
- Primera version semi-funcional de bandas. Otros cambios que no tengo idea de que...
[mecon/intranet.git] / sistema / www / sistemas.php
1 <?php
2 // vim: set binary expandtab ts=4 shiftwidth=4 textwidth=80:
3 // $Id$
4 require_once '../local_lib/HTML_DietMarco.php';
5 if(!isset($_SESSION['usuario']))
6 {
7   header('location: login?redirect=sistemas');
8   exit;
9 }
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 'AI/DB.php';
15 require_once 'DB.php';
16 require_once 'AI/Sistema.php';
17
18 define('COLUMNAS', 2);
19
20 $t = new HTML_Table(
21     array(
22         'width'         => '760',
23         'cellspacing'   => '10',
24         'cellpadding'   => '0',
25         'border'        => '0',
26     )
27 );
28
29 $db = IntranetDB::connect();
30 $sistemas = AI_Sistema::getSistemas($db);
31
32 $pct = intval(100/COLUMNAS) . '%';
33 $sistema = @array_shift($sistemas);
34 while ($sistema) {
35     $row = array();
36     for ($j = 0; $j < COLUMNAS; $j++) {
37         if ($sistema) {
38             $img = new MECON_HTML_Image(
39                     "/sistemas/intranet/images/$sistema->icono",
40                     $sistema->nombre,
41                     array(
42                         'title'  => $sistema->descripcion,
43                         'border' => 0,
44                         'align'  => 'middle',
45                     )
46             );
47                         $link = new MECON_HTML_Link(
48                                 $sistema->link,
49                                 $sistema->nombre,
50                                 array(),
51                         array(
52                                     'title'  => $sistema->descripcion,
53                                     'target' => '_blank',
54                                 )
55                     );
56             $html = $img->toHtml() . $link->toHtml() . '<BR>'
57                         . $sistema->descripcion;
58                 if ($sistema->link_ayuda) {
59                         $link = new MECON_HTML_Link(
60                                         $sistema->link_ayuda,
61                                         '(?)',
62                                         array(),
63                                         array('target' => '_blank')
64                                 );
65                                 $html .= $link->toHtml();
66                         }
67             $row[] = $html;
68             $sistema = @array_shift($sistemas);
69         } else {
70             $row[] = '&nbsp;';
71         }
72     }
73     $t->addRow($row, array('width' => $pct, 'valign' => 'top'));
74 }
75
76 $m = new HTML_DietMarco('sistemas');
77 $m->addTitle('Sistemas');
78 $m->addBodyContent($t);
79 $m->display();
80     
81 ?>