Index: BL/Legacy/HADWIZ.cls.xml =================================================================== diff -u -r71317 -r71473 --- BL/Legacy/HADWIZ.cls.xml (.../HADWIZ.cls.xml) (revision 71317) +++ BL/Legacy/HADWIZ.cls.xml (.../HADWIZ.cls.xml) (revision 71473) @@ -213,15 +213,15 @@ #dim EncryptedValue As %String = $System.Encryption.Base64Encode($System.Encryption.AESCBCEncrypt(IdentNummer,AesKey,"")) Set ProductAlsUrlInput = $Translate(EncryptedValue, "/+=", "!_-") } - #dim SubFolder As %String = $Case(Taal, - "N" : "/nl/producten", - "F" : "/fr/produits", - "E" : "/en/products", - "D" : "/de/Produkte", - : "/nl/producten") + "N" : "/nl", + "F" : "/fr", + "E" : "/en", + "D" : "/de", + : "/nl") + Set SubFolder = SubFolder _ "/product/decrypt" - Quit "https://www.vanhoecke.be" _ SubFolder _ "/" _ ProductAlsUrlInput + Quit "https://www-test.vanhoecke.be" _ SubFolder _ "/" _ ProductAlsUrlInput ]]>