Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r2 -r5
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 2)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 5)
@@ -77,6 +77,11 @@
 <SqlComputed>1</SqlComputed>
 </Property>
 
+<Property name="Info">
+<Type>%Stream</Type>
+<Collection>characterstream</Collection>
+</Property>
+
 <Property name="JobID">
 <Type>%String</Type>
 </Property>
@@ -99,13 +104,6 @@
 <Unique>1</Unique>
 </Index>
 
-<UDLText name="T">
-<Content><![CDATA[
-//Index PrimKey On ( Datum, SubID ) [ IdKey, PrimaryKey, Unique ];
-
-]]></Content>
-</UDLText>
-
 <Index name="IndexOnServer">
 <Properties>Server</Properties>
 </Index>
@@ -118,6 +116,10 @@
 <Properties>Datum</Properties>
 </Index>
 
+<Index name="IndexOnTijd">
+<Properties>Tijd</Properties>
+</Index>
+
 <Index name="IndexOnNiveau">
 <Properties>Niveau</Properties>
 </Index>
@@ -130,31 +132,14 @@
 <Properties>Groep</Properties>
 </Index>
 
-<UDLText name="T">
-<Content><![CDATA[
-//Method AAACompilerFirst() moet eerst staan in alfabetische lijst, want moet als eerste gecompileerd worden!
+<Index name="IndexOnSubID">
+<Properties>SubID</Properties>
+</Index>
 
-]]></Content>
-</UDLText>
-
 <Method name="AAACompilerFirst">
 <ClassMethod>1</ClassMethod>
 <CodeMode>objectgenerator</CodeMode>
-<Implementation><![CDATA[
-	/*Do %code.WriteLine("#define StorageGlobal(%v)  ^vhLib.LoggingD(..MainIndex,%v) ") 
-	Quit $$$OK
-	
-    if %class.Name = "vhLib.Logging" do  quit $$$OK
-    . Do %code.WriteLine("#define StorageGlobal(%v)  ^vhLib.LoggingD(..MainIndex,%v) ") 
-	
-		; Generate a Macro definition for the class storage Global name
-    SET sc=##class(vhLib.Compile).GetGlobalName(%class.Name,.GlobalName)   ; $$acfGetGlobalName(.GlobalName)
-	QUIT:($G(GlobalName)="") sc
-    DO ##class(vhLib.Compile).GeneratorDefineMacro("StorageGlobal",GlobalName)   ; generate: #define StorageGlobal   "_GlobalName
-	DO %code.WriteLine(" Quit")
-	*/
-	
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -177,7 +162,7 @@
 	If ( scSave ) && ( SendMail ) & ( Niveau '= "D" ) Do
 	. Set Body = oLog.GenMailBody()
 	. Do oLogger.GetMailFields(.From,.lbTo,.Subject,)
-	. Do SendMiniMail^vhLib.Mail(From,lbTo,Subject,Body,,,,,)
+	. Do SendMiniMail^vhLib.Mail(From,lbTo,Subject,Body,1,,,,)
 	
 	If Niveau="D" Do oLog.DebugWindow()
 	
@@ -188,14 +173,14 @@
 <Method name="GenMailBody">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set Body = ""
-	Set Body = Body_ ..Detail _ $$$CRLF
+	set Body = ##class(%GlobalCharacterStream).%New()
+	do Body.WriteLine(..Detail)
 	Quit Body
 ]]></Implementation>
 </Method>
 
 <Method name="Init">
-<FormalSpec>Datum,Tijd,Niveau:%String,Groep:%String="",Actie:%String,Detail:%String,ProgLabel:%String</FormalSpec>
+<FormalSpec>Datum,Tijd,Niveau:%String,Groep:%String="",Actie:%String,Detail:%CacheString="",ProgLabel:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..Datum = $S($G(Datum)="":+$H,1:Datum)
 	Set ..Tijd = $S($G(Tijd)="":$P($H,",",2),1:Tijd)
@@ -207,14 +192,17 @@
 	Set ..Niveau = $G(Niveau)
 	Set ..JobID = $Job
 	Set ..Actie = $G(Actie)
-	Set ..Detail = $G(Detail)
-	Set ..LessDetail = $extract($translate(..Detail,$$$CRLF,""),1,250)
+
+	if $IsObject(Detail) { set ..Info = Detail }
+	else  {	
+		Set ..Detail = Detail	
+		do ..Info.WriteLine(Detail)
+	}
 	Set ..ProgLabel = $G(ProgLabel)
 	
 	if ($IsObject($get(%request)))&&(%request.%IsA("%CSP.Request")) {
  	 set ..RemoteIP =$get(%request.CgiEnvs("REMOTE_ADDR"))
 	}
-
 	
 	Quit
 ]]></Implementation>
@@ -232,7 +220,7 @@
 	Quit Logging
 aelSendErrorMail()   ; Mail versturen van de fout
 	Set Body=$$aelErrorMailBody()
-	Do Logging.GetMailFields(.From,.lbTo,.Subj,"Error")   ; Do ##class(VHSys.Scheduler.LoggingAbstract).GetMailFields(...)
+	Do Logging.GetMailFields(.From,.lbTo,.Subj,"Error")
 	Set:($ZError="<LIST>islist+2^%occRun")&&($$$GETERRORCODE(Error)=$$$GeneralError) lbTo=$LB("ICT_Meldingen@vanhoecke.be")   ; Does not provide any extra information 
 	Set sc=$$SendMiniMail^vhLib(From,lbTo,Subj,Body,,,,,)
 	Quit
@@ -265,10 +253,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>blnMultiLine:%String,Indent:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	;Set Body=Body_$$$CRLF_"Device: "_$I_"  Job: "_$J
-	;Set Body=Body_$$$CRLF_"Server: "_$$$Server_"  NameSpace: "_$$$NSpace
-	Quit $$GetJobInfo^vhLib.System(.blnMultiLine,.Indent)
+<Implementation><![CDATA[	Quit $$GetJobInfo^vhLib.System(.blnMultiLine,.Indent)
 ]]></Implementation>
 </Method>
 
@@ -283,7 +268,7 @@
 
 <Method name="SetSubID">
 <Implementation><![CDATA[
-	#define StorageGlobal(%v)  ^vhLib.LoggingD(..MainIndex,%v)
+	#define StorageGlobal(%v)  ^LOG.vhLib.LoggingD(..MainIndex,%v)
 	
 	Quit:(..SubID'="")
 	Set ..SubID=$I($$$StorageGlobal(..Datum))
@@ -326,32 +311,17 @@
 
 <Method name="CollectLogs">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	/*
-	
-	For NSPACE = "WSS" Do
-	. Set MainIndex = ""
-	. For  Set MainIndex = $O(^[NSPACE]vhLib.LoggingD(MainIndex)) Quit:MainIndex=""  Do
-	. . 
-	. . Set Datum = $G(^vhLib.LoggingMergeD(MainIndex))
-	. . Set Datum = Datum -1
-	. . For  Set Datum = $O(^[NSPACE]vhLib.LoggingD(MainIndex,Datum))  Quit:Datum=""  Do
-	. . . Set ^["DEV-ADMIN1"]vhLib.LoggingMergeD(MainIndex) = Datum
-	. . . Merge ^["DEV-ADMIN1"]vhLib.LoggingD(MainIndex,Datum) = ^[NSPACE]vhLib.LoggingD(MainIndex,Datum)
-	Do ##class(vhLib.Logging).%BuildIndices()
-	
-	*/
-	Quit
+<Implementation><![CDATA[	Quit
 ]]></Implementation>
 </Method>
 
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
-<DataLocation>^vhLib.LoggingD</DataLocation>
+<DataLocation>^LOG.vhLib.LoggingD</DataLocation>
 <DefaultData>LoggingDefaultData</DefaultData>
-<IdLocation>^vhLib.LoggingD</IdLocation>
-<IndexLocation>^vhLib.LoggingI</IndexLocation>
-<StreamLocation>^vhLib.LoggingS</StreamLocation>
+<IdLocation>^LOG.vhLib.LoggingD</IdLocation>
+<IndexLocation>^LOG.vhLib.LoggingI</IndexLocation>
+<StreamLocation>^LOG.vhLib.LoggingS</StreamLocation>
 <Data name="LoggingDefaultData">
 <Value name="1">
 <Value>%%CLASSNAME</Value>
@@ -389,47 +359,9 @@
 <Value name="12">
 <Value>LessDetail</Value>
 </Value>
-</Data>
-</Storage>
-
-<Storage name="LogNSpace">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^["LOG"]vhLib.LoggingD</DataLocation>
-<DefaultData>LoggingDefaultData</DefaultData>
-<IdLocation>^["LOG"]vhLib.LoggingD</IdLocation>
-<IndexLocation>^["LOG"]vhLib.LoggingI</IndexLocation>
-<StreamLocation>^["LOG"]vhLib.LoggingS</StreamLocation>
-<Data name="LoggingDefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
+<Value name="13">
+<Value>Info</Value>
 </Value>
-<Value name="2">
-<Value>Actie</Value>
-</Value>
-<Value name="3">
-<Value>Detail</Value>
-</Value>
-<Value name="4">
-<Value>Groep</Value>
-</Value>
-<Value name="5">
-<Value>Namespace</Value>
-</Value>
-<Value name="6">
-<Value>Niveau</Value>
-</Value>
-<Value name="7">
-<Value>ProgLabel</Value>
-</Value>
-<Value name="8">
-<Value>Server</Value>
-</Value>
-<Value name="9">
-<Value>Tijd</Value>
-</Value>
-<Value name="10">
-<Value>JobID</Value>
-</Value>
 </Data>
 </Storage>
 </Class>