Index: vhLib/Logging.cls.xml =================================================================== diff -u -r3366 -r3370 --- vhLib/Logging.cls.xml (.../Logging.cls.xml) (revision 3366) +++ vhLib/Logging.cls.xml (.../Logging.cls.xml) (revision 3370) @@ -233,7 +233,7 @@ Do ##class(vhLib.Logger).%New().LogEnMailExceptie(Exception) } // Het log-item saven, is belangrijker dan de eventuele koppel-exceptie te behandelen. #dim scSave As %Status = oLog.%Save() - Set oLog.Detail = "Maak een nieuwe gekende exceptie"_$$$CRLF _ ..GeefMaakGekendeExceptieUrl(oLog) _ $$$CRLF_ $$$CRLF _ oLog.Detail + Set oLog.Detail = "Maak een nieuwe gekende exceptie"_$$$CRLF _ ..GeefMaakGekendeExceptieUrl(oLog) _ $$$CRLF_ $$$CRLF _ oLog.Detail #dim ServerPrefix As %String = "["_$$$UCase($$$Server)_"] " @@ -253,7 +253,7 @@ Do oLogger.GetMailFields(.From,.lbTo,.Subject,) Do SendMiniMailForced^vhLib.Mail(From,lbTo,Subject,Body,1,,,,) } - + If Niveau="D" Do oLog.DebugWindow() Quit oLog @@ -293,13 +293,6 @@ set ..GebruikerID = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID() set ..Gebruiker = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen() set ..SessionID = ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID() - If ..SessionID '= "" { - Try { - Set ..ClientAdres = ##class(APPS.algemeen.VhintraShell.SessionService).%New().GeefClientAdresVoorSessieSleutel(..SessionID) - } Catch { - #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() - } - } if $IsObject(Detail) { set ..DetailAsStream = Detail