Minor changes.

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

index 4ac4f3a..5407ca3 100644 (file)
--- a/www/msearch.egw
+++ b/www/msearch.egw
@@ -1,6 +1,6 @@
  <html>
  {
-# $Id: msearch.egw,v 1.6 1995/12/21 15:49:51 adam Exp $
+# $Id: msearch.egw,v 1.9 1996/01/04 10:40:00 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -27,7 +27,7 @@
          incr nextSetNo
  
          for {set i 1} {$i <= $hist($setNo,0,host)} {incr i} {
-            set hist($setNo,$i,query) [build-query $hist($setNo,$i,host)] 3
+            set hist($setNo,$i,query) [build-query $hist($setNo,$i,host) 3]
          }
          set hist($setNo,maxPresent) [wform hits]
          if {$hist($setNo,maxPresent) == ""} {
@@ -50,9 +50,10 @@
              html "Error</h3>\n<dd>NSD$code: $msg: $addinfo"
          } else {
              set r [z39$i.$setNo resultCount]
-            html "$r hits</h3>\n<dd>\n"
+            html "$r hits</h3>\n<dd><ul>\n"
  
              display-rec 1 $hist($setNo,$i,offset) display-brief $i
+            html "</ul>"
          }
          html "\n"
      }
@@ -73,7 +74,7 @@
         html {"> New target </a>} " | \n"
      }
      html {<a href="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/mquery.egw/} $host + $setNo
+    html / $sessionId {/mquery.egw/} $setNo
      if {$useIcons} {
          html {"><img src="/gif/button-new-query.gif" border=0></a>}
      } else {
@@ -82,6 +83,7 @@
  }
  
  {
+    if {!$debug} return
      html "<hr>\n"
      html "<h3>Debug information</h3>\n"
      html "sessionId: $sessionId <br>\n"