Se corrige un bug.

[mecon/intranet.git] / sistema / www / sistemas.php

diff --git a/sistema/www/sistemas.php b/sistema/www/sistemas.php
index a4cbd58151da4c0d3713bcc3b3a6c0a6dcb94672..d4d61e270d982c3010ed1747a0828f3ecfe7b56b 100644 (file)
--- a/sistema/www/sistemas.php
+++ b/sistema/www/sistemas.php
@@ -1,19 +1,83 @@
-<?
-  require_once '../local_lib/HTML_DietMarco.php';
-  require_once '../local_lib/intranetdb.php';
-  require_once 'MECON/HTML/Arbol/ArbolDB.php';
-  $m = new HTML_DietMarco('sistemas');
-  $m->addTitle('Sistemas');
-  
-  $db = IntranetDB::connect();
-  $dbdata = array(
-       'db' => $db,
-       'tabla' => 'sistema',
-       'id' => 'sistema',
-       'nombre' => 'sistema',
-       'link' => 'link');
-  $arbol = new HTML_ArbolDB($dbdata, 'SISTEMAS');
-  
-  $m->addBodyContent($arbol);
-  $m->display();
+<?php
+// vim: set binary expandtab ts=4 shiftwidth=4 textwidth=80:
+// $Id$
+require_once '../local_lib/HTML_DietMarco.php';
+if(!isset($_SESSION['usuario']))
+{
+  header('location: login?redirect=sistemas');
+  exit;
+}
+require_once '../local_lib/intranetdb.php';
+require_once 'HTML/Table.php';
+require_once 'MECON/HTML/Link.php';
+require_once 'MECON/HTML/Image.php';
+#require_once 'AI/DB.php';
+require_once 'DB.php';
+require_once 'AI/Sistema.php';
+
+define('COLUMNAS', 3);
+
+$t = new HTML_Table(
+    array(
+        'width'         => '100%',
+        'cellspacing'   => '0',
+        'cellpadding'   => '0',
+        'border'        => '0',
+        'align'         => 'left',
+        'valign'        => 'middle',
+    )
+);
+
+$db = IntranetDB::connect();
+$sistemas = AI_Sistema::getSistemas($db);
+
+$pct = intval(100/COLUMNAS) . '%';
+$sistema = @array_shift($sistemas);
+while ($sistema) {
+    $row = array();
+    for ($j = 0; $j < COLUMNAS; $j++) {
+        if ($sistema) {
+            $img = new MECON_HTML_Image(
+                    "/sistemas/intranet/images/$sistema->icono",
+                    $sistema->nombre,
+                    array(
+                        'title'  => $sistema->descripcion,
+                        'border' => 0,
+                        'align'  => 'absmiddle',
+                    )
+            );
+                       $link = new MECON_HTML_Link(
+                               $sistema->link,
+                               $sistema->nombre,
+                               array(),
+                       array(
+                                   'title'  => $sistema->descripcion,
+                                   'target' => '_blank',
+                               )
+                   );
+            $html = $img->toHtml() . $link->toHtml() . '<BR>'
+                       . $sistema->descripcion;
+               if ($sistema->link_ayuda) {
+                       $link = new MECON_HTML_Link(
+                                       $sistema->link_ayuda,
+                                       '(?)',
+                                       array(),
+                                       array('target' => '_blank')
+                               );
+                               $html .= $link->toHtml();
+                       }
+            $row[] = $html;
+            $sistema = @array_shift($sistemas);
+        } else {
+            $row[] = '&nbsp;';
+        }
+    }
+    $t->addRow($row, array('width' => $pct));
+}
+
+$m = new HTML_DietMarco('sistemas');
+$m->addTitle('Sistemas');
+$m->addBodyContent($t);
+$m->display();
+    

 ?>
 ?>