projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
More work on target definitons.
[egate.git] / www / tdefine.egw
diff --git a/www/tdefine.egw b/www/tdefine.egw
index bd8453b..6f9e1af 100644 (file)
--- a/www/tdefine.egw
+++ b/www/tdefine.egw
@@ -4,7 +4,7 @@
 </head>
 <body>
 {
-# $Id: tdefine.egw,v 1.1 1996/01/24 14:14:19 adam Exp $
+# $Id: tdefine.egw,v 1.2 1996/01/24 16:59:28 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -20,18 +20,18 @@
 
     set ok 1
     if {[string length $name] == 0} {
-        html "You didn't specify a target name. You <em>must</em> specify"
-        html " a target name<br>\n"
+        html "You didn't specify a target name. A target name <em>must</em> "
+        html "be specified.<br>\n"
         set ok 0
     }
     if {[string length $host] == 0} {
-        html "You didn't specify a target name. You <em>must</em> specify"
-        html " a host name<br>\n"
+        html "You didn't specify a target name. A host <em>must</em> "
+        html "be specified.<br>\n"
         set ok 0
     }
     if {[string length $databases] == 0} {
-        html "You didn't specify any database(s). You <em>must</em> specify"
-        html " at least one database</br>\n"
+        html "You didn't specify any database(s). At least one database "
+        html "<em>must</em> be specified.<br>\n"
         set ok 0
     }
     catch {unset item}
@@ -62,9 +62,10 @@
         html " search fields must be present<br>\n"
         set ok 0
     }
+    set hostSpec [mergeHostSpec $host $databases]
     if {$ok} {
         global targets
-        set targets($host) [list \
+        set targets($hostSpec) [list \
             [join $name] \
             $databases \
             $attrList \
Europgate