X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmquery.egw;h=755b77aac16fad68026b02ff3eb7b460ad0e1491;hb=3d4b6045b8875099666b99edbf1457c91b5da928;hp=27e6e32917005e27d7df2f569c77450863287cbe;hpb=6e37e8e91bf35cb14c930e8988085cf78f11029a;p=egate.git diff --git a/www/mquery.egw b/www/mquery.egw index 27e6e32..755b77a 100644 --- a/www/mquery.egw +++ b/www/mquery.egw @@ -4,7 +4,7 @@ { -# $Id: mquery.egw,v 1.1 1995/11/07 14:56:58 adam Exp $ +# $Id: mquery.egw,v 1.3 1995/11/08 18:07:22 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl @@ -14,13 +14,24 @@ global nextSetNo global hist - html {
} \n if {[catch {set setNo $nextSetNo}]} { 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 . @@ -74,7 +86,7 @@ and will continue to be so until the end of December 1995.
{ - html { New target } } {