{ # $Id: search.egw,v 1.2 1995/10/27 17:30:16 adam Exp $ proc search-response {} { global sessionWait set sessionWait 0 htmlr "search response
" set r [z39.1 resultCount] htmlr "$r hits
" htmlr "" } proc fail-response {} { global sessionWait set sessionWait 0 htmlr "failed
" htmlr "" } global sessionWait z39 callback search-response z39 failback fail-response set sessionWait 1 ir-set z39.1 z39 z39.1 databaseNames [form base] z39.1 search [form entry1] htmlr htmlr " WWW/Z39.50 Gateway Search Result ..." } sessionId: {html $sessionId}
sessionParms: {html $sessionParms}
form: {html [form]}
target: {html $t}
databases: {html $databases}

Search in databases

{ htmlr [form entry1]
}