www/history.egw

   1 <html>
   2 <head>
   3 <title> WWW/Z39.50 Gateway History</title>
   4 </head>
   5 <body>
   6 {
   7 # $Id: history.egw,v 1.7 1996/03/13 14:07:29 adam Exp $
   8
   9     if {[info commands saveState] == ""} {
  10         source z39util.tcl
  11     }
  12
  13     set useIcons 1
  14     button-main
  15     button-new-target
  16
  17     z39history
  18
  19     set useIcons 0
  20     button-main
  21     button-new-target
  22 }
  23 {
  24     catch maintenance
  25     if {!$debug} return
  26     html "<hr>\n"
  27     html "<h3>Debug information</h3>\n"
  28     html "sessionId: $sessionId <br>\n"
  29     html "sessionParms: $sessionParms <br>\n"
  30     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
  31         html $e {: } $env($e) {<br>} \n
  32     }
  33     html "form: " [egw_form] " <br>\n"
  34 }
  35 </body></html>
  36
  37