Index: TECH/Error/impl/ErrorHandler.cls.xml
===================================================================
diff -u -r2882 -r3233
--- TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 2882)
+++ TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 3233)
@@ -8,7 +8,7 @@
 <ClassType/>
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="TrapHandler">
 <ClassMethod>1</ClassMethod>
@@ -19,7 +19,7 @@
 	{
 		If '$isObject($G(%ErrorObject)) 
 		{
-			Do ..Handler(.Label,.Options)
+			Do ..HandlerVersie1(.Label,.Options)
 		}
 	}
 	Catch e
@@ -32,13 +32,33 @@
 <Method name="Handler">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Label:%String,Options:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..HandlerVersie2(.Label,.Options)
+]]></Implementation>
+</Method>
+
+<Method name="HandlerVersie1">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Label:%String,Options:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set %ErrorObject=..GetInfo(.Label)
 	Do:($ZCVT($G(Options),"U")'["NOMAIL") ..MailError(%ErrorObject)
 	Do:($ZCVT($G(Options),"U")'["NOLOG") ..LogError(%ErrorObject)
 ]]></Implementation>
 </Method>
 
+<Method name="HandlerVersie2">
+<Description>
+In deze versie wordt er altijd gelogd.  Mailen is optioneel (via Options parameter).</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Label:%String,Options:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set %ErrorObject=..GetInfo(.Label)
+	Do ..LogError(%ErrorObject, ($$$UCase($G(Options))'["NOMAIL"))
+]]></Implementation>
+</Method>
+
 <Method name="GetInfo">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Label:%String</FormalSpec>
@@ -116,16 +136,16 @@
 
 <Method name="LogError">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Error:TECH.Error.dto.ErrorInfo</FormalSpec>
+<FormalSpec>Error:TECH.Error.dto.ErrorInfo,blnSendMail:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
 	#dim ErrorInfoStream As %GlobalCharacterStream = ..GeefErroInfoAlsStream(Error)
 	#dim FoutLabel As %String = $S(Error.Label="":"NoLabel",1:Error.Label)
 	
 	Set Logger=##class(vhLib.Logger).%New()
 	If Error.LogLevel = ##class(vhLib.enu.LogNiveau).Error() {
-		Do Logger.Error(FoutLabel, ErrorInfoStream)
+		Do Logger.Error(FoutLabel, ErrorInfoStream,blnSendMail)
 	}Else{
-		Do Logger.Warning(FoutLabel, ErrorInfoStream)
+		Do Logger.Warning(FoutLabel, ErrorInfoStream,blnSendMail)
 	}
 ]]></Implementation>
 </Method>