Ya anda la compatibilidad con Embperl.

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

diff --git a/sistema/www/sistemas.php b/sistema/www/sistemas.php
index 46e6310aad0b0f2954febdfe12c65ee579ba2ffe..7e7bfaa61a02922ccbd65a52c3af99c1a8cd63cf 100644 (file)
--- a/sistema/www/sistemas.php
+++ b/sistema/www/sistemas.php
@@ -72,7 +72,7 @@ while ($sistema) {
         if ($sistema) {
             $url = $sistema->link;
             if ($sistema->tipo == 'embperl') {
         if ($sistema) {
             $url = $sistema->link;
             if ($sistema->tipo == 'embperl') {

-                $url .= '?soy_embperl=1';
+                $url = '/Php2Embperl_Session?redirect=' . urlencode($url);

             }
             $img = new MECON_HTML_Image(
                     "/sistemas/intranet/images/$sistema->icono",
             }
             $img = new MECON_HTML_Image(
                     "/sistemas/intranet/images/$sistema->icono",