Changeset 1316 for EWD/ewdapps

Timestamp:

Dec 9, 2011, 8:56:59 PM (13 years ago)

Author:

Sam Habiel

Message:

Support for sending verify code in access code using ; m side

File:

• EWD/ewdapps/so/r/ewdu.m (modified) (1 diff)

EWD/ewdapps/so/r/ewdu.m

@@ -67 +67 @@
  ; TODO: Handle the rest of the return values
  N return
- D VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac_";"_vc))
+ ; if ac contains ;, then it contains the verify code
+ ; else, send ac;vc
+ if ac[";" d VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac))
+ else  d VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac_";"_vc))
  i return(0)>0,'return(2) q "" ; Sign on successful!
  i return(0)=0,return(2) q "CVC"  ; Verify Code must be changed NOW!