Run latex

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

index 364a8cd..ba50759 100644 (file)
--- a/www/mquery.egw
+++ b/www/mquery.egw
@@ -1,13 +1,13 @@
  <html>
-<head>
-<title> WWW/Z39.50 Gateway Query Form</title>
-</head>
-<body>
  {
-# $Id: mquery.egw,v 1.15 1996/03/13 14:07:29 adam Exp $
+# $Id: mquery.egw,v 1.18 2001/02/26 14:32:36 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
+        if {![info exists debug]} {
+            session-lost
+            egw_abort
+        }
      }
  
      global setNo
@@ -20,11 +20,13 @@
          set setNo 1
      }
  
+    html {<head><title> WWW/Z39.50 Gateway Query Form</title></head><body>}
+
      set useIcons 1
      button-main
      button-new-target
  
-    html {<form action="http:} $env(SCRIPT_NAME)
+    html {<form action="} $env(SCRIPT_NAME)
      html / $sessionId {/msearch.egw/} $setNo {" method=get>} \n
  
      set phost {}
@@ -35,6 +37,7 @@
          if {$host != $phost} {
              set phost $host
              incr i
+            catch {unset hist($setNo,$i,database)}
              set hist($setNo,$i,host) $host
              set hist($setNo,$i,idAuthentication) [lindex $targets($host) 3]
          }