- Se agrega el logout para la sesion de embperl

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

diff --git a/sistema/www/sistemas.php b/sistema/www/sistemas.php
index ecc28eea7ef87313db6a1b7fa2698fe0a5644d3a..45b117f7c9a055161c80b36e0c85b35a2b71e029 100644 (file)
--- a/sistema/www/sistemas.php
+++ b/sistema/www/sistemas.php
@@ -59,18 +59,18 @@ require_once 'SAMURAI/constantes.php';
 $perm = new SAMURAI_Perm($_SESSION['usuario'], 0, $DB);
 $samurai = false;
 $sistemas = array();
-foreach ($sists as $i => $s) {
+foreach ($sists as $id => $s) {
     // Agrego los sistemas en los que tiene permiso.
     $perm->setSistema($s->sistema);
     if ($perm->tiene()) {
         // Si es SAMURAI hay que ver si ya no lo agregamos antes.
-        if ($s->sistema == SAMURAI_PERM) {
+        if ($id == SAMURAI_PERM) {
             if (!$samurai) {
                 $samurai = true;
-                $sistemas[] = $sists[$i];
+                $sistemas[] = $sists[$id];
             }
         } else { // Si no es SAMURAI lo agregamos incondicionalmente.
-            $sistemas[] = $sists[$i];
+            $sistemas[] = $sists[$id];
         }
     }
     // Si tiene permisos de SAMURAI en un sistema, hay que mostrar un link a