- set startPos [lindex $sessionParms 1]
- set endPos [lindex $sessionParms 2]
- set setMax 0
- set setOffset 0
- if {$startPos == ""} {
- if {[z39search $setNo 1 0 B] != "1"} {
- return
- }
- set r [z39.$setNo resultCount]
- set setOffset [z39.$setNo numberOfRecordsReturned]
- 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
- incr setOffset
- set setMax [z39.$setNo resultCount]
- if {$setMax > $hist($setNo,maxPresent)} {
- set setMax $hist($setNo,maxPresent)
- }
- } else {
- if {[z39search $setNo 0 0 B] != "1"} {
- return
- }
- set r [z39.$setNo resultCount]
- set setOffset $startPos
- set setMax [z39.$setNo resultCount]
- if {$setMax > $endPos} {
- set setMax $endPos
- }
- if {$setMax > 0} {
- buttons $setNo $setMax $startPos 0
- }
- if {$setMax > 0} {
- html {<h3> Records } $startPos {-} $setMax " out of $r</h3>\n"
- } else {
- html "<h3> No hits</h3>\n"
- }
- wflush
- html "<ul>\n"
- }
- if {$setMax > 0} {
- z39present $setNo 0 $setOffset $setMax display-brief B
- }
- html "</ul>\n"
- buttons $setNo $setMax $startPos 1