===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd.sm1,v
retrieving revision 1.8
retrieving revision 1.10
diff -u -p -r1.8 -r1.10
--- OpenXM/src/kan96xx/Doc/httpd.sm1	2002/10/21 02:25:51	1.8
+++ OpenXM/src/kan96xx/Doc/httpd.sm1	2002/10/23 13:38:50	1.10
@@ -1,4 +1,4 @@
-%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.7 2002/10/21 01:59:15 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.9 2002/10/21 10:43:52 takayama Exp $
 %% common modules for httpd on sm1.
 /Oxserver_history_variable (Oxserver_history_variable_) def
 /httpd.image.type  
@@ -330,7 +330,7 @@ def
   ] pushVariables
   [
      /s arg1 def
-     /httpd.textarea.valid 1 def
+     /httpd.textarea.valid 0 def
      s 1 copy /s2 set
      s (array) dc /s set
      /nnn httpd.textarea.name.aaa length 6 sub def
@@ -343,14 +343,14 @@ def
 
          [
           << tname length 1 sub  >> -1
-          << tname length nnn sub >> {
+          << tname length nnn sub >> dup 0 ge { } { pop 0 } ifelse 
+          {
              /i set
              tname i get
           } for
-         ] reverse /tname set
+         ] reverse /tname set 
          (GET /?) (array) dc tname join /tname set
 
-         tname message
          httpd.textarea.name.aaa message
          tname httpd.textarea.name.aaa eq {
            /httpd.textarea.valid 1 def