===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/cgiasir.sm1,v
retrieving revision 1.1
retrieving revision 1.4
diff -u -p -r1.1 -r1.4
--- OpenXM/src/kan96xx/Doc/cgiasir.sm1	2005/02/24 06:13:30	1.1
+++ OpenXM/src/kan96xx/Doc/cgiasir.sm1	2005/02/27 08:22:56	1.4
@@ -1,5 +1,5 @@
-%$Id: cgiasir.sm1,v 1.1 2005/02/24 06:13:30 takayama Exp $
-%$OpenXM$
+%$Id: cgiasir.sm1,v 1.4 2005/02/27 08:22:56 takayama Exp $
+%$OpenXM: OpenXM/src/kan96xx/Doc/cgiasir.sm1,v 1.3 2005/02/27 07:08:11 takayama Exp $
 [(parse) (ox.sm1) pushfile] extension
 [(parse) (cgi.sm1) pushfile] extension
 
@@ -59,6 +59,9 @@
 % CGI_ASIR_ALLOW is not used.
 /cgiAsirAllow
   [
+%% They are required by the system
+     (ox103_reset)
+%%%%%%%%%%%%%%%%%%%%%%%%%%
 %    (primadec)
 %    (fctr)
 %    (dp_gr_main)
@@ -137,6 +140,11 @@ def
 def
 
 /cgiAsir.0 {
+  cgiAsir.0a 
+  cgiAsir.0b
+} def
+
+/cgiAsir.0a {
   /arg1 set
   [/sss /kv /comm /i /acti0 /pError] pushVariables
   [ 
@@ -162,12 +170,16 @@ def
 % Step 3. Calling asir
     oxasir.ccc [ ] eq { ox_cgiAsirConnectMethod } { } ifelse 
     oxasir.ccc cgi.body oxsubmit
+  ] pop
+  popVariables
+} def
+
+/cgiAsir.0b {
+% Step 4. Request the result
     oxasir.ccc oxpopstring /cgi_body set
     % set for cgiReplyInHttp0
     /@@@stdout (NONE) def  /@@@stderr (NONE) def
     /cgi.body cgi_body def    
-  ] pop
-  popVariables
 } def
 
 /cgi.test2 {