Minor changes.

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

index e3bb9dd..a41168f 100644 (file)
--- a/www/mtargets.egw
+++ b/www/mtargets.egw
@@ -1,11 +1,8 @@
  <html>
  {
-# $Id: mtargets.egw,v 1.19 1996/03/13 14:07:30 adam Exp $
+# $Id: mtargets.egw,v 1.22 1996/05/24 11:16:00 adam Exp $
      set setNo 1
      source ztargets.conf
-    if {[info commands saveState] == ""} {
-        source z39util.tcl
-    }
      if {![info exists debug]} {
          if {[lindex $sessionParms 1] == "1"} {
              set debug 1
@@ -13,6 +10,9 @@
              set debug 0
          }
      }
+    if {[info commands saveState] == ""} {
+        source z39util.tcl
+    }
      set html3 [lindex $sessionParms 0]
      if {[string length $html3] == 0} {
          if {![info exists env(HTTP_USER_AGENT)]} {
@@ -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
  }