Logs of changes.
[egate.git] / www / query.egw
index d2280ab..3e11570 100644 (file)
@@ -4,7 +4,7 @@
 </head>
 <body>
 {
-# $Id: query.egw,v 1.35 1996/03/07 12:46:08 adam Exp $
+# $Id: query.egw,v 1.36 1996/03/08 16:47:05 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -106,8 +106,7 @@ proc ok-response {} {
 
     html [lindex $targets($host) 4] "<br>\n"
 
-    set databases [lindex $targets($host) 1]
-
+    set databases [splitDatabaseSpec $host]
     if {$initSet == ""} {
         set databaseDefault [lindex $databases 0]
         set oSetNo 0