<html>
{
-# $Id: search.egw,v 1.13 1995/11/10 10:20:24 adam Exp $
+# $Id: search.egw,v 1.17 1995/11/14 16:01:51 adam Exp $
-proc buttons {setNo setMax startPos} {
+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)
if {$startPos != "" && $startPos != "1"} {
html {<a href="http:} $env(SCRIPT_NAME)
html / $sessionId {/search.egw/} $setNo
- if {[expr $startPos - $hist($setNo,maxPresent)] > 1} {
- html + [expr $startPos - $hist($setNo,maxPresent)]
- html + [expr $startPos - 1]
- }
+ html + [expr $startPos - $hist($setNo,maxPresent)]
+ html + [expr $startPos - 1]
html {">Previous records</a>} " | \n"
}
html {<a href="http:} $env(SCRIPT_NAME)
- html / $sessionId {/targets.egw">New target</a>} " | \n"
- html {<a href="http:} $env(SCRIPT_NAME)
html / $sessionId {/query.egw/} $hist($setNo,host) + $setNo
- html {">New query</a>} "\n<p>\n"
+ 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"
+ }
+
}
if {[info commands saveState] == ""} {
set hist($nextSetNo,host) $hist($setNo,host)
set setNo $nextSetNo
html "using host " $hist($setNo,host) " <br\n"
+
+ set query [build-query $hist($setNo,host)]
+ if {"x$query" == "x"} {
+ html "<head><title> WWW/Z39.50 Gateway Search</title>\n<body>\n"
+ displayError "Empty query" \
+ "You must specify at least one search word"
+ html "</body></html>\n"
+ wabort
+ }
+ set hist($setNo,query) $query
+
+ set hist($setNo,form,menu1) [wform menu1]
+ set hist($setNo,form,menu2) [wform menu2]
+ set hist($setNo,form,menu3) [wform menu3]
+
+ set hist($setNo,form,entry1) [wform entry1]
+ set hist($setNo,form,entry2) [wform entry2]
+ set hist($setNo,form,entry3) [wform entry3]
+
+ set hist($setNo,form,logic1) [wform logic1]
+ set hist($setNo,form,logic2) [wform logic2]
+
incr nextSetNo
+
+ set host $hist($setNo,host)
+ set databases [lindex $targets($host) 1]
- set hist($setNo,query) [build-query $hist($setNo,host)]
set b [wform base]
- if {$b == ""} {
+ if {[wform baseall] != ""} {
+ set hist($setNo,database) $databases
+ } elseif {$b == ""} {
set hist($setNo,database) $databases
} else {
set hist($setNo,database) $b
set setMax 0
set setOffset 0
if {$startPos == ""} {
- if {[z39search $setNo 1] != "1"} {
+ if {[z39search $setNo 1 0 B] != "1"} {
return
}
set r [z39.$setNo resultCount]
html "<h2> Search result $r hits</h2>\n"
wflush
set setOffset [z39.$setNo numberOfRecordsReturned]
- display-rec 1 $setOffset display-brief z39
+ 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] != "1"} {
+ if {[z39search $setNo 0 0 B] != "1"} {
return
}
set r [z39.$setNo resultCount]
set setMax $endPos
}
if {$setMax > 0} {
- buttons $setNo $setMax $startPos
+ buttons $setNo $setMax $startPos 0
}
}
if {$setMax > 0} {
- z39present $setNo $setOffset $setMax display-brief
+ z39present $setNo 0 $setOffset $setMax display-brief B
}
- buttons $setNo $setMax $startPos
+ buttons $setNo $setMax $startPos 1
}
{