Major revision. Single-target result set can be reached from the
[egate.git] / www / sameas.egw
1 <html>
2 {
3 # $Id: sameas.egw,v 1.1 1996/03/07 12:46:08 adam Exp $
4     if {[info commands saveState] == ""} {
5         source z39util.tcl
6     }
7     global nextSetNo
8
9     set setNo [lindex $sessionParms 0]
10     set targetNo [lindex $sessionParms 1]
11     set startPos [lindex $sessionParms 2]
12     set endPos [lindex $sessionParms 3]
13     set docId [lindex $sessionParms 4]
14
15     if {[info exists hist(setNoT,docId$docId)]} {
16         set setNo $hist(setNoT,docId$docId)
17     } else {
18         set hist($nextSetNo,$targetNo,idAuthentication) \
19                 $hist($setNo,$targetNo,idAuthentication)
20         set hist($nextSetNo,$targetNo,host) \
21                 $hist($setNo,$targetNo,host)
22         set hist($nextSetNo,$targetNo,database) \
23                 $hist($setNo,$targetNo,database)
24         set setNo $nextSetNo
25         incr nextSetNo
26     }
27     set hist($setNo,scan) 0
28
29     for {set i 1} {$i <= 3} {incr i} {
30         set hist($setNo,form,menu$i) {}
31         set hist($setNo,form,entry$i) {}
32         set hist($setNo,form,logic$i) {}
33     }
34     set host $hist($setNo,$targetNo,host)
35
36     html "<head><title> WWW/Z39.50 Gateway Search Feedback "
37     html [splitHostSpec $host] 
38     html " </title>\n"
39     html "</head><body>\n"
40
41     set hist($setNo,$targetNo,query) {}
42     set hist($setNo,$targetNo,queryId) $docId
43     egw_log debug "In sameas: got docID $docId"
44     display-result-set-s $setNo $targetNo $startPos $endPos
45 }
46 </html>