Improved history.

[egate.git] / www / targets.egw
diff --git a/www/targets.egw b/www/targets.egw

index f954c23..143c721 100644 (file)
--- a/www/targets.egw
+++ b/www/targets.egw
@@ -1,6 +1,6 @@
  <html>
  {
-# $Id: targets.egw,v 1.10 1996/01/02 10:52:30 adam Exp $
+# $Id: targets.egw,v 1.11 1996/01/03 15:19:50 adam Exp $
      source /usr/local/etc/httpd/conf/ztargets.conf
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -10,13 +10,24 @@
  <title> Europagate, WWW/Z39.50 Gateway </title>
  </head>
  <body>
-<center>
-<img src="/gif/button-egw.gif" Alt="EUROPAGATE">
-</center>
-
  <h2>Choose Z39.50 target</h2><br>
  <dl>
  {
+    if {![info exists debug]} {
+        if {[lindex $sessionParms 0] == "1"} {
+            set debug 1
+        } else {
+            set debug 0
+        }
+    }
+
+    if {![info exists useIcons]} {
+        if {[lindex $sessionParms 1] == "1"} {
+            set useIcons 0
+        } else {
+            set useIcons 1
+        }
+    }
      proc targetsCmp {l r} {
          global targets
          return [string compare [string tolower [lindex $targets($l) 0]] \
@@ -34,15 +45,16 @@
      }
  }
  </dl>
+
  {
-    z39history
+    button-europagate
+    button-view-history 0
  }
-<hr>
-This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
-Last modified 25. september 1995. <br>
-<em> This and the following pages are under construction and will continue to be so
-until the end of December 1995.</em>
+
  {
+    catch maintenance
+    global debug
+    if {!$debug} return
      html "<hr>\n"
      html "<h3>Debug information</h3>\n"
      html "sessionId: $sessionId <br>\n"