Minor changes.

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

index 7f41697..c1c825a 100644 (file)
--- a/www/msearch.egw
+++ b/www/msearch.egw
@@ -1,6 +1,6 @@
  <html>
  {
-# $Id: msearch.egw,v 1.2 1995/11/08 16:14:33 adam Exp $
+# $Id: msearch.egw,v 1.3 1995/11/08 18:07:22 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -11,6 +11,8 @@
      global hist
      global zstatus
  
+    html "<head><title> WWW/Z39.50 Gateway Search </title>\n"
+    html "</head><body>\n"
      if {[wform menu1] == ""} {
          set setNo [lindex $sessionParms 0]
      } else {
@@ -32,9 +34,6 @@
              set hist($setNo,maxPresent) 30
          }
      }
-    html "<head><title> WWW/Z39.50 Gateway Search </title>\n"
-    html "</head><body>\n"
-
      z39msearch $setNo 1
  
      html "<dl>\n"
@@ -79,7 +78,8 @@
      }
      html "form: " [wform] " <br>\n"
      html "target: " $host " <br>\n"
-    html "query: --" $hist($setNo,1,query) "-- <br>"
+    html "query: --" $hist($setNo,1,query) "-- <br>\n"
+    html "database: " $hist($setNo,1,database) "<br>\n"
      html "setNo: " $setNo " <br>\n"
      html "nextSetNo: " $nextSetNo " <br>\n"
  }