<html>
{
-# $Id: search.egw,v 1.23 1996/01/03 15:19:41 adam Exp $
+# $Id: search.egw,v 1.24 1996/01/05 16:35:01 adam Exp $
proc start-scan {scanNo cache dir} {
global sessionId
}
set r [z39.$setNo resultCount]
set setOffset [z39.$setNo numberOfRecordsReturned]
- html {<h3> Records 1-} $setOffset " out of $r</h3>\n"
+ if {$setOffset > 0} {
+ html {<h3> Records 1-} $setOffset " out of $r</h3>\n"
+ } else {
+ html "<h3> No hits</h3>\n"
+ }
wflush
html "<ul>\n"
display-rec 1 $setOffset display-brief 0
if {$setMax > 0} {
buttons $setNo $setMax $startPos 0
}
- html {<h3> Records } $startPos {-} $setMax " out $r</h3>\n"
+ if {$setMax > 0} {
+ html {<h3> Records } $startPos {-} $setMax " out of $r</h3>\n"
+ } else {
+ html "<h3> No hits</h3>\n"
+ }
wflush
html "<ul>\n"
}