Changeset 1320 for EWD/ewdapps

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:

• EWD/ewdapps/so/r/ewdu.m (modified) (2 diffs)

EWD/ewdapps/so/r/ewdu.m

@@ -5 +5 @@
  d mergeArrayFromSession^%zewdAPI(.IO,"IO",sessid)
  s U=$$getSessionValue^%zewdAPI("U",sessid)
+ s DILOCKTM=$$getSessionValue^%zewdAPI("DILOCKTM",sessid)
+ s DIQUIET=$$getSessionValue^%zewdAPI("DIQUIET",sessid)
+ s DISYS=$$getSessionValue^%zewdAPI("DISYS",sessid)
+ s DT=$$getSessionValue^%zewdAPI("DT",sessid)
+ s DTIME=$$getSessionValue^%zewdAPI("DTIME",sessid)
  quit
  ;
 s(sessid) ; Save to Symbol Table
+ set DIQUIET=1 d DT^DICRW
  d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid)
  d mergeArrayToSession^%zewdAPI(.IO,"IO",sessid)
  d setSessionValue^%zewdAPI("U","^",sessid)
+ d setSessionValue^%zewdAPI("DILOCKTM",DILOCKTM,sessid)
+ d setSessionValue^%zewdAPI("DIQUIET",DIQUIET,sessid)
+ d setSessionValue^%zewdAPI("DISYS",DISYS,sessid)
+ d setSessionValue^%zewdAPI("DT",DT,sessid)
+ d setSessionValue^%zewdAPI("DTIME",DTIME,sessid)
  quit
  ;
@@ -47 +58 @@
  . d setSessionValue^%zewdAPI("so.fqdn",return(6),sessid)
  . d setSessionValue^%zewdAPI("so.prod",return(7),sessid)
+ . ; 
+ . ; Get the Date in the Symbol Table since $$SITE wants it
+ . s DIQUIET=1 d DT^DICRW
+ . ;
+ . ; Get the site name and format it
+ . n sitename s sitename=$P($$SITE^VASITE(),"^",2)
+ . s sitename=$$TITLE^XLFSTR(sitename)
+ . d setSessionValue^%zewdAPI("so.sitename",sitename,sessid)
  ; ---
 so(sessid) ; SO from EWD; routes to $$SO