projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Lots of changes. They aren't visible though.
[egate.git] / www / tdefine.egw
diff --git a/www/tdefine.egw b/www/tdefine.egw
index bd8453b..1db4d89 100644 (file)
--- a/www/tdefine.egw
+++ b/www/tdefine.egw
@@ -4,11 +4,16 @@
 </head>
 <body>
 {
-# $Id: tdefine.egw,v 1.1 1996/01/24 14:14:19 adam Exp $
+# $Id: tdefine.egw,v 1.3 1996/01/26 15:50:11 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
     }
+    set useIcons 1
+    button-europagate
+    button-define-target 1
+    button-new-target 0
+
     html "<h2>Target definition response</h2><br>\n"
 
     set name [lindex [egw_form name] 0]
@@ -20,18 +25,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 +67,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 \
@@ -73,13 +79,12 @@
             1 ]
         html "Target successfully defined<br>\n"
     }
-}
-{
+    html "<p>\n"
+    set useIcons 0
     button-europagate
     button-define-target 1
     button-new-target 0
 }
-
 {
     global debug
 
Europgate