Changeset 1310 for EWD/ewdapps/so/r/ewdu.m

Timestamp:

Dec 4, 2011, 12:30:12 PM (12 years ago)

Author:

Sam Habiel

Message:

more

File:

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

EWD/ewdapps/so/r/ewdu.m

@@ -149 +149 @@
  . d appendToList^%zewdAPI("entry",ENTRY,IEN,sessid)        ; Add to session
  Q ""
+CAPOPTS(sessid) ; Nothing much
+ K ^SAMOPTS
+ ZSHOW "V":^SAMOPTS
+ Q ""
 INQ(sessid) ; DIINQUIRE Application Pre-Page Script
  ;
@@ -160 +164 @@
  ; Get File and Entry
  n file s file=$$getSessionValue^%zewdAPI("file",sessid)
- n entry s entry=$$getSessionValue^%zewdAPI("entry",sessid)
+ n entry s entry=$$getRequestValue^%zewdAPI("entry",sessid)
  ;
  ; dbug dbug
  k ^ZZSAM
- S ^ZZSAM("file")=file
- S ^ZZSAM("entry")=entry
+ ZSHOW "V":^ZZSAM
  ;
  ; Now actual VISTA work--write out the output to a file