- Se agrega el comportamiento especial para las paginas de la oanet:

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

diff --git a/sistema/www/sistemas.php b/sistema/www/sistemas.php
index 4981c2486bdc598ca19e94b3d4ce66feade12125..dbc1d3773f66913a6a02ac3e3dc74d7c57cc4d2b 100644 (file)
--- a/sistema/www/sistemas.php
+++ b/sistema/www/sistemas.php
@@ -13,6 +13,7 @@ require_once 'MECON/HTML/Link.php';
 require_once 'MECON/HTML/Image.php';
 require_once 'DB.php';
 require_once 'AI/Sistema.php';
+require_once 'HTML_Mensaje.php';
 
 define('COLUMNAS', 3);
 
@@ -88,6 +89,10 @@ foreach ($sists as $id => $s) {
 unset($sists);
 unset($samurai);
 
+if (!$sistemas) {
+    $t = new HTML_Mensaje('denegado',
+            'No tiene permisos para usar ningún sistema', 370);
+}
 $sistema = @array_shift($sistemas);
 while ($sistema) {
     $row = array();