Index: cspBasis/TBX/DecodeURL/tmpDev.mac.rou
===================================================================
diff -u -r1155 -r1571
--- cspBasis/TBX/DecodeURL/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1155)
+++ cspBasis/TBX/DecodeURL/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1571)
@@ -32,6 +32,7 @@
 	Set blnHFLE=(sDomVERW="HFLE")
 	Set blnSFS=(sDomVERW="SFS")
 	Set blnMBHO=(sDomVERW="MBHO")
+	Set blnHFLB=(sDomVERW="HFLB")
  
     Set Flow=$S(blnSubmit:"SUBMIT", $L(Ref)||$L(RefNew):"REF", 1:"")
     Set (UrlOut,LoginState,PSW)=""
@@ -120,7 +121,7 @@
 	. If blnRedir  Set %session.Data("UserType")=UserType
 	. Else  Kill %session.Data("UserType")
 	
-	If (blnLMC||blnSFS||blnMBHO)&&($G(RefArray("KLNR"))'>0) Do
+	If (blnLMC||blnSFS||blnMBHO||blnHFLB)&&($G(RefArray("KLNR"))'>0) Do
 	. Set blnRedir=0
 	. Set LoginState="ERR"
 	
@@ -202,6 +203,7 @@
 	Set luSafe($$$TBoxWebDomeinMBHO,"MBHO","ENC")="meubelgeheimMBHO"
 	Set luSafe($$$TBoxWebDomeinMBHO,"VHEPN","PSW")="auftrage"   ; "pwd4682VH"
 	Set luSafe($$$TBoxWebDomeinMBHO,"VHEPN","ENC")="meubelgeheimMBHO"
+	Set luSafe($$$TBoxWebDomeinHFLB,"?","?")=""   ; Wordt niet meer aangevuld, want wordt nauwelijks nog gebruikt 
 	; luTBX
 	; Temporary copied local values from (class(WS.TBX.Order).DomaimLookup/cdtFillArrayLU):
 	Set luTBX("www.tandem-box.com","UserType","VHEPN")=$$$utVerwAdmin
@@ -222,12 +224,14 @@
 	Set luTBX("demo.sfsunimarket.biz","UserType","SFS")=$$$utVerwDomain
 	Set luTBX($$$TBoxWebDomeinMBHO,"UserType","VHEPN")=$$$utVerwAdmin
 	Set luTBX($$$TBoxWebDomeinMBHO,"UserType","MBHO")=$$$utVerwDomain
+	Set luTBX($$$TBoxWebDomeinHFLB,"UserType","VHEPN")=$$$utVerwAdmin
+	Set luTBX($$$TBoxWebDomeinHFLB,"UserType","HFLB")=$$$utVerwDomain
 	Quit
 ophGetUserType(KLNr,Domain,Verw,Mode)
 #If $$$NSpace="xDEMO" 
 	Quit:(Mode="A") $S(1:$$$utKlantAnon)
 #Else
-	Quit:(Mode="A") $S(blnHEIN||blnDUPO||blnHELMY||blnHFLE:$$$utKlantAnonWP, KLNr>0:$$$utKlantKnown, 1:$$$utKlantAnon)   ; blnLMC,blnSFS,blnMBHO : $$$utKlantKnown 
+	Quit:(Mode="A") $S(blnHEIN||blnDUPO||blnHELMY||blnHFLE:$$$utKlantAnonWP, KLNr>0:$$$utKlantKnown, 1:$$$utKlantAnon)   ; blnLMC,blnSFS,blnMBHO, : $$$utKlantKnown 
 #EndIf
 	Quit:(Mode="W") $$ophGetVERWType(Domain,Verw)
 	Quit:(Mode="P") $$$utKlantAnon                        ; Temporary: fixed value
@@ -355,7 +359,7 @@
 	New OptimaKey,Data
 	Kill arData
 	Quit:($G(encData)="") ""
-	Set OptimaKey=$S(sDomVERW="LMC":$$$OptimaKey, sDomVERW="SFS":$$$SfsOptKey, sDomVERW="MBHO":$$$MBHollandOptKey, 1:ERROR)
+	Set OptimaKey=$S(sDomVERW="LMC":$$$OptimaKey, sDomVERW="SFS":$$$SfsOptKey, sDomVERW="MBHO":$$$MBHollandOptKey, sDomVERW="HFLB":$$$HafeleBEOptKey, 1:ERROR)
 	If ($G(%blnBuildRef))&&($$$NotEncrypted(encData))  Set Data=encData
 	Else  Set Data=$$ophDecryptHashedRef(encData,OptimaKey)
 	Do OPTIMAAnalyseCommon(.Data,,.encData)
@@ -397,6 +401,6 @@
 OPTIMAEncryptData(Data,sDomVERW)
 	New OptimaKey,encData
 	Quit:($G(Data)="") ""
-	Set OptimaKey=$S(sDomVERW="LMC":$$$OptimaKey, sDomVERW="SFS":$$$SfsOptKey, sDomVERW="MBHO":$$$MBHollandOptKey, 1:ERROR)
+	Set OptimaKey=$S(sDomVERW="LMC":$$$OptimaKey, sDomVERW="SFS":$$$SfsOptKey, sDomVERW="MBHO":$$$MBHollandOptKey, sDomVERW="HFLB":$$$HafeleBEOptKey, 1:ERROR)
 	Set encData=$$ophEncryptRefHashed(Data,.OptimaKey)
 	Quit encData
\ No newline at end of file