Changeset 1316


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • EWD/ewdapps/so/r/ewdu.m

    r1314 r1316  
    6767 ; TODO: Handle the rest of the return values
    6868 N return
    69  D VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac_";"_vc))
     69 ; if ac contains ;, then it contains the verify code
     70 ; else, send ac;vc
     71 if ac[";" d VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac))
     72 else  d VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac_";"_vc))
    7073 i return(0)>0,'return(2) q "" ; Sign on successful!
    7174 i return(0)=0,return(2) q "CVC"  ; Verify Code must be changed NOW!
Note: See TracChangeset for help on using the changeset viewer.