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 ce34990..5c6f060 100644 (file)
--- a/www/tform.egw
+++ b/www/tform.egw
@@ -1,14 +1,17 @@
  <html>
-<head>
-<title> WWW/Z39.50 Gateway Target Definition</title>
-</head>
-<body>
  {
-# $Id: tform.egw,v 1.5 1996/03/13 14:07:32 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
@@ -38,6 +41,20 @@
      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=55 name="databases"></textarea>}
      html "\n<br><font size=2>Separate each database by blanks</font>"