{ # $Id: query.egw,v 1.6 1995/10/31 16:56:23 adam Exp $ proc fail-response {} { global sessionWait set sessionWait -1 } proc ok-response {} { global sessionWait set sessionWait 1 } global host set host $sessionParms set databases [lindex $targets($host) 1] catch {z39 disconnect} set sessionWait 0 ir z39 z39 failback fail-response z39 callback ok-response if {[catch {z39 connect $host}]} { htmlr "Cannot connect to target ${host}
" htmlr "" wabort } elseif {$sessionWait == 0} { zwait sessionWait if {$sessionWait != 1} { htmlr "Cannot connect to target ${host}
" htmlr "" wabort } } set sessionWait 0 z39 init zwait sessionWait if {$sessionWait == -1} { htmlr "Cannot initialize with target ${host}
" htmlr "" wabort } htmlr {

Search in databases

} html {
} set nodb [llength $databases] if {$nodb > 1} { if {$nodb > 2} { html {The chosen target supports searching in } htmlr {several databases.
} htmlr {Choose the bases you want to search:
} } set i 0 foreach d $databases { html { } $d } else { htmlr {" checked> } $d } } htmlr {
} if {$nodb > 2} { html { All
} } } }
Input your search criteria:
{ set fields [lindex $targets($host) 2] for {set no 1} {$no < 4} {incr no} { htmlr { htmlr {} if {$no < 3} { htmlr {} } htmlr
} }

Alternatively you can enter your query in CCL here:

Various technical parameters:
Max hits: Records are shown in:

This page is maintained by Peter Wad Hansen . Last modified 29. september 1995.
This and the following pages are under construction and will continue to be so until the end of December 1995.
sessionId: {html $sessionId}
sessionParms: {html $sessionParms}
{ foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} { htmlr $e {: } $env($e) {
} } } form: {html [wform]}
target: {html $host}
databases: {html $databases}