X-Git-Url: https://git.llucax.com/mecon/intranet.git/blobdiff_plain/db385f016696b16f79f31dbbb71949638aefcd61..44fcb3a7b8938f963abbb0579d7b9283fcf739df:/sistema/www/sistemas.php

diff --git a/sistema/www/sistemas.php b/sistema/www/sistemas.php
index 5e51dbc..46e6310 100644
--- a/sistema/www/sistemas.php
+++ b/sistema/www/sistemas.php
@@ -54,12 +54,26 @@ $t->addRow($fila);
 $db = IntranetDB::connect();
 $sistemas = AI_Sistema::getSistemas($db);
 
-//$pct = intval(100/COLUMNAS) . '%';
+// Me fijo que sistemas puede ver este usuario.
+require_once 'SAMURAI/Perm.php';
+$perm = new SAMURAI_Perm($_SESSION['usuario'], 0, $db);
+foreach ($sistemas as $i => $s) {
+    // Si no tiene permisos para el sistema, lo saco de la lista.
+    $perm->setSistema($s->sistema);
+    if (!$perm->tiene()) {
+        unset($sistemas[$i]);
+    }
+}
+
 $sistema = @array_shift($sistemas);
 while ($sistema) {
     $row = array();
     for ($j = 1; $j <= COLUMNAS; $j++) {
         if ($sistema) {
+            $url = $sistema->link;
+            if ($sistema->tipo == 'embperl') {
+                $url .= '?soy_embperl=1';
+            }
             $img = new MECON_HTML_Image(
                     "/sistemas/intranet/images/$sistema->icono",
                     $sistema->nombre,
@@ -70,7 +84,7 @@ while ($sistema) {
                     )
             );
 			$row[] = new MECON_HTML_Link(
-				$sistema->link,
+				$url,
                 $img,
 				array(),
 		    	array(
@@ -79,7 +93,7 @@ while ($sistema) {
 		    );
             $row[] = '&nbsp;';
 			$link = new MECON_HTML_Link(
-				$sistema->link,
+				$url,
                 $sistema->nombre,
 				array(),
 		    	array(