<html>
{
-# $Id: search.egw,v 1.23 1996/01/03 15:19:41 adam Exp $
+# $Id: search.egw,v 1.25 1996/01/08 08:42:17 adam Exp $
proc start-scan {scanNo cache dir} {
global sessionId
}
set hist($setNo,query) $query
} else {
+ if {![info exists hist($setNo,scan)]} return
if {$hist($setNo,scan) > 0} {
set scanNo [lindex $sessionParms 1]
set dir [lindex $sessionParms 2]
}
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"
}
html "<h3>Debug information</h3>\n"
html "sessionId: $sessionId <br>\n"
html "sessionParms: $sessionParms <br>\n"
- foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
- html $e {: } $env($e) {<br>} \n
+ foreach n [array names env] {
+ html "env($n) = " $env($n) " <br>\n"
}
html "form: " [wform] " <br>\n"
html "target: " $host " <br>\n"