Index: _vhisie/TBX/Help/HowTo.csp
===================================================================
diff -u -r757 -r1626
--- _vhisie/TBX/Help/HowTo.csp	(.../HowTo.csp)	(revision 757)
+++ _vhisie/TBX/Help/HowTo.csp	(.../HowTo.csp)	(revision 1626)
@@ -5,9 +5,10 @@
 <SCRIPT language="cache" runat="server">
 	Set %session.AppTimeout = 905
 	  s:('$D(ClientIP)) ClientIP="192.168.1.97"
-	New arConfig
-	Do ##class(cspBasis.GAProdTBox).GetDomainDefaults(.arConfig)
-	Set Taal=$$SesDataFromRq^cspBasis.Library("Taal",,$G(arConfig("Taal")))
+	New TBXContext,DefaultTaal
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()
+	Set DefaultTaal=TBXContext.GeefDefaultTaal()
+	Set Taal=$$SesDataFromRq^cspBasis.Library("Taal",,DefaultTaal)
 </SCRIPT>
 <HTML>
 <HEAD>
@@ -29,9 +30,9 @@
 	<LINK REL="stylesheet" TYPE="text/css" HREF="../tbx.css"/>
 </HEAD>
 <SCRIPT language="Cache" runat="server">
-	Set UrlGeneralInfo=$CASE(sDomVERW, "HEIN":"http://www.tandem-box.de/01Startseite/Startseite.html", "LMC":"http://www.optimapack.fr/France/TbxPresentation.asp", "DUPO":"", "HELMY":"", "SFS":"", "HFLE":"", "MBHO":$$$TBoxInfoPageMBHO, :"http://www.vanhoecke.be/"_$S(Taal="F":"fr/produits",1:"nl/producten")_"/tandem-box/")
+	Set UrlGeneralInfo=TBXContext.GeefLokalePaginaTBoxInfoURL(Taal)
+	Set TargetGeneralInfo=$S(TBXContext.IsDomeinHEIN():"Main", (UrlGeneralInfo=""):"_self", 1:"_blank")
 	Set:(UrlGeneralInfo="") UrlGeneralInfo="javascript:;"
-	Set TargetGeneralInfo=$S(sDomVERW="HEIN":"Main", (sDomVERW="DUPO")||(sDomVERW="HELMY")||(sDomVERW="HFLE")||(sDomVERW="MBHO"):"_self", 1:"_blank")
 	/*
 							<A href="http://www.tandem-box.de/01Startseite/Startseite.html" target="Main" class="clsInfo">#(..WebTextValue("Help",Taal,"L"))#</A>
 							<A href="http://www.optimapack.fr/France/TbxPresentation.asp" target="_blank" class="clsInfo">#(..WebTextValue("Help",Taal,"L"))#</A>
@@ -55,7 +56,7 @@
 					</TR>
 					<TR>
 						<TD>
-						<CSP:IF condition='sDomVERW?1(1"HEIN",1"MBHO")'>
+						<CSP:IF condition='(TBXContext.ToonHelppaginaIndex())'>
 							<A name="Index"></A>
 							<SPAN class="clsSectionHdr">INDEX:</SPAN><BR>
 							<UL class="clsIndex">
@@ -72,7 +73,7 @@
 			</TD>
 		</TR>
 	</TABLE>
-<CSP:IF condition='sDomVERW?1(1"HEIN",1"SFS",1"MBHO")'>
+<CSP:IF condition='(TBXContext.ToonContactInfo())'>
 	<A name="ContactInfo"></A>
 	<TABLE width="610" class="clsMainTbl" cellspacing="0" cellpadding="5" border="0">
 		<TR>
@@ -86,15 +87,15 @@
 					<TR>
 						<TD>
 							<BR>
-				<CSP:IF condition='sDomVERW="HEIN"'>
+				<CSP:IF condition='(TBXContext.GeefDomeinVerwerker()="HEIN")'>
 							<SPAN class="clsItemHead">Hein:</SPAN> Sie erreichen uns zu den �blichen B�rozeiten unter:<BR>
 							<UL class="clsIndex">
 								<LI><U>Tel.:</U> +49 (0) 7034-9270-0 <BR>
 								<LI><U>Fax :</U> +49 (0) 7034-9270-70<BR>
 								<LI><U>E-mail:</U> <A href="mailto:#($$$EMailTBXInfo2Hein)#">#($$$EMailTBXInfo2Hein)#</A><BR>
 							</UL>
 				</CSP:IF>
-				<CSP:IF condition='sDomVERW="SFS"'>
+				<CSP:IF condition='(TBXContext.GeefDomeinVerwerker()="SFS")'>
 							<SPAN class="clsItemHead">SFS unimarket:</SPAN> Sie erreichen uns zu den �blichen B�rozeiten unter:<BR>
 							<UL class="clsIndex">
 								<LI><U>Tel.:</U> +41 71 727 52 50<BR>
@@ -106,7 +107,7 @@
 								</CSP:IF>
 							</UL>							
 				</CSP:IF>
-				<CSP:IF condition='sDomVERW="MBHO"'>
+				<CSP:IF condition='(TBXContext.GeefDomeinVerwerker()="MBHO")'>
 							<SPAN class="clsItemHead">Meubelbeslag Holland:</SPAN> U kan ons bereiken tijdens onze kantooruren via:<BR>
 							<UL class="clsIndex">
 								<LI><U>Tel.:</U> 0031 492 52 93 55<BR>
@@ -177,12 +178,12 @@
 --></CSP:COMMENT>
 						</TD>
 					</TR>
-			<CSP:IF condition='(sDomVERW?1(1"VHEPN",1"LMC",1"SFS",1"MBHO"))'>
+			<CSP:IF condition='(TBXContext.HeeftToegangMetLogin())'>
 					<TR>
 						<TD>
 							<BR>
 							<A name="IHT_HistoriekTonen"></A>
-							<SPAN class="clsItemHead">#(..WebTextValue("HistoriekTonen",Taal,"L"))#:</SPAN>#($S(sDomVERW="VHEPN":"&nbsp;&nbsp;("_..WebTextValue("IHT_LoginVerplicht_VH",Taal,"L")_")",1:""))#<BR>
+							<SPAN class="clsItemHead">#(..WebTextValue("HistoriekTonen",Taal,"L"))#:</SPAN>#($S(TBXContext.IsDomeinVHEPN():"&nbsp;&nbsp;("_..WebTextValue("IHT_LoginVerplicht_VH",Taal,"L")_")",1:""))#<BR>
 							#(..WebTextValue("IHT_HistoriekTonen",Taal,"O"))#
 <CSP:COMMENT><!--
 				<SPAN class="clsItemHead"><VH:TAAL intern="HistoriekTonen">Historiek Tonen</VH:TAAL>:</SPAN><BR>
@@ -234,14 +235,14 @@
 							<SPAN class="clsItemHead">#(..WebTextValue("IHT_LadeBeperkingen",Taal,"L"))#:</SPAN> (#(..WebTextValue("IHT_FoutOplossen",Taal,"O"))#)<BR>
 							<SCRIPT language="cache" runat="server">
 								Set OmsLadeBeperkingen=..WebTextValue("IHT_LadeBeperkingen",Taal,"O")
-								Set:(sDomVERW="LMC") OmsLadeBeperkingen=$$$Replace(OmsLadeBeperkingen,"BonTBX_","BonTBX LMC_")
+								Set:(TBXContext.GeefDomeinVerwerker()="LMC") OmsLadeBeperkingen=$$$Replace(OmsLadeBeperkingen,"BonTBX_","BonTBX LMC_")
 								Set OmsContactUs=..WebTextValue("IHT_LadeBeperkingen2",Taal,"O")
 								Set OmsContactInfo=..WebTextValue("ContactInfo",Taal,"L")
-								Set OmsContactURL=..WebTextValue("ContactInfoURL_"_$CASE(sDomVERW, "HEIN":"HEIN", "LMC":"OPTIMA", "DUPO":"DUPO", "HELMY":"DESTIL", "HFLE":"HFLE", "SFS":"SFS", "MBHO":"MBHO", :"VH"),Taal,"L")
+								Set OmsContactURL=TBXContext.GeefContactInfoURL(Taal)
 								;Set OmsContactFull=OmsContactUs_"&nbsp;<A href="""_OmsContactURL_""""_$S(sDomVERW="HEIN":"",1:" target=""_blank""")_">"_OmsContactInfo_"</A>."
 							</SCRIPT>
 							#(OmsLadeBeperkingen)#<BR>
-							&#8594;&nbsp;#(OmsContactUs)#&nbsp;#("<A href="""_OmsContactURL_""""_$S(sDomVERW?1(1"HEIN",1"SFS",1"MBHO"):"",1:" target=""_blank""")_">"_OmsContactInfo_"</A>")#.
+							&#8594;&nbsp;#(OmsContactUs)#&nbsp;#("<A href="""_OmsContactURL_""""_$S(TBXContext.ToonContactInfo():"",1:" target=""_blank""")_">"_OmsContactInfo_"</A>")#.
 <CSP:COMMENT><!--
 				<SPAN class="clsItemHead"><VH:TAAL intern="IHT_LadeBeperkingen">Lade correct defini�ren</VH:TAAL>:</SPAN><BR>
 				<VH:TAAL intern="IHT_LadeBeperkingen" opties="O">Bij het ingeven van een lade zijn veel combinaties mogelijk tussen de afmetingen, specifieke kenmerken en toebehoren.
