Index: csp/errorvhtbx.cls.xml
===================================================================
diff -u -r2 -r193
--- csp/errorvhtbx.cls.xml	(.../errorvhtbx.cls.xml)	(revision 2)
+++ csp/errorvhtbx.cls.xml	(.../errorvhtbx.cls.xml)	(revision 193)
@@ -49,7 +49,7 @@
 dehBuildArPageLoadError        ; PageLoadError
  Set tmpAr("ACTIONS")=$LB("LogDB","Email","ErrPage")
  Set tmpAr("ACTIONS","LogDB")=$LB("DFL","TBX_Err_CSP",$LB("CustomLogError","cspBasis.GAProdTBox",1))
- Set tmpAr("ACTIONS","Email")=$LB("""CSPserver "_$system.Server.HostName()_""" <ICT@vanhoecke.be>",$LB($$$EmailToSysOp),"CSP - Error - "_$ZDT($H,4),"§DFL_HTML§",,1)
+ Set tmpAr("ACTIONS","Email")=$LB("""CSPserver "_$system.Server.HostName()_""" <ICT@vanhoecke.be>",$LB($$$EmailToSysOp),"CSP - Error - "_$ZDT($H,4)_$$dehAddDomeinHein(),"§DFL_HTML§",,1)
  ;Set tmpAr("ACTIONS","Email")=$LB("Skip")
  Set tmpAr("ACTIONS","ErrPage")=$LB("","OnPageTBX")   ; $LB("~")
  Quit
@@ -70,6 +70,24 @@
  Set tmpAr("ACTIONS")=$LB("JSAlert")
  Set tmpAr("ACTIONS","JSAlert")=$LB("Session TimeOut")
  Quit
+
+dehAddDomeinHein()
+	New AdddText,DomeinKort
+	Set AddText=""
+	Set DomeinKort=$$dehGeefDomeinKort()
+	If $L(DomeinKort)&&($$$LCase(DomeinKort)="hein") {
+		Set AddText=" ("_DomeinKort_")"
+	}
+	Quit AddText
+	
+dehGeefDomeinKort()
+	New TBXContext,DomeinKort
+	Set DomeinKort=""
+	If $IsObject($G(%request)) {
+		Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()
+		Set DomeinKort=TBXContext.GeefDomeinKort(TBXContext.GeefWebDomein())
+	}
+	Quit DomeinKort
 ]]></Implementation>
 </Method>