Arrow gifs.

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

index ee40776..efe43b9 100644 (file)
--- a/www/msearch.egw
+++ b/www/msearch.egw
@@ -1,6 +1,6 @@
  <html>
  {
-# $Id: msearch.egw,v 1.4 1995/11/10 14:47:31 adam Exp $
+# $Id: msearch.egw,v 1.5 1995/11/13 15:41:42 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -21,7 +21,7 @@
              set hist($nextSetNo,$i,host) $hist($setNo,$i,host)
              set hist($nextSetNo,$i,database) $hist($setNo,$i,database)
              set hist($nextSetNo,$i,idAuthentication) \
-                hist($setNo,$i,idAuthentication) 
+                $hist($setNo,$i,idAuthentication) 
          }
          set setNo $nextSetNo
          incr nextSetNo
@@ -34,13 +34,13 @@
              set hist($setNo,maxPresent) 30
          }
      }
-    z39msearch $setNo 1
+    z39msearch $setNo 1 B
  
      html "<dl>\n"
      set not $hist($setNo,0,host)
      for {set i 1} {$i <= $not} {incr i} {
          if {$zstatus($i) != 2} continue
-        html "<dt> " $hist($setNo,$i,host) ": "
+        html "<dt> " [lindex $targets($hist($setNo,$i,host)) 0] ": "
          set status [z39$i.$setNo responseStatus]
          if {[lindex $status 0] == "NSD"} {
              z39$i.$setNo nextResultSetPosition 0