- if {[z39scan $setNo $scanNo 0 $lines $pos $cache] != "1"} {
- return
- }
- html {<a href="http:} $env(SCRIPT_NAME)
- html / $sessionId {/search.egw/} $setNo + [expr $scanNo - 1] + b
- html {">Backward</a>} "\n"
-
- html {<a href="http:} $env(SCRIPT_NAME)
- html / $sessionId {/search.egw/} $setNo + [expr $scanNo + 1] + f
- html {">Forward</a><br>}
-
- display-scan $setNo $scanNo 0
-
- html {<a href="http:} $env(SCRIPT_NAME)
- html / $sessionId {/search.egw/} $setNo + [expr $scanNo - 1] + b
- html {">Backward</a>} "\n"
-
- html {<a href="http:} $env(SCRIPT_NAME)
- html / $sessionId {/search.egw/} $setNo + [expr $scanNo + 1] + f
- html {">Forward</a><br>}
-
- 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 "setNo: " $setNo " <br>\n"
- html "nextSetNo: " $nextSetNo " <br>\n"
-
- html "</body>\n"
-}
-
-proc buttons {setNo setMax startPos after} {
- global sessionId
- global useIcons
- global env
- global hist
-
- if {!$useIcons && $after && $setMax < [z39.$setNo resultCount]} {
- html "<p>\n"
- html "<center>\n"
- html {<a href="http:} $env(SCRIPT_NAME)
- html / $sessionId {/search.egw/} $setNo + [expr $setMax + 1]
- html + [expr $setMax + $hist($setNo,maxPresent)]
- html {"><img src="/gif/darrw.gif"></a>}
- html "</center>\n"
- }
-
- html "<p>\n"
- if {$useIcons} {
- html {<img src="/gif/button-egw.gif" alt="Europagate" border=0>}
- }
- if {$setMax < [z39.$setNo resultCount]} {