Index: _csp/httplog/queryVH.csp
===================================================================
diff -u -r1571 -r1573
--- _csp/httplog/queryVH.csp	(.../queryVH.csp)	(revision 1571)
+++ _csp/httplog/queryVH.csp	(.../queryVH.csp)	(revision 1573)
@@ -243,7 +243,7 @@
 
 	New sDomain,sDomFull,sRef
 	Set sDomain=query.GetDataByName("Domein")   ; Geeft eigenlijk DomeinKort
-	Set sDomain=##class(APPS.TBXWeb.XXXContext).GeefWebDomeinVoorAfkorting(sDomain)   ; $CASE(sDomain, "vh":$$$DomVHEPN, "hein":$$$DomHEIN, "optima":$$$DomOPTIMA, "dupont":$$$DomDUPONT, "destil":$$$DomHELMY, "hafele":$$$DomHFLE, "sfs":$$$DomSFS, "mbho":$$$DomMBHO, "demo":$$$DomDEMO, "":$$$DomainDFL, :sDomain)
+	Set sDomain=##class(APPS.TBXWeb.TBXContext).GeefWebDomeinVoorAfkorting(sDomain)   ; $CASE(sDomain, "vh":$$$DomVHEPN, "hein":$$$DomHEIN, "optima":$$$DomOPTIMA, "dupont":$$$DomDUPONT, "destil":$$$DomHELMY, "hafele":$$$DomHFLE, "sfs":$$$DomSFS, "mbho":$$$DomMBHO, "demo":$$$DomDEMO, "":$$$DomainDFL, :sDomain)
 	Set sDomFull="http://"_sDomain_"/"_"VHISIE/TBX/"
 	Set sRef=$$$URL($$$QryVal("VERW")_"\"_$$$QryVal("KLNr")_"\"_$$$QryVal("OrdID")_"\"_"VIEW")   ; $$$QryVal("Mode")   ; "VHEPN\2009\2835\COMPLETE"
 	Quit $$$BldRefPg_"?"_"REF="_sRef_"&"_"PAGE="_sDomFull_"main.csp"_"&"_"URLTAAL="_$$$QryVal("Taal")_$S($$$QryVal("KLNr")=$$$KLNrListAll:"&HIST=1",1:"")_"&"_"SUBMIT="_"Encrypt"