- Se agrega el logout para la sesion de embperl

diff --git a/sistema/www/logout.php b/sistema/www/logout.php
index b7ef64980f2d50aa0fa4a7bfeda8a9f42d0ee2fe..2d1f3369f1f1af4432f45bec0f11e35b86818543 100644 (file)
--- a/sistema/www/logout.php
+++ b/sistema/www/logout.php
@@ -1,4 +1,4 @@
 <?
 session_destroy();
-header('Location: noticias');
+header('Location: logout_perl.epl');
 ?>

diff --git a/sistema/www/logout_perl.epl b/sistema/www/logout_perl.epl
new file mode 100644 (file)
index 0000000..cd7c1ad
--- /dev/null
+++ b/sistema/www/logout_perl.epl
@@ -0,0 +1,12 @@
+[-
+if(!$udat{'user'})
+{$http_headers_out{'Location'}="./noticias.php";}
+-]
+
+[- 
+    for $key (keys %udat)
+    {    delete($udat{$key}) unless $key =~ /^_/;}
+       
+       $http_headers_out{'Location'}="./noticias.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