Se corrige un bug.

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

diff --git a/sistema/www/sistemas.php b/sistema/www/sistemas.php
index c4951646f8a0ceaf16d7cedb0f72ed6f9fe2ace7..d4d61e270d982c3010ed1747a0828f3ecfe7b56b 100644 (file)
--- a/sistema/www/sistemas.php
+++ b/sistema/www/sistemas.php
@@ -1,12 +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 'HTML/Link.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';
@@ -33,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(
@@ -42,7 +46,7 @@ while ($sistema) {
                         'align'  => 'absmiddle',
                     )
             );
-                       $link = new HTML_Link(
+                       $link = new MECON_HTML_Link(
                                $sistema->link,
                                $sistema->nombre,
                                array(),
@@ -54,7 +58,7 @@ while ($sistema) {
             $html = $img->toHtml() . $link->toHtml() . '<BR>'
                        . $sistema->descripcion;
                if ($sistema->link_ayuda) {
-                       $link = new HTML_Link(
+                       $link = new MECON_HTML_Link(
                                        $sistema->link_ayuda,
                                        '(?)',
                                        array(),