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 21b0237..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.2 1996/01/24 16:59:29 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
@@ -34,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>"
@@ -57,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