<html>
{
-# $Id: search.egw,v 1.31 1996/01/26 15:50:08 adam Exp $
+# $Id: search.egw,v 1.33 1996/02/29 15:41:39 adam Exp $
proc start-scan {scanNo cache dir initSet} {
global sessionId
buttons $setNo $setMax $startPos 0
set setOffset [z39.$setNo numberOfRecordsReturned]
- if {$setOffset > 0} {
- html {<h3> Records 1-} $setOffset " out of $r</h3>\n"
+ if {$setMax > 0} {
+ html {<h3> Records 1-} $setMax " out of $r</h3>\n"
} else {
html "<h3> No hits</h3>\n"
}
egw_flush
html "<ul>\n"
- display-rec 1 $setOffset display-brief 0
+ display-rec 1 $setMax display-brief 0
incr setOffset
} else {