From 07916e6620875f3c2ba400e8b7d6d668fb1118ff Mon Sep 17 00:00:00 2001
From: Jos Groot Lipman <jos.grootlipman@aareon.nl>
Date: Thu, 9 Aug 2012 14:18:10 +0000
Subject: [PATCH] FSN#22727 Inloggen nieuwe stijl

svn path=/Website/trunk/; revision=12029
---
 APPL/API/shorturl.asp | 3 ++-
 APPL/Shared/Login.inc | 3 ++-
 APPL/Shared/login.asp | 6 +++++-
 3 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/APPL/API/shorturl.asp b/APPL/API/shorturl.asp
index 264fb44edc..bc84d0915b 100644
--- a/APPL/API/shorturl.asp
+++ b/APPL/API/shorturl.asp
@@ -18,6 +18,7 @@
 */
 
     LCL_Disable = 1;
+    ANONYMOUS_Allowed = 1;
 %>
 <!-- #include file="../Shared/common.inc"-->
 <%
@@ -34,7 +35,7 @@
     var oRs = Oracle.Execute(sql);
     if (oRs.Eof)
     {
-        Response.Write("URL NOT FOUND");
+        Response.Write("BOOKMARK URL NOT FOUND");
         Response.End;
     }
     var url = oRs("fac_bookmark_path").Value;
diff --git a/APPL/Shared/Login.inc b/APPL/Shared/Login.inc
index f6181870e9..6d512d4cc2 100644
--- a/APPL/Shared/Login.inc
+++ b/APPL/Shared/Login.inc
@@ -70,7 +70,7 @@ function setUserFromSession (p_session)
            + " WHERE prs_perslid_key = " + user_key // index-performance
            + "   AND fac_session_sessionid = " + safe.quoted_sql(p_session);
        Oracle.Execute(sql);
-       makeSessionCookie(sessionData); // altijd nieuwe cookie
+       // makeSessionCookie(sessionData); aanroeper bepaalt maar of er een nieuwe sessie komt
     }
     oRs.Close();
 }
@@ -97,6 +97,7 @@ function makeSessionCookie (sessionData)
     Response.Cookies("fcltid").Path = rooturl + "/";
     VBexpireCookie("fcltid", "d", S("login_remember_days"));
 
+    // fcltcust is niet per se nodig voor Facilitor maar wel handig bij interne ontwikkeling
     Response.Cookies("fcltcust") = customerId;
     Response.Cookies("fcltcust").Path = rooturl + "/";
     VBexpireCookie("fcltcust", "d", S("login_remember_days"));
diff --git a/APPL/Shared/login.asp b/APPL/Shared/login.asp
index 235ecb6c72..c9e13f494e 100644
--- a/APPL/Shared/login.asp
+++ b/APPL/Shared/login.asp
@@ -22,6 +22,8 @@ if (typeof Session("sso_sgf") == "string") // Vanuit SGF12-portal/ sso_sgf.asp
 {
     Session.Contents.Remove("ASPFIXATION"); // Niet moeilijk doen
     tryLogin(String(Session("sso_sgf")),null);
+    if (user_key < 0)
+        doLogin(parseInt(String(Session("sso_sgf")), 10)); // je mag ook key meegeven
     Session.Contents.Remove("sso_sgf");
 }
 
@@ -37,6 +39,8 @@ if (user_key < 0) // Probeer de user_key uit een cookie te halen
     if (FcltId != null && FcltId != "")
     {
         setUserFromSession (FcltId);
+        if (user_key > 0)
+            makeSessionCookie("Remember Login"); // Atijd nieuwe
     }
 }
 
@@ -55,7 +59,7 @@ if (user_key < 0)
         {
             setUserFromSession(xx[1]);
             if (user_key > 0)
-                makeSessionCookie("");
+                makeSessionCookie(""); // Altijd 'definief' cookie plaatsen
         }
     }
 }