X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=www%2Fquery.egw;h=319d5f12de51a82a99009e53da0b704bc69be7fe;hb=fb42e8909c46dfe29d2b8d8852e0ebf297eb2963;hp=3f0d25f5d2d6723af1225c2e7053813f4d8ef948;hpb=c1c09b4242df9a16cd11477deea2e35f8ff57fec;p=egate.git diff --git a/www/query.egw b/www/query.egw index 3f0d25f..319d5f1 100644 --- a/www/query.egw +++ b/www/query.egw @@ -1,42 +1,49 @@ + + WWW/Z39.50 Gateway Query Form + + { -# $Id: query.egw,v 1.3 1995/10/27 17:30:15 adam Exp $ +# $Id: query.egw,v 1.4 1995/10/30 17:35:17 adam Exp $ proc fail-response {} { global sessionWait - htmlr {Init fail
} - set sessionWait 0 + set sessionWait -1 } proc init-response {} { global sessionWait - htmlr {Init ok
} - htmlr {} - htmlr {} - set sessionWait 0 + set sessionWait 1 } set t $sessionParms set databases [lindex $targets($t) 1] - set sessionWait 1 + set sessionWait 0 ir z39 z39 failback fail-response - z39 connect $t + if {[catch {z39 connect $t}]} { + htmlr "Cannot connect to target $t
" + htmlr "" + return + } z39 callback init-response z39 init -} - - WWW/Z39.50 Gateway Query Form - - -

Search in databases

-

Not Functional Yet

-{ + 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} { - htmlr {The chosen target supports searching in several databases.
} + html {The chosen target supports searching in } + htmlr {several databases.
} htmlr {Choose the bases you want to search:
} } set i 0 @@ -54,10 +61,8 @@ proc init-response {} { htmlr [concat $databases] {"> All
} } } -} -
-Input your search criteria:
-{ + htmlr {
} + htmlr {Input your search criteria:
} set fields [lindex $targets($t) 2] for {set no 1} {$no < 4} {incr no} { htmlr {
-
- 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}
-{ + 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) {
} } -} -form: {html [form]}
-target: {html $t}
-databases: {html $databases}
+ htmlr {form: } [form] {
} + htmlr {target: } $t {
} + htmlr {databases: } $databases {
} + htmlr {} +} \ No newline at end of file