3 # $Id: msearch.egw,v 1.3 1995/11/08 18:07:22 adam Exp $
5 if {[info commands saveState] == ""} {
14 html "<head><title> WWW/Z39.50 Gateway Search </title>\n"
15 html "</head><body>\n"
16 if {[wform menu1] == ""} {
17 set setNo [lindex $sessionParms 0]
19 if {![info exists hist($nextSetNo,0,host)]} {
20 set hist($nextSetNo,0,host) $hist($setNo,0,host)
21 for {set i 1} {$i <= $hist($setNo,0,host)} {incr i} {
22 set hist($nextSetNo,$i,host) $hist($setNo,$i,host)
23 set hist($nextSetNo,$i,database) $hist($setNo,$i,database)
29 for {set i 1} {$i <= $hist($setNo,0,host)} {incr i} {
30 set hist($setNo,$i,query) [build-query $hist($setNo,$i,host)]
32 set hist($setNo,maxPresent) [wform hits]
33 if {$hist($setNo,maxPresent) == ""} {
34 set hist($setNo,maxPresent) 30
40 set not $hist($setNo,0,host)
41 for {set i 1} {$i <= $not} {incr i} {
42 if {$zstatus($i) != 2} continue
43 html "<dt> " $hist($setNo,$i,host) ": "
44 set status [z39$i.$setNo responseStatus]
45 if {[lindex $status 0] == "NSD"} {
46 z39$i.$setNo nextResultSetPosition 0
47 set code [lindex $status 1]
48 set msg [lindex $status 2]
49 set addinfo [lindex $status 3]
50 html "Error\n<dd>NSD$code: $msg: $addinfo"
52 set r [z39$i.$setNo resultCount]
53 html "$r hits\n<dd>\n"
55 display-rec 1 $hist($setNo,$i,offset) display-brief z39$i
65 html {<a href="http:} $env(SCRIPT_NAME)
66 html / $sessionId {/mtargets.egw"> New target </a>} " | \n"
67 html {<a href="http:} $env(SCRIPT_NAME)
68 html / $sessionId {/mquery.egw/} $host + $setNo {"> New query </a>}
73 html "<h3>Debug information</h3>\n"
74 html "sessionId: $sessionId <br>\n"
75 html "sessionParms: $sessionParms <br>\n"
76 foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
77 html $e {: } $env($e) {<br>} \n
79 html "form: " [wform] " <br>\n"
80 html "target: " $host " <br>\n"
81 html "query: --" $hist($setNo,1,query) "-- <br>\n"
82 html "database: " $hist($setNo,1,database) "<br>\n"
83 html "setNo: " $setNo " <br>\n"
84 html "nextSetNo: " $nextSetNo " <br>\n"