-proc search-response {} {
- global sessionWait
-
- set status [z39.1 responseStatus]
- if {[lindex $status 0] == "NSD"} {
- z39.1 nextResultSetPosition 0
- set code [lindex $status 1]
- set msg [lindex $status 2]
- set addinfo [lindex $status 3]
- htmlr {<strong>Error} $code {: } $msg {: } $addinfo { </strong><br>}
- set sessionWait -2
- } else {
- set sessionWait 1
+proc buttons {setNo setMax startPos after} {
+ global sessionId
+ global env
+ global hist
+
+ if {$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 {$setMax < [z39.$setNo resultCount]} {
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/search.egw/} $setNo + [expr $setMax + 1]
+ html + [expr $setMax + $hist($setNo,maxPresent)]
+ html {">Next records</a>} " | \n"
+ }
+ if {$startPos != "" && $startPos != "1"} {
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/search.egw/} $setNo
+ html + [expr $startPos - $hist($setNo,maxPresent)]
+ html + [expr $startPos - 1]
+ html {">Previous records</a>} " | \n"
+ }
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/query.egw/} $hist($setNo,host) + $setNo
+ html {">New query</a>} " | \n"
+
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/targets.egw">New target</a>} "<p>\n"
+
+ if {!$after && $startPos != "" && $startPos != "1"} {
+ html "<center>\n"
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/search.egw/} $setNo
+ html + [expr $startPos - $hist($setNo,maxPresent)]
+ html + [expr $startPos - 1]
+ html {"><img src="/gif/uarrw.gif"></a>}
+ html "</center><p>\n"