Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r58267 -r58282
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 58267)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 58282)
@@ -197,7 +197,6 @@
 
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "biemar")) {
 		Set ..Response.PersonalityId = Personality.BiemarBois
-		Do ##class(Tools.Wlip).%New(207).String("biemar")
 		Set ..Response.Taal = ##class(DOM.enu.Taal).Frans()
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$False
@@ -213,6 +212,30 @@
 		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
 		
 		Set Resultaat = ..Response.IsGeldig
+	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "rini")) {
+		Set ..Response.PersonalityId = Personality.Rini
+		Set ..Response.Taal = ##class(DOM.enu.Taal).Nederlands()
+		Set ..Response.IsContactGegevensFormulierNodig = $$$False
+		Set ..Response.IsLoginFormulierNodig = $$$False
+		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
+		
+		Set Resultaat = ..Response.IsGeldig
+	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "furnifit")) {
+		Set ..Response.PersonalityId = Personality.Furnifit
+		Set ..Response.Taal = ##class(DOM.enu.Taal).Nederlands()
+		Set ..Response.IsContactGegevensFormulierNodig = $$$False
+		Set ..Response.IsLoginFormulierNodig = $$$False
+		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
+		
+		Set Resultaat = ..Response.IsGeldig
+	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "yachtsupplier")) {
+		Set ..Response.PersonalityId = Personality.YachtSupplier
+		Set ..Response.Taal = ##class(DOM.enu.Taal).Nederlands()
+		Set ..Response.IsContactGegevensFormulierNodig = $$$False
+		Set ..Response.IsLoginFormulierNodig = $$$False
+		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
+		
+		Set Resultaat = ..Response.IsGeldig
 
 	} ElseIf (DecrypteerRequest.Hostname = "") {
 		Set ..Response.IsGeldig = $$$False