X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fquery.egw;h=e922e297507073e831d16a3d3cc93d438010575f;hb=c6ea088406ba64e6ed5ea833e1c2ae516552e18e;hp=88b7cf286c8520ac80d948cb144592fc107da05a;hpb=a6e5ecf2a6d6dedf266c5f9d6bc2447a528b199e;p=egate.git
diff --git a/www/query.egw b/www/query.egw
index 88b7cf2..e922e29 100644
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
{
-# $Id: query.egw,v 1.17 1995/11/14 16:01:50 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
@@ -126,10 +127,9 @@ proc ok-response {} {
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] "
}
+}
+