X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fquery.egw;h=e922e297507073e831d16a3d3cc93d438010575f;hb=e1652b5355c529be09d2c847ca0354bfb8db8067;hp=4d3d3656d64c920e3e596a6717960614f27ee368;hpb=7bdfdfe5fd17c547d0332b4f9fc0b3f997e790ed;p=egate.git
diff --git a/www/query.egw b/www/query.egw
index 4d3d365..e922e29 100644
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
{
-# $Id: query.egw,v 1.16 1995/11/13 18:17:47 adam Exp $
+# $Id: query.egw,v 1.19 1995/12/20 16:31:31 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
@@ -41,7 +41,8 @@ proc ok-response {} {
ir z39
}
- html "
Search in " [lindex $targets($host) 0] "
\n"
+ html {
}
+ html " Search in " [lindex $targets($host) 0] "
\n"
z39 callback ok-response
z39 failback fail-response
@@ -123,13 +124,12 @@ proc ok-response {} {
}
html " \n"
if {$nodb > 2} {
- html { All } \n
}
+ html "Input your search criteria: \n"
}
}
-
-
Input your search criteria:
{
set fields [lindex $targets($host) 2]
for {set no 1} {$no < 4} {incr no} {
@@ -163,15 +163,12 @@ proc ok-response {} {
html " \n"
}
}
-
-Alternatively you can enter your query in
- CCL here:
-
-
+
-
Various technical parameters:
+
{
- html {Max hits: }
}
-Records are shown in:
-
+
+{
+ html {}
+ html {}
+}
+
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.
-
{
- html { New target }
-}
-{
html "\n"
html "
}
+ html " Search in " [lindex $targets($host) 0] "
}
+}
+