===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v
retrieving revision 1.25
retrieving revision 1.29
diff -u -p -r1.25 -r1.29
--- OpenXM/src/kan96xx/Doc/httpd-asir.sm1	2003/09/14 01:59:56	1.25
+++ OpenXM/src/kan96xx/Doc/httpd-asir.sm1	2009/02/22 17:30:03	1.29
@@ -1,4 +1,4 @@
-%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.24 2002/10/24 02:30:15 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.28 2006/02/11 02:34:53 takayama Exp $
 %% http server by sm1
 
 [(parse) (httpd.sm1) pushfile] extension pop
@@ -47,7 +47,7 @@ def
 
 /webasir { asirweb } def
 /asirweb {
- [/rrr ] pushVariables
+ [/rrr /cmd] pushVariables
  [
   %% This procedure to generate port number might fail.
   [(oxGenPass)] extension . (integer) dc  /rrr set
@@ -73,8 +73,7 @@ def
       3] extension
    }{
       %% On unix.
-      [(sleep 3 ; netscape http://localhost:) httpd.port toString ( & ) ] cat
-      system
+      httpd.port httpd.startBrowserUnix
    } ifelse
 
    httpd ;
@@ -213,10 +212,10 @@ def
 
 
 /httpd.asirman
- ("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir2000/html-jp/man_toc.html")
+ ("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir2000/html-ja/man_toc.html")
 def
 /httpd.asirman.contrib
-  ("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir-contrib/html-ja/cman-ja_toc.html")
+  ("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir-contrib/ja/cman-html/cman-ja_toc.html")
 def
 /httpd.asir.intro
    ("http://www.math.sci.kobe-u.ac.jp/~taka/asir-book-html/main")
@@ -282,7 +281,7 @@ def
       msg2 0 get (httpdAsirMeta) eq 
       msg2 1 get (Pretty) eq and
       {
-        httpd.image.type null eq {
+        httpd.image.type tag 0 eq {
           send-page-warning-image
           /skip-image goto
         } {  } ifelse