X-Git-Url: http://git.indexdata.com/?p=egate.git;a=blobdiff_plain;f=www%2Fquery.egw;h=f68a6964bc55d5c0260debd850d577f532dfb9ab;hp=632f35ed8496f6a3241f800429c59f241e5ec6a1;hb=cf6ead410b63297e714d9258f9ea593b1e127501;hpb=d1fc0ff84894bba24f827a81597717e9f69b6c06
diff --git a/www/query.egw b/www/query.egw
index 632f35e..f68a696 100644
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
{
-# $Id: query.egw,v 1.31 1996/01/24 16:59:28 adam Exp $
+# $Id: query.egw,v 1.32 1996/01/26 15:50:08 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
@@ -44,7 +44,6 @@ proc ok-response {} {
ir z39
}
- html "Search in " [lindex $targets($host) 0] "
\n"
z39 callback ok-response
z39 failback fail-response
set thisHost [splitHostSpec $host]
@@ -96,6 +95,19 @@ proc ok-response {} {
egw_abort
}
}
+
+ set useIcons 1
+ button-europagate
+ button-new-target 1
+ if {[lsearch [z39 options] scan] >= 0} {
+ button-scan-window 1 $setNo
+ }
+ button-view-history 0
+
+ html "" [lindex $targets($host) 0] "
\n"
+
+ html [lindex $targets($host) 4] "
\n"
+
set databases [lindex $targets($host) 1]
if {$initSet == ""} {
@@ -192,15 +204,12 @@ proc ok-response {} {
html 20
}
html {" size=4>}
-}
-
-
+ html "\n"
+ html "
\n"
-{
+ set useIcons 0
button-europagate
-
button-new-target 1
-
if {[lsearch [z39 options] scan] >= 0} {
button-scan-window 1 $setNo
}
@@ -228,5 +237,3 @@ proc ok-response {} {
html "scanTerm: " $scanTerm "
\n"
}