{ # $Id: query.egw,v 1.4 1995/10/30 17:35:17 adam Exp $ proc fail-response {} { global sessionWait set sessionWait -1 } proc init-response {} { global sessionWait set sessionWait 1 } set t $sessionParms set databases [lindex $targets($t) 1] set sessionWait 0 ir z39 z39 failback fail-response if {[catch {z39 connect $t}]} { htmlr "Cannot connect to target $t
" htmlr "" return } z39 callback init-response z39 init zwait sessionWait if {$sessionWait == -1} { htmlr "Cannot initialize with target $t
" htmlr "" return } htmlr {

Search in databases

Not Functional Yet

} 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
} } } htmlr {
} htmlr {Input your search criteria:
} set fields [lindex $targets($t) 2] for {set no 1} {$no < 4} {incr no} { htmlr { htmlr {} if {$no < 3} { htmlr {} } htmlr
} html {

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.
} htmlr {sessionId: } $sessionId {
} htmlr {sessionParms: } $sessionParms {
} foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} { htmlr $e {: } $env($e) {
} } htmlr {form: } [form] {
} htmlr {target: } $t {
} htmlr {databases: } $databases {
} htmlr {} }