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 / tform.egw
diff --git a/www/tform.egw b/www/tform.egw
index f696723..5c6f060 100644 (file)
--- a/www/tform.egw
+++ b/www/tform.egw
@@ -1,14 +1,21 @@
 <html>
-<head>
-<title> WWW/Z39.50 Gateway Target Definition</title>
-</head>
-<body>
 {
-# $Id: tform.egw,v 1.1 1996/01/24 14:14:20 adam Exp $
+# $Id: tform.egw,v 1.6 1996/03/14 11:50:50 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</title>}
+    html {</head><body>}
+
+    set useIcons 1
+    button-main
+    button-new-target
+
     html "<h2>Target definition form</h2><br>\n"
     html {<form action="http:} $env(SCRIPT_NAME)
     html / $sessionId {/tdefine.egw} {" method=post>} \n
@@ -16,26 +23,44 @@
     html "<dl>"
     html "\n<dt>Target name\n"
     html {<dd><input type="text" size=20 maxlength=20 name="name">}
+    html "\n<br><font size=2>This name serves as a short nickname of "
+    html "the target</font>"
 
     html "\n<dt>Description\n"
-    html {<dd><textarea rows=3 cols=50 name="description"></textarea>}
+    html {<dd><textarea rows=3 cols=55 name="description"></textarea>}
+    html "\n<br><font size=2>A description of the server and what data "
+    html "it provides.</font>"
 
     html "\n<dt>Host and port\n"
-    html {<dd><input type="text" size=50 name="host">}
+    html {<dd><input type="text" size=55 name="host">}
     html "\n<br><font size=2>For example myhost.com:210</font>"
 
     html "\n<dt>Authentication\n"
-    html {<dd><input type="text" size=50 name="authentication">}
-    html "\n<br><font size=2>Some targets require authentacation strings, "
+    html {<dd><input type="text" size=55 name="authentication">}
+    html "\n<br><font size=2>Some targets require authentication strings, "
     html "i.e. passwords. Leave this field empty if no authentication "
     html "string is required.</font>"
 
+    html "\n<dt>Record type:\n"
+    html {<dd><select name="recordtype">}
+    html {<option> USmarc} \n
+    html {<option> WAIS} \n
+    html {<option> SUTRS} \n
+    html {<option> UNImarc} \n
+    html {<option> UKmarc} \n
+    html {<option> Danmarc} \n
+    html {<option> Normarc} \n
+    html {<option> Librismarc} \n
+    html {</select>}
+    html "\n<br><font size=2>Select WAIS for a WAIS server. The "
+    html "other formats apply to Z39.50 servers</font>"
+
     html "\n<dt>Databases\n"
-    html {<dd><textarea rows=3 cols=50 name="databases"></textarea>}
+    html {<dd><textarea rows=3 cols=55 name="databases"></textarea>}
     html "\n<br><font size=2>Separate each database by blanks</font>"
 
     html "\n<dt>Search fields\n"
-    html {<dd><textarea rows=8 cols=50 name="fields">} 
+    html {<dd><textarea rows=8 cols=55 name="fields">} 
     html "Title    1=4\n"
     html "Author   1=1003\n"
     html "Abstract 1=62\n"
@@ -53,10 +78,9 @@
     html {<input type=submit name=submit value="Submit">}
     html {<input type=reset value="Reset">}
     html "\n<br>\n"
-}
 
-{
-    button-europagate
-    button-new-target 0
+    set useIcons 0
+    button-main
+    button-new-target
 }
 </body></html>
\ No newline at end of file
Europgate