Se pasa Php2Embperl_Session.epl al repositorio scripts y se actualiza documentacion.

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

diff --git a/sistema/www/sistemas.php b/sistema/www/sistemas.php
index 98512a82308b0a6fa9d77b8b28a0bf0da766a5f4..40c6bcea512d65e3a323e565f06b646a35536e12 100644 (file)
--- a/sistema/www/sistemas.php
+++ b/sistema/www/sistemas.php
@@ -54,13 +54,27 @@ $t->addRow($fila);
 $db = IntranetDB::connect();
 $sistemas = AI_Sistema::getSistemas($db);
 
 $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) {
 $sistema = @array_shift($sistemas);
 while ($sistema) {
     $row = array();
     for ($j = 1; $j <= COLUMNAS; $j++) {
         if ($sistema) {

-            $row[] = new MECON_HTML_Image(
+            $url = $sistema->link;
+            if ($sistema->tipo == 'embperl') {
+                $url = '/Php2Embperl_Session?redirect=' . urlencode($url);
+            }
+            $img = new MECON_HTML_Image(

                     "/sistemas/intranet/images/$sistema->icono",
                     $sistema->nombre,
                     array(
                     "/sistemas/intranet/images/$sistema->icono",
                     $sistema->nombre,
                     array(


@@ -69,12 +83,26 @@ while ($sistema) {
                         'height' => '46',
                     )
             );
                         'height' => '46',
                     )
             );

+                       $row[] = new MECON_HTML_Link(
+                               $url,
+                $img,
+                               array(),
+                       array(
+                    'OnClick' =>
+                        "javascript:window.open('$url','s{$sistema->sistema}',"
+                        . "'width=790,height=500,scrollbars=yes');return false;",
+                                   'target' => '_blank',
+                               )
+                   );

             $row[] = '&nbsp;';
                        $link = new MECON_HTML_Link(
             $row[] = '&nbsp;';
                        $link = new MECON_HTML_Link(

-                               $sistema->link,
+                               $url,

                 $sistema->nombre,
                                array(),
                        array(
                 $sistema->nombre,
                                array(),
                        array(

+                    'OnClick' =>
+                        "javascript:window.open('$url','s{$sistema->sistema}',"
+                        . "'width=790,height=500,scrollbars=yes');return false;",

                                    'target' => '_blank',
                     'class' => 'intranet_sistemas_txt',
                                )
                                    'target' => '_blank',
                     'class' => 'intranet_sistemas_txt',
                                )


@@ -91,8 +119,11 @@ while ($sistema) {
                                        $img,
                                        array(),
                                        array(
                                        $img,
                                        array(),
                                        array(

+                        'OnClick' =>
+                            "javascript:window.open('{$sistema->link_ayuda}',"
+                            . "'sa{$sistema->sistema}',"
+                            . "'width=790,height=500,scrollbars=yes');return false;",

                         'target' => '_blank',
                         'target' => '_blank',

-                        'class' => 'intranet_sistemas_txt',

                     )
                                );
                 $html .= $link->toHtml();
                     )
                                );
                 $html .= $link->toHtml();


@@ -113,22 +144,16 @@ while ($sistema) {
 }
 
 $m = new HTML_DietMarco('sistemas', 'Sistemas');
 }
 
 $m = new HTML_DietMarco('sistemas', 'Sistemas');

-$m->addTitle('Sistemas');
+//$m->addTitle('Sistemas');

 $m->addStyleDeclaration('
     .intranet_sistemas_txt {
 $m->addStyleDeclaration('
     .intranet_sistemas_txt {

-        COLOR: #003366;
-        FONT-FAMILY: Arial, Helvetica, sans-serif;
-        FONT-SIZE: 10pt;
-        FONT-WEIGHT: normal;
-        font-style: normal;
-        line-height: normal;
-        background-position: left centre;
-        text-align: left;
-        vertical-align: middle;
-        text-decoration: none;
+        color: #003366;
+        font-family: Arial, Helvetica, sans-serif;
+        font-size: 10pt;

     }
     A.intranet_sistemas_txt {
         font-weight: bold;
     }
     A.intranet_sistemas_txt {
         font-weight: bold;

+        text-decoration: none;

     }'
 );
 $m->addBodyContent($t);
     }'
 );
 $m->addBodyContent($t);