AAIT#33956 Auditing erbij

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

APPL/Shared/m_connections.inc

@@ -204,6 +204,15 @@ SafeOracle.prototype.Get = function _get (descfield, table, keyname, key)
     user_lang = oRs("fac_version_lang").Value; // De database taal voorlopig.
     oRs.Close();
   }
-  var oraprefix = "BEGIN fac.initsession("+safe.quoted_sql(user_lang)+"); END;";
+  var ident = "";
+  if (Session("user_key")>0)
+    ident = String(Session("user_key"))
+  //else
+  //  ident += "<system>";
+
+  var oraprefix = "BEGIN"
+                + "  DBMS_SESSION.SET_IDENTIFIER(" + safe.quoted_sql(ident) + ");"
+                + "  fac.initsession("+safe.quoted_sql(user_lang)+");"
+                + "END;";
   o.Execute( oraprefix );
 %>