iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update for tokens

This commit is contained in:
george 2011-01-06 22:23:53 +00:00
parent c0531287c4
commit e4c0e0fd48
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
p/C0CEWD.m
View File

@ -40,10 +40,11 @@ GET(ZRTN,ZTOKEN,NOKILL) ; RETRIEVE A STORED ARRAY INDEXED BY ZTOKEN
Q Q
; ;
URLTOKEN(sessid) ; EXTRINSIC WHICH RETRIEVES THE TOKEN PASSED ON THE URL URLTOKEN(sessid) ; EXTRINSIC WHICH RETRIEVES THE TOKEN PASSED ON THE URL
; IN EWD EXAMPLE: https://example.com/ewd/myApp/index.ewd&token="12345" ; IN EWD EXAMPLE: https://example.com/ewd/myApp/index.ewd?token="12345"
N token N token
S token="" S token=""
s token=$$getRequestValue^%zewdAPI("token",sessid) s token=$$getRequestValue^%zewdAPI("token",sessid)
s token=$tr(token,"""") ; strip out quotes
Q token Q token
; ;
cbTestMethod(prefix,seedValue,lastSeedValue,optionNo,options) cbTestMethod(prefix,seedValue,lastSeedValue,optionNo,options)