Index: cspBasis/TBX/DecodeURL/tmpDev.mac.rou =================================================================== diff -u -r135 -r191 --- cspBasis/TBX/DecodeURL/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 135) +++ cspBasis/TBX/DecodeURL/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 191) @@ -353,6 +353,11 @@ . Set Expires=$ZD(Expires,11)_", "_$ZD(Expires,2)_" 00:00:00 GMT" Do %response.SetCookie(Name,Value,Expires,.sPath) Quit + +CreateHashedRefMetUrlEncoding(lbRefArgs,EncKey) + New encRef + Set encRef=$$CreateHashedRef(.lbRefArgs,.EncKey) + Quit $$$Replace(encRef,"/","%2F") // Oproepen via: w $$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(4682)) CreateHashedRef(lbRefArgs,EncKey) ; lbRefArgs=$LB(KLNr,VERW,wsID,Mode) Index: csp/vhisie/TBX/MailResult/tmpDev.mac.rou =================================================================== diff -u -r172 -r191 --- csp/vhisie/TBX/MailResult/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 172) +++ csp/vhisie/TBX/MailResult/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 191) @@ -192,7 +192,7 @@ Set Body=Body_"*** OPGELET: Deze e-mail en onderstaande URL zijn alleen voor intern gebruik bedoeld ***"_$C(13,10) Set Body=Body_$C(13,10) Set Body=Body_"WEB AANVRAAG TANDEMBOX: "_$C(13,10) - Set Body=Body_" "_("http://"_ServName_SubPath_"/"_"Main.csp?Taal=N&REF="_$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,"DUPO",wsID,"PROCESS")))_" ["_KLNr_"\DUPO\"_wsID_"\PROCESS]"_$C(13,10) + Set Body=Body_" "_("http://"_ServName_SubPath_"/"_"Main.csp?Taal=N&REF="_$$CreateHashedRefMetUrlEncoding^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,"DUPO",wsID,"PROCESS")))_" ["_KLNr_"\DUPO\"_wsID_"\PROCESS]"_$C(13,10) Set Body=Body_""_$C(13,10) Do tsmMailFldsExtraN Set Body=Body_"--- End of message ---"_$C(13,10)