6687d2411525d3e3c835e4c748a5162b4e05263d
[egate.git] / www / search.egw
1 <html>
2 {
3 # $Id: search.egw,v 1.12 1995/11/09 15:24:36 adam Exp $
4
5 proc buttons {setNo setMax startPos} {
6     global sessionId
7     global env
8     global hist
9
10     html "<p>\n"
11     if {$setMax < [z39.$setNo resultCount]} {
12         html {<a href="http:} $env(SCRIPT_NAME)
13         html / $sessionId {/search.egw/} $setNo + [expr $setMax + 1]
14         html + [expr $setMax + $hist($setNo,maxPresent)]
15         html {"> Next records </a>} "| \n"
16     }
17     if {$startPos != "" && $startPos != "1"} {
18         html {<a href="http:} $env(SCRIPT_NAME)
19         html / $sessionId {/search.egw/} $setNo 
20         if {[expr $startPos - $hist($setNo,maxPresent)] > 1} {
21             html + [expr $startPos - $hist($setNo,maxPresent)]
22             html + [expr $startPos - 1]
23         }
24         html {"> Previous records </a>} "| \n"
25     }
26     html {<a href="http:} $env(SCRIPT_NAME)
27     html / $sessionId {/targets.egw"> New target </a>} " | \n"
28     html {<a href="http:} $env(SCRIPT_NAME)
29     html / $sessionId {/query.egw/} $hist($setNo,host) + $setNo 
30     html {"> New query </a>} "<p>\n"
31 }
32
33     if {[info commands saveState] == ""} {
34         source z39util.tcl
35     }
36     global sessionWait
37     global nextSetNo
38     global setNo
39     global hist
40
41     if {[wform menu1] == ""} {
42         set setNo [lindex $sessionParms 0]
43     } else {
44         if {![info exists hist($nextSetNo,host)]} {
45             set hist($nextSetNo,idAuthentication) $hist($setNo,idAuthentication)
46             set hist($nextSetNo,host) $hist($setNo,host)
47         }
48         set setNo $nextSetNo
49         html "using host " $hist($setNo,host) " <br\n"
50         incr nextSetNo
51
52         set hist($setNo,query) [build-query $hist($setNo,host)]
53         set b [wform base]
54         if {$b == ""} {
55             set hist($setNo,database) $databases
56         } else {
57             set hist($setNo,database) $b
58         }
59         set hist($setNo,maxPresent) [wform hits]
60         if {$hist($setNo,maxPresent) == ""} {
61             set hist($setNo,maxPresent) 30
62         }
63     }
64     set host $hist($setNo,host)
65     set databases [lindex $targets($host) 1]
66
67     html "<head><title> WWW/Z39.50 Gateway Search " $host " </title>\n"
68     html "</head><body>\n"
69
70     set startPos [lindex $sessionParms 1]
71     set endPos [lindex $sessionParms 2]
72     set setMax 0
73     set setOffset 0
74     if {$startPos == ""} {
75         if {[z39search $setNo 1] != "1"} {
76             return
77         }
78         set r [z39.$setNo resultCount]
79         html "<h2> Search result $r hits</h2>\n"
80         wflush
81         set setOffset [z39.$setNo numberOfRecordsReturned]
82         display-rec 1 $setOffset display-brief z39
83         incr setOffset
84         set setMax [z39.$setNo resultCount]
85         if {$setMax > $hist($setNo,maxPresent)} {
86             set setMax $hist($setNo,maxPresent)
87         }
88     } else {
89         if {[z39search $setNo 0] != "1"} {
90             return 
91         }
92         set r [z39.$setNo resultCount]
93         html "<h2> Search result $r hits</h2>\n"
94         wflush
95         set setOffset $startPos
96         set setMax [z39.$setNo resultCount]
97         if {$setMax > $endPos} {
98             set setMax $endPos
99         }
100         if {$setMax > 0} {
101             buttons $setNo $setMax $startPos
102         }
103     }
104     if {$setMax > 0} {
105         z39present $setNo $setOffset $setMax display-brief
106     }
107
108     buttons $setNo $setMax $startPos
109 }
110
111 {
112     html "<hr>\n"
113     html "<h3>Debug information</h3>\n"
114     html "sessionId: $sessionId <br>\n"
115     html "sessionParms: $sessionParms <br>\n"
116     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
117         html $e {: } $env($e) {<br>} \n
118     }
119     html "form: " [wform] " <br>\n"
120     html "target: " $host " <br>\n"
121     html "databases: " $hist($setNo,database) " <br>\n"
122     html "selected: " [wform base] " <br>\n"
123     html "query: --" $hist($setNo,query) "-- <br>"
124     html "setNo: " $setNo " <br>\n"
125     html "nextSetNo: " $nextSetNo " <br>\n"
126 }
127
128 </body>
129 </html>