+<html>
+{
+# $Id: query.egw,v 1.1 1995/10/23 17:04:16 adam Exp $
+ source /usr/local/etc/httpd/conf/ztargets.conf
+ set tmp [expr 1 + [string first / $sessionParms]]
+ set t [string range $sessionParms $tmp end]
+ set databases [lindex $targets($t) 1]
+}
+<head>
+<title> WWW/Z39.50 Gateway Query Form</title>
+</head>
+<body>
+sessionId: {html $sessionId} <br>
+sessionParms: {html $sessionParms} <br>
+form: {html [form]} <br>
+target: {html $t} <br>
+databases: {html $databases} <br>
+<h2> Search in databases </h2>
+<h1> <blink> Not Functional Yet </blink> </h1>
+<form action="http://localhost/cgi-bin/egwcgi/{html $sessionId}/search.egw"
+ method=post>
+{
+ set nodb [llength $databases]
+ if {$nodb > 1} {
+ if {$nodb > 2} {
+ htmlr {The chosen target supports searching in several databases. <br>}
+ htmlr {Choose the bases you want to search: <br>}
+ }
+ set i 0
+ foreach d $databases {
+ html {<input type="checkbox" name="base" value="} $d
+ if {[incr i] > 1} {
+ htmlr {"> } $d
+ } else {
+ htmlr {" checked> } $d
+ }
+ }
+ htmlr {<br>}
+ if {$nodb > 2} {
+ html {<input type="checkbox" name="base" value="}
+ htmlr [concat $databases] {"> All <br>}
+ }
+ }
+}
+<hr>
+<strong>Input your search criteria: </strong> <br>
+{
+ set fields [lindex $targets($t) 2]
+ for {set no 1} {$no < 4} {incr no} {
+ htmlr {<select name="menu} $no {">}
+ foreach f $fields {
+ htmlr {<option> } [lindex $f 0]
+ }
+ htmlr </select>
+ htmlr {<input type="text" name="entry} $no {" size=30>}
+ if {$no < 3} {
+ htmlr {<select name="logic} $no {">}
+ htmlr {<option> And}
+ htmlr {<option> Or}
+ htmlr {<option> And not}
+ htmlr {</select>}
+ }
+ htmlr <br>
+ }
+}
+<hr>
+<p>
+Alternatively you can enter your query in <a href="ccl.html"> CCL </a> here: <br>
+<input type=text name="cclentry" size=60> <br>
+<hr>
+<strong> Various technical parameters: </strong> <br>
+Max hits: <input type="text" name="hits" value="50" size=3>
+Records are shown in:
+<select name="format">
+<option> Long format
+<option> Medium format
+<option> Short format
+<option> Raw MARC
+</select>
+<br>
+<p>
+<input type="submit" value="Send Query">
+</form>
+<hr>
+This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
+Last modified 29. september 1995. <br>
+<em> This and the following pages are under construction and will continue to be so
+until the end of December 1995.</em>
+</body>
+</html>