+ set host $hist($setNo,host)
+ set databases [lindex $targets($host) 1]
+
+ html "<head><title> WWW/Z39.50 Gateway Search " $host " </title>\n"
+ html "</head><body>\n"
+
+ set startPos [lindex $sessionParms 1]
+ set endPos [lindex $sessionParms 2]
+ set setMax 0
+ set setOffset 0
+ if {$startPos == ""} {
+ if {[z39search $setNo 1] != "1"} {
+ return
+ }
+ set r [z39.$setNo resultCount]
+ html "<h2> Search result $r hits</h2>\n"
+ wflush
+ set setOffset [z39.$setNo numberOfRecordsReturned]
+ display-rec 1 $setOffset display-brief z39
+ incr setOffset
+ set setMax [z39.$setNo resultCount]
+ if {$setMax > $hist($setNo,maxPresent)} {
+ set setMax $hist($setNo,maxPresent)
+ }
+ } else {
+ if {[z39search $setNo 0] != "1"} {
+ return
+ }
+ set r [z39.$setNo resultCount]
+ html "<h2> Search result $r hits</h2>\n"
+ wflush
+ set setOffset $startPos
+ set setMax [z39.$setNo resultCount]
+ if {$setMax > $endPos} {
+ set setMax $endPos
+ }
+ if {$setMax > 0} {
+ buttons $setNo $setMax $startPos
+ }
+ }
+ if {$setMax > 0} {
+ z39present $setNo $setOffset $setMax display-brief
+ }
+
+ buttons $setNo $setMax $startPos
+}
+
+{
+ html "<hr>\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
+ }
+ html "form: " [wform] " <br>\n"
+ html "target: " $host " <br>\n"
+ html "databases: " $hist($setNo,database) " <br>\n"
+ html "selected: " [wform base] " <br>\n"
+ html "query: --" $hist($setNo,query) "-- <br>"
+ html "setNo: " $setNo " <br>\n"
+ html "nextSetNo: " $nextSetNo " <br>\n"
+}