projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Major revision. Single-target result set can be reached from the
[egate.git] / www / tdefine.egw
diff --git a/www/tdefine.egw b/www/tdefine.egw
index bd8453b..ca5f862 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.5 1996/03/13 14:07:31 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
     }
+    set useIcons 1
+    button-main
+    button-define-target
+    button-new-target
+
     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,25 +67,25 @@
         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 \
+            USMARC \
             $attrList \
             $authentication \
             $description \
             1 ]
         html "Target successfully defined<br>\n"
     }
+    html "<p>\n"
+    set useIcons 0
+    button-main
+    button-define-target
+    button-new-target
 }
 {
-    button-europagate
-    button-define-target 1
-    button-new-target 0
-}
-
-{
     global debug
 
     if {!$debug} return
Europgate