Minor changes.

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

index 0d23dc9..a41168f 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.22 1996/05/24 11:16:00 adam Exp $
      set setNo 1
      source ztargets.conf
      if {![info exists debug]} {
@@ -36,6 +36,7 @@
  
      set useIcons 1
      button-main
+    button-feedback
      button-define-target
  
      html "<h2>Choose one or more targets</h2>\n"
@@ -48,7 +49,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 +68,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"
@@ -71,6 +84,7 @@
      html "<p>\n"
      set useIcons 0
      button-main
+    button-feedback
      button-define-target
  }