Se corrige un bug.

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

diff --git a/sistema/www/sistemas.php b/sistema/www/sistemas.php
index 0bebcda6a37aeb3d4b705ddb0678879aecda7ca1..d4d61e270d982c3010ed1747a0828f3ecfe7b56b 100644 (file)
--- a/sistema/www/sistemas.php
+++ b/sistema/www/sistemas.php
@@ -1,11 +1,16 @@
 <?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 'MECON/HTML/Arbol/ArbolDB.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';
@@ -32,7 +37,7 @@ while ($sistema) {
     $row = array();
     for ($j = 0; $j < COLUMNAS; $j++) {
         if ($sistema) {
-            $img = new HTML_Image(
+            $img = new MECON_HTML_Image(
                     "/sistemas/intranet/images/$sistema->icono",
                     $sistema->nombre,
                     array(
@@ -41,12 +46,27 @@ while ($sistema) {
                         'align'  => 'absmiddle',
                     )
             );
-            $row[] = $img->toHtml().' <A href="'.$sistema->link.'" title="'
-                . $sistema->descripcion.'" target="_blank">'.$sistema->nombre
-                . '</A><BR>' . $sistema->descripcion
-               . ($sistema->link_ayuda
-                   ? (' <A href="'.$sistema->link_ayuda.'" target="_blank" alt="Ayuda">(?)</A>')
-                   : '');
+                       $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;';