X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=www%2Fquery.egw;h=a8db8ff559bc3761285cb6a81fed47656096cc37;hb=0d7108cd3425504a09522f915dda5c9158443084;hp=a5b874e377a07ff11308e28a7059f596db61db9e;hpb=71ad5b6272d0bc6320bea6c1ec10f5e10bbfe8ef;p=egate.git
diff --git a/www/query.egw b/www/query.egw
index a5b874e..a8db8ff 100644
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
{
-# $Id: query.egw,v 1.26 1996/01/08 08:42:15 adam Exp $
+# $Id: query.egw,v 1.28 1996/01/12 13:08:28 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
@@ -97,13 +97,6 @@ proc ok-response {} {
}
set databases [lindex $targets($host) 1]
-# if {[catch {set prevHost $hist([expr $setNo - 1],host)}]} {
-# set databaseDefault [lindex $databases 0]
-# set oSetNo 0
-# } else {
-# set oSetNo [expr $setNo - 1]
-# set databaseDefault $hist($oSetNo,database)
-# }
if {$initSet == ""} {
set databaseDefault [lindex $databases 0]
set oSetNo 0
@@ -140,39 +133,48 @@ proc ok-response {} {
set fields [lindex $targets($host) 2]
for {set no 1} {$no < 4} {incr no} {
html {\n"
html { 0} {
+ html { value="} $template {"}
}
- html { size=35> }
- if {[lsearch [z39 options] scan] >= 0} {
- html {}
+ html { size=45> }
+ if {0 && [lsearch [z39 options] scan] >= 0} {
+ html {}
}
+ html "
\n"
if {$no < 3} {
- html {\n"
}
html "
\n"
}
@@ -198,6 +200,10 @@ proc ok-response {} {
button-europagate
button-new-target 1
+
+ if {[lsearch [z39 options] scan] >= 0} {
+ button-scan-window 1 $setNo
+ }
button-view-history 0
}