3 # $Id: search.egw,v 1.3 1995/10/30 17:35:18 adam Exp $
5 proc search-response {} {
10 proc fail-response {} {
16 z39 callback search-response
17 z39 failback fail-response
20 z39.1 databaseNames [form base]
21 z39.1 search [form entry1]
22 htmlr {<head><title> WWW/Z39.50 Gateway Search } $t { </title>}
24 htmlr {sessionId: } $sessionId {<br>}
25 htmlr {sessionParms: } $sessionParms {<br>}
26 htmlr {form: } [form] { <br>}
27 htmlr {databases: } $databases { <br>}
29 if {$sessionWait == 1} {
30 set r [z39.1 resultCount]
31 htmlr {<strong> } $r { hits</strong><br>}
32 htmlr {</body></html>}
34 set status [z39.1 searchStatus]
35 set msg [lindex $status 2]
36 set addinfo [lindex $status 3]
37 html {<strong>Search fail: } $msg