Many improvements and bug fixes.

[egate.git] / www / mquery.egw
diff --git a/www/mquery.egw b/www/mquery.egw

index 27e6e32..051dc91 100644 (file)
--- a/www/mquery.egw
+++ b/www/mquery.egw
@@ -4,7 +4,7 @@
  </head>
  <body>
  {
-# $Id: mquery.egw,v 1.1 1995/11/07 14:56:58 adam Exp $
+# $Id: mquery.egw,v 1.2 1995/11/08 16:14:32 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -14,7 +14,7 @@
      global nextSetNo
      global hist
  
-    html {<form action="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
+    html {<form action="http:} $env(SCRIPT_NAME)
      html / $sessionId {/msearch.egw/} $setNo {" method=post>} \n
  
      if {[catch {set setNo $nextSetNo}]} {
@@ -74,7 +74,7 @@ and will continue to be so until the end of December 1995.</em>
  <hr>
  
  {
-    html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
+    html {<a href="http:} $env(SCRIPT_NAME)
      html / $sessionId {/mtargets.egw"> New target </a>}
  }
  {