FSN#39750 App registraties tonen en kunnen wissen

svn path=/Website/trunk/; revision=33665

APPL/PRS/prs_perslid_clear_sessions.asp

@@ -41,8 +41,19 @@ var sql = "DELETE FROM aut_client_perslid"
         + " WHERE prs_perslid_key = " + theUser_key;
 Oracle.Execute(sql);
 
+// Zorg dat andere *lopende* sessies eindigen
+var sql = "UPDATE prs_perslid"
+        + "   SET prs_perslid_credentials_datum = SYSDATE"
+        + " WHERE prs_perslid_key = " + theUser_key;
+Oracle.Execute(sql);
+
 // if (theUser_key == user_key)
 //  doLogin(user_key); is dit logisch? Neen, je ASPFIX verandert dan en Logoff werkt niet meer
+// Het volgende is wel belangrijk
+var sql = "SELECT SYSDATE FROM DUAL";
+var oRs = Oracle.Execute(sql);
+Session("login_date") = new Date(oRs(0).Value).getTime();
+oRs.Close();
 
 shared.trackaction("PRSLOG", theUser_key, L("lcl_qrc_auth_cleared"));