Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r734 -r909
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 734)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 909)
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 15:16:29">
 <Class name="vhLib.Logging">
 <ClassType>persistent</ClassType>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Persistent</Super>
-<TimeChanged>62082,43099.586734</TimeChanged>
+<TimeChanged>62153,55057.7159</TimeChanged>
 <TimeCreated>61769,47367.516692</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -72,6 +72,18 @@
 <Parameter name="TRUNCATE" value="0"/>
 </Property>
 
+<Property name="DetailTrunc">
+<Type>%String</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}=$E({Detail},1,10000)</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
+<Property name="Info">
+<Type>%Stream</Type>
+<Collection>characterstream</Collection>
+</Property>
+
 <Property name="JobID">
 <Type>%String</Type>
 </Property>
@@ -172,7 +184,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()
 	
@@ -183,14 +195,16 @@
 <Method name="GenMailBody">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	set Body = ##class(%GlobalCharacterStream).%New()
+	do Body.WriteLine(..Detail)
 	Set Body = ""
 	Set Body = Body_ ..Detail _ $$$CRLF
 	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)
@@ -202,8 +216,13 @@
 	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 ..LessDetail = $extract($translate(..Detail,$$$CRLF,""),1,250)
 	Set ..ProgLabel = $G(ProgLabel)
 	
 	if ($IsObject($get(%request)))&&(%request.%IsA("%CSP.Request")) {
@@ -384,6 +403,9 @@
 <Value name="12">
 <Value>LessDetail</Value>
 </Value>
+<Value name="13">
+<Value>Info</Value>
+</Value>
 </Data>
 </Storage>
 
@@ -428,5 +450,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="938027189"/>
+<Checksum value="3887527475"/>
 </Export>