Index: csp/vhisie/TBX/BuildRef/tmpDev.mac.rou =================================================================== diff -u -r577 -r718 --- csp/vhisie/TBX/BuildRef/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 577) +++ csp/vhisie/TBX/BuildRef/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 718) @@ -48,7 +48,7 @@ Do . Set %blnBuildRef=1 . Set DataOpt=$G(%request.Data("DATAOPT",1)) - . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:"")) + . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLE":"HFLE", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:"")) . Kill %blnBuildRef If ($G(%request.Data("SUBMIT",1))="Encrypt") Do @@ -59,7 +59,7 @@ . ;If $L($G(%request.Data("DATAOPT",1))) Do . If $L(DataOpt) Do .. Set DataOptCheck=DataOpt - .. Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:"")) + .. Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLE":"HFLE", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:"")) .. ;Set EncDataOptOut=$system.Encryption.Base64Decode($TR(EncDataOptOut,"_-","+=")) . ;New Page,UrlTaal . Set Page=$G(%request.Data("PAGE",1))