From da1e6a55be90f4653aa964ee1003c44a1701846a Mon Sep 17 00:00:00 2001
From: Michael M Slusarz <slusarz@curecanti.org>
Date: Tue, 27 Jul 2010 02:17:38 -0600
Subject: [PATCH] Fix portal access

---
 horde/index.php | 3 ++-
 horde/login.php | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/horde/index.php b/horde/index.php
index fb17aefa3..48a8176d2 100644
--- a/horde/index.php
+++ b/horde/index.php
@@ -55,7 +55,8 @@ if (!$main_page) {
     } else {
         /* Search for a user-specified initial application. */
         $initial_app = $prefs->getValue('initial_application');
-        if (!empty($initial_app) &&
+        if (Horde_Util::nonInputVar('login_redirect') &&
+            !empty($initial_app) &&
             ($initial_app != 'horde') &&
             $registry->hasPermission($initial_app)) {
             $main_page = Horde::url($initial_app, true) . '/';
diff --git a/horde/login.php b/horde/login.php
index 128dafeb5..b8ee8776e 100644
--- a/horde/login.php
+++ b/horde/login.php
@@ -217,6 +217,7 @@ if ($error_reason) {
             }
         }
 
+        $login_redirect = true;
         require HORDE_BASE . '/index.php';
         exit;
     }
-- 
2.11.0