projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Attempt to inform user if session has really terminated.
[egate.git] / www / tdefine.egw
diff --git a/www/tdefine.egw b/www/tdefine.egw
index 268f9f8..28f27c8 100644 (file)
--- a/www/tdefine.egw
+++ b/www/tdefine.egw
@@ -1,18 +1,22 @@
 <html>
-<head>
-<title> WWW/Z39.50 Gateway Target Definition Response</title>
-</head>
-<body>
 {
-# $Id: tdefine.egw,v 1.4 1996/03/12 16:30:29 adam Exp $
+# $Id: tdefine.egw,v 1.6 1996/03/14 11:50:49 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
+        if {![info exists debug]} {
+            session-lost
+            egw_abort
+        }
     }
+
+    html {<head><title> WWW/Z39.50 Gateway Target Definition Response</title>}
+    html {</head><body>}
+
     set useIcons 1
     button-main
-    button-define-target 1
-    button-new-target 0
+    button-define-target
+    button-new-target
 
     html "<h2>Target definition response</h2><br>\n"
 
@@ -22,6 +26,7 @@
     set databases [lindex [egw_form databases] 0]
     set authentication [egw_form authentication]
     set fields [lindex [egw_form fields] 0]
+    set recordType [lindex [egw_form recordtype] 0]
 
     set ok 1
     if {[string length $name] == 0} {
@@ -39,6 +44,11 @@
         html "<em>must</em> be specified.<br>\n"
         set ok 0
     }
+    if {[string length $recordType] == 0} {
+        html "You didn't specify any record type. One record type "
+        html "<em>must</em> be specified.<br>\n"
+        set ok 0
+    }
     catch {unset item}
     catch {unset attrList}
     set fname {}
@@ -67,30 +77,34 @@
         html " search fields must be present<br>\n"
         set ok 0
     }
+    if {![string compare recordType WAIS]} {
+        set attrList { {Free-text} {} }
+    }
     set hostSpec [mergeHostSpec $host $databases]
     if {$ok} {
         global targets
         set targets($hostSpec) [list \
             [join $name] \
-            USMARC \
+            $recordType \
             $attrList \
             $authentication \
             $description \
-            1 ]
+            1 \
+            user ]
         html "Target successfully defined<br>\n"
     }
     html "<p>\n"
     set useIcons 0
     button-main
-    button-define-target 1
-    button-new-target 0
+    button-define-target
+    button-new-target
 }
 {
     global debug
 
     if {!$debug} return
 
-    html "name=" $name "<br>\n"
+    html "\n<br>name=" $name "<br>\n"
     html "description=" $description "<br>\n"
     html "host=" $host "<br>\n"
     html "databases=" $databases "<br>\n"
Europgate