Changeset 1317 for EWD


Ignore:
Timestamp:
Dec 10, 2011, 5:46:34 PM (13 years ago)
Author:
Sam Habiel
Message:

some vars prefixed by so; SETUP d2 setup

File:
1 edited

Legend:

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

    r1316 r1317  
    2828 q
    2929 ;
    30 SETUP(sessid) ; Set-up and SSO
     30setup(sessid) ; Set-up and SSO
    3131 ; TODO: Set IO("CLNM")
    3232 i '$data(IO) d NULL                  ; Open Null Device
     
    3434 n return
    3535 d SETUP^XUSRB(.return)               ; Set-up and Try SSO
    36  i $g(return(5)),DUZ>0 q $$s(sessid)  ; Single Sign-On Successful!
     36 ;0=server name, 1=volume, 2=uci, 3=device, 4=# attempts, 5=skip signon-screen,6=Domain Name, 7=Production (0=no, 1=Yes)
     37 i $g(return(5)),DUZ>0 q $$s(sessid)  ; Single Sign-On Successful; need redirect though here.
    3738 e  d  q ""                           ; Otherwise, get INTRO text
    38  . N RET
    39  . D INTRO^XUSRB(.RET)
    40  . d mergeArrayToSession^%zewdAPI(.RET,"introtxt",sessid)
     39 . N INTROTXT
     40 . D INTRO^XUSRB(.INTROTXT)
     41 . d mergeArrayToSession^%zewdAPI(.INTROTXT,"so.introtxt",sessid)
     42 . d setSessionValue^%zewdAPI("so.serverName",return(0),sessid)
     43 . d setSessionValue^%zewdAPI("so.volume",return(1),sessid)
     44 . d setSessionValue^%zewdAPI("so.uci",return(2),sessid)
     45 . ; Don't care about device! (return(3))
     46 . ; Number of Attempts (return(4))
     47 . d setSessionValue^%zewdAPI("so.fqdn",return(6),sessid)
     48 . d setSessionValue^%zewdAPI("so.prod",return(7),sessid)
    4149 ; ---
    4250so(sessid) ; SO from EWD; routes to $$SO
Note: See TracChangeset for help on using the changeset viewer.