Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml =================================================================== diff -u -r46473 -r46643 --- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml (.../Decrypteerder.cls.xml) (revision 46473) +++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml (.../Decrypteerder.cls.xml) (revision 46643) @@ -92,14 +92,17 @@ Set ..Response.IsGeldig = 1 If ##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname) [ "hein" { Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Hein() + Set ..Response.IsLoginFormulierNodig = 1 } Else { - Set ..Response.PersonalityId = 13 + Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Seefelder() + Set ..Response.IsContactGegevensFormulierNodig = 0 + Set ..Response.IsLoginFormulierNodig = 0 } + Set ..Response.IsGeldig = 1 Set ..Response.Taal = "D" - Set ..Response.IsLoginFormulierNodig = 1 } ElseIf (DecrypteerRequest.Hostname = "") { Set ..Response.IsGeldig = 0 - } ElseIf ((DecrypteerRequest.Ref = "") && $$$Not(DecrypteerRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).Hein())) { + } ElseIf ((DecrypteerRequest.Ref = "") && $$$Not(##class(TECH.StringUtils).Equals(DecrypteerRequest.Header.PersonalityId,##class(DOM.common.enu.Personality).Hein(),##class(DOM.common.enu.Personality).Seefelder()))) { Set ..Response.IsGeldig = 0 } ElseIf (DecrypteerRequest.DataOpt = "") { Set ..Response.IsContactGegevensFormulierNodig = 1 @@ -111,6 +114,12 @@ Set Resultaat = $$$True } + Do ..Response.ToegelatenLadetypes.Clear() + + Do ..Response.ToegelatenLadetypes.Insert("LBX") + Do ..Response.ToegelatenLadetypes.Insert("TBX") + Do ..Response.ToegelatenLadetypes.Insert("TAX") + Quit Resultaat ]]>