dfc71e9d55a4e11869ced70745db1cf7f1a00ea8
[egate.git] / www / msearch.egw
1 <html>
2 {
3 # $Id: msearch.egw,v 1.7 1995/12/22 14:21:15 adam Exp $
4
5     if {[info commands saveState] == ""} {
6         source z39util.tcl
7     }
8     global sessionWait
9     global nextSetNo
10     global setNo
11     global hist
12     global zstatus
13
14     html "<head><title> WWW/Z39.50 Gateway Search </title>\n"
15     html "</head><body>\n"
16     set setNo [lindex $sessionParms 0]
17
18     if {[wform menu1] != ""} {
19         set hist($nextSetNo,0,host) $hist($setNo,0,host)
20         for {set i 1} {$i <= $hist($setNo,0,host)} {incr i} {
21             set hist($nextSetNo,$i,host) $hist($setNo,$i,host)
22             set hist($nextSetNo,$i,database) $hist($setNo,$i,database)
23             set hist($nextSetNo,$i,idAuthentication) \
24                 $hist($setNo,$i,idAuthentication) 
25         }
26         set setNo $nextSetNo
27         incr nextSetNo
28
29         for {set i 1} {$i <= $hist($setNo,0,host)} {incr i} {
30             set hist($setNo,$i,query) [build-query $hist($setNo,$i,host) 3]
31         }
32         set hist($setNo,maxPresent) [wform hits]
33         if {$hist($setNo,maxPresent) == ""} {
34             set hist($setNo,maxPresent) 30
35         }
36     }
37     z39msearch $setNo 1 B
38
39     html "<dl>\n"
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><h3>" [lindex $targets($hist($setNo,$i,host)) 0] ": "
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</h3>\n<dd>NSD$code: $msg: $addinfo"
51         } else {
52             set r [z39$i.$setNo resultCount]
53             html "$r hits</h3>\n<dd>\n"
54
55             display-rec 1 $hist($setNo,$i,offset) display-brief $i
56         }
57         html "\n"
58     }
59     html "</dl>\n"
60 }
61
62 {
63     global useIcons
64
65     if {$useIcons} {
66         html {<img src="/gif/button-egw.gif">}
67     }
68     html {<a href="http:} $env(SCRIPT_NAME)
69     html / $sessionId {/mtargets.egw}
70     if {$useIcons} {
71        html {"><img src="/gif/button-new-target.gif" border=0></a>}
72     } else {
73        html {"> New target </a>} " | \n"
74     }
75     html {<a href="http:} $env(SCRIPT_NAME)
76     html / $sessionId {/mquery.egw/} $host + $setNo
77     if {$useIcons} {
78         html {"><img src="/gif/button-new-query.gif" border=0></a>}
79     } else {
80         html {"> New query </a>}
81     }
82 }
83
84 {
85     html "<hr>\n"
86     html "<h3>Debug information</h3>\n"
87     html "sessionId: $sessionId <br>\n"
88     html "sessionParms: $sessionParms <br>\n"
89     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
90         html $e {: } $env($e) {<br>} \n
91     }
92     html "form: " [wform] " <br>\n"
93     html "target: " $host " <br>\n"
94     html "query: --" $hist($setNo,1,query) "-- <br>\n"
95     html "database: " $hist($setNo,1,database) "<br>\n"
96     html "setNo: " $setNo " <br>\n"
97     html "nextSetNo: " $nextSetNo " <br>\n"
98 }
99
100 </body>
101 </html>