Changeset 1320 for EWD/ewdapps/so


Ignore:
Timestamp:
Dec 10, 2011, 6:57:33 PM (13 years ago)
Author:
Sam Habiel
Message:

More Session Variables, sitename now saved in ewd session in so.sitename

File:
1 edited

Legend:

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

    r1317 r1320  
    55 d mergeArrayFromSession^%zewdAPI(.IO,"IO",sessid)
    66 s U=$$getSessionValue^%zewdAPI("U",sessid)
     7 s DILOCKTM=$$getSessionValue^%zewdAPI("DILOCKTM",sessid)
     8 s DIQUIET=$$getSessionValue^%zewdAPI("DIQUIET",sessid)
     9 s DISYS=$$getSessionValue^%zewdAPI("DISYS",sessid)
     10 s DT=$$getSessionValue^%zewdAPI("DT",sessid)
     11 s DTIME=$$getSessionValue^%zewdAPI("DTIME",sessid)
    712 quit
    813 ;
    914s(sessid) ; Save to Symbol Table
     15 set DIQUIET=1 d DT^DICRW
    1016 d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid)
    1117 d mergeArrayToSession^%zewdAPI(.IO,"IO",sessid)
    1218 d setSessionValue^%zewdAPI("U","^",sessid)
     19 d setSessionValue^%zewdAPI("DILOCKTM",DILOCKTM,sessid)
     20 d setSessionValue^%zewdAPI("DIQUIET",DIQUIET,sessid)
     21 d setSessionValue^%zewdAPI("DISYS",DISYS,sessid)
     22 d setSessionValue^%zewdAPI("DT",DT,sessid)
     23 d setSessionValue^%zewdAPI("DTIME",DTIME,sessid)
    1324 quit
    1425 ;
     
    4758 . d setSessionValue^%zewdAPI("so.fqdn",return(6),sessid)
    4859 . d setSessionValue^%zewdAPI("so.prod",return(7),sessid)
     60 . ;
     61 . ; Get the Date in the Symbol Table since $$SITE wants it
     62 . s DIQUIET=1 d DT^DICRW
     63 . ;
     64 . ; Get the site name and format it
     65 . n sitename s sitename=$P($$SITE^VASITE(),"^",2)
     66 . s sitename=$$TITLE^XLFSTR(sitename)
     67 . d setSessionValue^%zewdAPI("so.sitename",sitename,sessid)
    4968 ; ---
    5069so(sessid) ; SO from EWD; routes to $$SO
Note: See TracChangeset for help on using the changeset viewer.