Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r29 -r321
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 29)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 321)
@@ -1,13 +1,15 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="vhLib.Logger">
+<ClassType/>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Groep">
 <Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Method name="%OnNew">
@@ -16,11 +18,12 @@
 provide notification that a new instance of an object is being created.
 
 <P>If this method returns an error then the object will not be created.]]></Description>
-<FormalSpec>Groep:%String</FormalSpec>
+<FormalSpec>Groep:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	if '$length(Groep) set Groep =  ##class(TECH.Context.RuntimeContext).Instance().Applicatie
 	Set ..Groep = Groep 
 	Quit $$$OK
 ]]></Implementation>
@@ -30,7 +33,7 @@
 <FormalSpec>Niveau:%String,Actie:%String,Detail:%String,blnSendMail:%Boolean=0</FormalSpec>
 <ReturnType>Logging</ReturnType>
 <Implementation><![CDATA[
-	Set Logging=##class(vhLib.Logging).Create(%this,,,.Niveau,..Groep,.Actie,.Detail,,.blnSendMail)
+	set Logging =##class(vhLib.Logging).Create(%this,,,.Niveau,..Groep,.Actie,.Detail,,.blnSendMail)
 	Quit Logging
 ]]></Implementation>
 </Method>
@@ -95,9 +98,9 @@
 
 <Method name="GetMailAddress">
 <Implementation><![CDATA[
-	Set User=$$$IctUserFromIP($$GetClientIP^vhLib)
+	set User =$$$IctUserFromIP($$GetClientIP^vhLib)
 	Quit:($Length(User)) User_"@vanhoecke.be"
-	Set MailTo = ##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress")
+	set MailTo = ##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress")
 	Quit MailTo
 ]]></Implementation>
 </Method>
@@ -136,8 +139,9 @@
 	  set Value = Values(Name)
 	  
 	  if $IsObject(Value) { 
-	  	do Value.XMLExportToString(.XML,,"literal,indent") 
-	   	set Info = Info _ Name _"="_ $$$CRLF  _ XML _ $$$CRLF 
+	  	do Value.XMLExportToString(.XML,,"literal,indent")
+	  	set XML = $Extract(XML,0,32000) // Voorkomen dat we over de maximum length van een String gaan.
+	  	set Info = Info _ Name _"="_ $$$CRLF  _ XML _ $$$CRLF 
 	  } 
 	  else {
 		set Info = Info _ Name _"="_ $$$CRLF  _Value _ $$$CRLF 
@@ -162,35 +166,18 @@
 	Set OldDateTimeWarning = $h-DaysWarning
 	Set OldDateTimeInformation = $h-DaysInformation
 	Set OldDateTimeDebug = $h-DaysDebug
-	Set Server = $$$Server
-	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeError AND Server=:Server AND Niveau = 'E')	
-	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeWarning AND Server=:Server AND Niveau = 'W')	
-	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeInformation AND Server=:Server AND Niveau = 'I')	
-	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeDebug AND Server=:Server AND Niveau = 'D')	
-	Quit $$$OK
+	
+	set Server = $$$Server do ExecQuery
+	set Server = $piece(##class(TECH.Config.ConfigMgr).Instance().GeefString("Makova_ServerEnNamespace"),"\",1) do ExecQuery
+	
+	Quit $$$OK	
+	
+ExecQuery
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<=:OldDateTimeError AND Server=:Server AND Niveau = 'E')	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<=:OldDateTimeWarning AND Server=:Server AND Niveau = 'W')	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<=:OldDateTimeInformation AND Server=:Server AND Niveau = 'I')	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<=:OldDateTimeDebug AND Server=:Server AND Niveau = 'D')
 ]]></Implementation>
 </Method>
-
-<Method name="InitTask">
-<Description>
-Maakt de task aan voor de scheduler van caché, dit moet slechts éénmalig worden uitgevoerd
-Do ##class(vhLib.Logger).InitTask()</Description>
-<ClassMethod>1</ClassMethod>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set Task = ##Class(%SYSTEM.Task).%New()
-	Set Task.Name = "Logging "_$zu(5)_"opkuisen"
-	Set Task.Description = "LogItems opkuisen op "_$zu(5)_" die ouder zijn dan de opgegeven aantal dagen"
-	Set Task.NameSpace = $zu(5)   ; Assign to namespace
-	Set Task.ExecuteCode = "Do ##class(vhLib.Logger).ClearOldLogItems(30)"
-	Set Task.DailyFrequency = 1			;Several times a day
-	Set Task.DailyFrequency = 0		;Once a day
-	Set Task.DailyStartTime = 82800 ; 23h00
-	Set Task.RescheduleOnStart = 1
-	Set Task.ContinueAfterError = 1
-	Set rc = Task.%Save()
-	Quit rc
-]]></Implementation>
-</Method>
 </Class>
 </Export>