Lots of changes. They aren't visible though.

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

index 2ca5eb5..ee8add3 100644 (file)
--- a/www/msearch.egw
+++ b/www/msearch.egw
@@ -1,6 +1,6 @@
  <html>
  {
-# $Id: msearch.egw,v 1.13 1996/01/26 15:50:07 adam Exp $
+# $Id: msearch.egw,v 1.16 1996/03/07 12:46:08 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -32,7 +32,7 @@
          }
          set hist($setNo,maxPresent) [egw_form hits]
          if {$hist($setNo,maxPresent) == ""} {
-            set hist($setNo,maxPresent) 30
+            set hist($setNo,maxPresent) 20
          }
      }
  
@@ -42,7 +42,7 @@
      button-new-target 0
  
      html "<br>\n"
-    z39msearch $setNo 1 B
+    z39msearch $setNo B 1 $hist($setNo,maxPresent) 1
  
      html "<dl>\n"
      set not $hist($setNo,0,host)
@@ -60,7 +60,11 @@
              set r [z39$i.$setNo resultCount]
              html "$r hits</h3>\n<dd>\n<ul>\n"
  
-            display-rec 1 $hist($setNo,$i,offset) display-brief $i
+            if {$hist($setNo,$i,offset) > $hist($setNo,maxPresent)} {
+                display-rec 1 $hist($setNo,maxPresent) display-brief $setNo $i
+            } else {
+                display-rec 1 $hist($setNo,$i,offset) display-brief $setNo $i
+            }
              html "</ul>"
          }
          html "\n"