X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=www%2Fmquery.egw;h=755b77aac16fad68026b02ff3eb7b460ad0e1491;hb=3d4b6045b8875099666b99edbf1457c91b5da928;hp=051dc918a43380e6dcfc2902ce5eae9e364ff724;hpb=b443634fbd412cea15ea527188c3e241bb1edf21;p=egate.git
diff --git a/www/mquery.egw b/www/mquery.egw
index 051dc91..755b77a 100644
--- a/www/mquery.egw
+++ b/www/mquery.egw
@@ -4,7 +4,7 @@
{
-# $Id: mquery.egw,v 1.2 1995/11/08 16:14:32 adam Exp $
+# $Id: mquery.egw,v 1.3 1995/11/08 18:07:22 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
@@ -21,6 +21,17 @@
set nextSetNo 1
set setNo 1
}
+ if {1} {
+ set i 1
+ foreach host [array names targets] {
+ set databases [wform target$host]
+ if {$databases == ""} continue
+ html "host=$host, $databases
\n"
+ set hist($setNo,$i,host) $host
+ set hist($setNo,$i,database) $databases
+ incr i
+ }
+ } else {
set hosts [wform target]
html "hosts=$hosts
\n"
set i 1
@@ -29,8 +40,9 @@
set hist($setNo,$i,database) [lindex [lindex $targets($host) 1] 0]
incr i
}
- set hist($setNo,0,host) [expr $i - 1]
set host [lindex $hosts 0]
+ }
+ set hist($setNo,0,host) [expr $i - 1]
}
Input your search criteria:
@@ -64,7 +76,7 @@ Records are shown in:
-
+
This page is maintained by Peter Wad Hansen .