Index: ProductLinks.csp
===================================================================
diff -u -r12 -r21
--- ProductLinks.csp	(.../ProductLinks.csp)	(revision 12)
+++ ProductLinks.csp	(.../ProductLinks.csp)	(revision 21)
@@ -2,9 +2,10 @@
 <CSP:Include page="%VHMacro.INC">
 
 <SCRIPT method="OnPreHTTP" language="Cache" arguments="" returntype="%Boolean">
-#If $$$Server="CACHE02"
-	Set %session.Data("CspInDevelop")=1
-#EndIf
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("ProductLinks.csp_MailSturenBijCspError")=0 {   // Aangepast door WimV op 22-11-2011  - test overgenomen van method CustomEHandlerInit() hieronder 
+		Set %session.Data("CspInDevelop")=1
+	}		
+
 	  s %ClientIP=$G(%ClientIP,"192.168.1.15")
  	Set %Taal=$G(%request.Data("Taal",1),"N")
 	Set PRNr=$G(%request.Data("PRNR",1))
@@ -135,13 +136,16 @@
 
 	#define EmailTo "ICT_Administrators@vanhoecke.be"
 	Do ##class(csp.errorvh).DefaultEHandlerInit(.lbErrTypes)
-#If $$$Server="CACHE02"
-	Set %cspEHandler($$$etPageLoadError,"ACTIONS")=$LB("ErrPage")
-#Else
-	Set %cspEHandler($$$etPageLoadError,"ACTIONS")=$LB("Email","ErrPage")
- 	Set %cspEHandler($$$etPageLoadError,"ACTIONS","Email")=$LB("""CSPserver "_$system.Server.HostName()_""" <ICT@vanhoecke.be>",$LB($$$EmailTo),"CSP - Error - "_$ZDT($H,4),"�DFL_HTML�",,1)
- 	Set %cspEHandler($$$etPageLoadError,"ACTIONS","ErrPage")=$LB("csp.errorvh","OnPageMinimum")
-#EndIf
+
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("ProductLinks.csp_MailSturenBijCspError")=0 {   // Aangepast door WimV op 22/11/2011 
+		// In development geen mail sturen, maar de full csp-error tonen 
+		Set %cspEHandler($$$etPageLoadError,"ACTIONS")=$LB("ErrPage")
+	}
+	Else {
+		Set %cspEHandler($$$etPageLoadError,"ACTIONS")=$LB("Email","ErrPage")
+	 	Set %cspEHandler($$$etPageLoadError,"ACTIONS","Email")=$LB("""CSPserver "_$system.Server.HostName()_""" <ICT@vanhoecke.be>",$LB($$$EmailTo),"CSP - Error - "_$ZDT($H,4),"�DFL_HTML�",,1)
+	 	Set %cspEHandler($$$etPageLoadError,"ACTIONS","ErrPage")=$LB("csp.errorvh","OnPageMinimum")
+	}
 	Quit
 </SCRIPT>