<html>
{
-# $Id: msearch.egw,v 1.13 1996/01/26 15:50:07 adam Exp $
+# $Id: msearch.egw,v 1.15 1996/02/29 15:41:38 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
}
set hist($setNo,maxPresent) [egw_form hits]
if {$hist($setNo,maxPresent) == ""} {
- set hist($setNo,maxPresent) 30
+ set hist($setNo,maxPresent) 20
}
}
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)
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 $i
+ } else {
+ display-rec 1 $hist($setNo,$i,offset) display-brief $i
+ }
html "</ul>"
}
html "\n"