Minor changes.

[egate.git] / www / mtargets.egw
diff --git a/www/mtargets.egw b/www/mtargets.egw

index 0d23dc9..f10238f 100644 (file)
--- a/www/mtargets.egw
+++ b/www/mtargets.egw
@@ -1,6 +1,6 @@
  <html>
  {
-# $Id: mtargets.egw,v 1.20 1996/03/14 11:50:46 adam Exp $
+# $Id: mtargets.egw,v 1.21 1996/04/25 10:22:20 adam Exp $
      set setNo 1
      source ztargets.conf
      if {![info exists debug]} {
@@ -48,7 +48,11 @@
      }
      proc targetC {t} {
          global targets
-        html {<dt><b>} [ lindex $targets($t) 0]
+        global waisFlag
+        if {!$waisFlag && ![string compare [lindex $targets($t) 1] WAIS]} {
+            return
+        }
+        html {<dt><b>} [lindex $targets($t) 0]
          html {</b>: }
          set databases [splitDatabaseSpec $t]
          
@@ -63,6 +67,14 @@
          }
          html "<br><br>\n"
      }
+    if {![info exists waisFlag]} {
+        set waisFlag 1
+        if {[catch {wais waisdummy}]} {
+            set waisFlag 0
+        } else {
+            rename waisdummy {}
+        }
+    }
      serverList headlineC targetC
  
      html "</dl>\n"