Index: _vhisie/TBX/TestRequest.csp
===================================================================
diff -u -r1133 -r1626
--- _vhisie/TBX/TestRequest.csp	(.../TestRequest.csp)	(revision 1133)
+++ _vhisie/TBX/TestRequest.csp	(.../TestRequest.csp)	(revision 1626)
@@ -5,18 +5,15 @@
 <SCRIPT method="OnPreHTTP" language="Cache" arguments="" returntype="%Boolean">
 	Set %RemoteIP=$G(%request.CgiEnvs("REMOTE_ADDR"))
 	//   URL --> domain / sDomVERW / sDomKLNr
-	Set sDomain=$$GetURLDomain^cspBasis.Library
-	Set sDomCVT=$$TBXDomainCVT^cspBasis.Library(sDomain)
-	Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(sDomCVT,$LB("VERW","KLNR"))   ; $$TBXDomainLU^cspBasis.Library(sDomCVT,$LB("VERW","KLNR"))
-	Set sDomVERW=$LG(lbDomLU,1)
-	Set sDomKLNr=$LG(lbDomLU,2)
-	Set blnVHEPN=(sDomVERW="VHEPN")
-	Set blnHEIN=(sDomVERW="HEIN")
-	Set blnLMC=(sDomVERW="LMC")
-	Set blnDUPO=(sDomVERW="DUPO")
-	Set blnHELMY=(sDomVERW="HELMY")
-	Set blnSFS=(sDomVERW="SFS")
-	Set blnMBHO=(sDomVERW="MBHO")
+	;Set sDomain=$$GetURLDomain^cspBasis.Library
+	;Set sDomCVT=$$TBXDomainCVT^cspBasis.Library(sDomain)
+	;Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(sDomCVT,$LB("VERW","KLNR"))   ; $$TBXDomainLU^cspBasis.Library(sDomCVT,$LB("VERW","KLNR"))
+	;Set sDomVERW=$LG(lbDomLU,1)
+	;Set sDomKLNr=$LG(lbDomLU,2)
+	;Set blnVHEPN=(sDomVERW="VHEPN")
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()
+	Set sDomain=TBXContext.GeefHttpRequestDomein()
+	
 	Set VERW="VHEPN"
 	Set KLNr=$$SesDataFromRq^cspBasis.Library("KLNR",,"")
 	Set wsID=""
@@ -43,7 +40,7 @@
 </SCRIPT>
 
 <HEAD>
-	<TITLE>#($S(blnVHEPN:"Van Hoecke - ",1:"")_"TandemBox - Test REQUEST")#</TITLE>
+	<TITLE>#($S(TBXContext.IsDomeinVHEPN():"Van Hoecke - ",1:"")_"TandemBox - Test REQUEST")#</TITLE>
 	<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 
 	<STYLE type="text/css">
