Major revision. Single-target result set can be reached from the

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

index 64f13c7..4c18e79 100644 (file)
--- a/www/history.egw
+++ b/www/history.egw
@@ -4,27 +4,21 @@
  </head>
  <body>
  {
-# $Id: history.egw,v 1.1 1996/01/03 15:19:36 adam Exp $
+# $Id: history.egw,v 1.7 1996/03/13 14:07:29 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
      }
  
+    set useIcons 1
+    button-main
+    button-new-target
+
      z39history
  
-    if {$useIcons} {
-        html {<img src="/gif/button-egw.gif" alt="Europagate" border=0></a>}
-    } else {
-        html {Europagate | }
-    }
-    html {<a href="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/targets.egw}
-    if {$useIcons} {
-        html {"><img src="/gif/button-new-target.gif" }
-       html {alt="New Target" border=0></a>}
-    } else {
-        html {">New Target</a>} "\n"
-    }
+    set useIcons 0
+    button-main
+    button-new-target
  }
  {
      catch maintenance
@@ -36,14 +30,7 @@
      foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
          html $e {: } $env($e) {<br>} \n
      }
-    html "form: " [wform] " <br>\n"
-    html "target: " $host " <br>\n"
-    html "databases: " $databases " <br>\n"
-    html "setNo: " $setNo " <br>\n"
-    html "nextSetNo: " $nextSetNo " <br>\n"
-    html "initSet: " $initSet " <br>\n"
-    html "scanLine: " $scanLine " <br>\n"
-    html "scanTerm: " $scanTerm " <br>\n"
+    html "form: " [egw_form] " <br>\n"
  }
  </body></html>