+ global sessionParms
+ global sessionWait
+ global setNo
+ global hist
+ global targets
+ global nextSetNo
+ global env
+ global useIcons
+ global debug
+
+ set host $hist($setNo,host)
+
+ html "<head><title> WWW/Z39.50 Gateway Scan " $host " </title>\n"
+ html "</head><body>\n"
+
+ if {$hist($setNo,$scanNo,scanTerm) == ""} {
+ displayError "Empty query" \
+ "You must specify at least one search word"
+ wabort
+ return
+ }
+ if {$dir == "b"} {
+ set lines 20
+ set pos 20
+ } elseif {$dir == "f"} {
+ set lines 20
+ set pos 1
+ } else {
+ set lines 20
+ set pos 10
+ }
+ if {[z39scan $setNo $scanNo 0 $lines $pos $cache] != "1"} {
+ return
+ }
+ button-europagate
+
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/search.egw/} $setNo + [expr $scanNo - 1] + b {">}
+ if {$useIcons} {
+ html {<img src="/gif/button-previous-terms.gif" }
+ html {alt="Next Terms" border=0></a>}
+ } else {
+ html {Previous Terms</a> | }
+ }
+
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/search.egw/} $setNo + [expr $scanNo + 1] + f {">}
+ if {$useIcons} {
+ html {<img src="/gif/button-next-terms.gif" }
+ html {alt="Next Terms" border=0></a>}
+ } else {
+ html {Next Terms</a> | }
+ }
+ html {</a>}
+ button-new-query 0 $setNo
+
+ html "<br><p>\n"
+ display-scan $setNo $scanNo 0
+ html "<p>\n"
+
+ button-europagate
+
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/search.egw/} $setNo + [expr $scanNo - 1] + b {">}
+ if {$useIcons} {
+ html {<img src="/gif/button-previous-terms.gif" }
+ html {alt="Next Terms" border=0></a>}
+ } else {
+ html {Previous Terms</a> | }
+ }
+
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/search.egw/} $setNo + [expr $scanNo + 1] + f {">}
+ if {$useIcons} {
+ html {<img src="/gif/button-next-terms.gif" }
+ html {alt="Next Terms" border=0></a>}
+ } else {
+ html {Next Terms</a> | }
+ }
+ html {</a>}
+ button-new-query 0 $setNo
+
+ if {!$debug} return
+ 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"
+}
+
+proc buttons {setNo setMax startPos after} {
+ global sessionId
+ global useIcons