3 # $Id: search.egw,v 1.2 1995/10/27 17:30:16 adam Exp $
5 proc search-response {} {
9 htmlr "search response <br>"
10 set r [z39.1 resultCount]
11 htmlr "<strong>$r hits</strong><br>"
12 htmlr "</body></html>"
15 proc fail-response {} {
19 htmlr "<strong>failed</strong><br>"
20 htmlr "</body></html>"
25 z39 callback search-response
26 z39 failback fail-response
29 z39.1 databaseNames [form base]
30 z39.1 search [form entry1]
32 htmlr "<title> WWW/Z39.50 Gateway Search Result ...</title>"
36 sessionId: {html $sessionId} <br>
37 sessionParms: {html $sessionParms} <br>
38 form: {html [form]} <br>
39 target: {html $t} <br>
40 databases: {html $databases} <br>
41 <h2> Search in databases </h2>
43 htmlr [form entry1] <br>