- set setMax 0
- set setOffset 0
- set useIcons 1
- if {$startPos == ""} {
- if {[z39search $setNo 1 0 B] != "1"} {
- return
- }
- set r [z39.$setNo resultCount]
-
- set setMax [z39.$setNo resultCount]
- if {$setMax > $hist($setNo,maxPresent)} {
- set setMax $hist($setNo,maxPresent)
- }
- buttons $setNo $setMax $startPos 0
-
- set setOffset [z39.$setNo numberOfRecordsReturned]
- 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 $setMax display-brief 0
- incr setOffset
-
- } 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
- }
- 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"
- }
- egw_flush
- html "<ul>\n"
- }
- if {$setMax > 0} {
- z39present $setNo 0 $setOffset $setMax display-brief B
- }
- html "</ul>\n"
- set useIcons 0
- buttons $setNo $setMax $startPos 1