www/mtargets.egw

   1 <html>
   2 {
   3 # $Id: mtargets.egw,v 1.14 1996/01/29 17:31:47 adam Exp $
   4     set setNo 1
   5     source ztargets.conf
   6     if {[info commands saveState] == ""} {
   7         source z39util.tcl
   8     }
   9     set mMode 1
  10
  11     if {![info exists debug]} {
  12         if {[lindex $sessionParms 1] == "1"} {
  13             set debug 1
  14         } else {
  15             set debug 0
  16         }
  17     }
  18     set html3 [lindex $sessionParms 0]
  19     if {$html3 == ""} {
  20         if {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} {
  21             set html3 1
  22             egw_log debug "New user using Netscape"
  23         } else {
  24             set html3 0
  25             egw_log debug "New user Not using Netscape"
  26         }
  27     }
  28 }
  29 <head>
  30 <title>Europagate, WWW/Z39.50 Gateway</title>
  31 </head>
  32 <body>
  33 {
  34     set useIcons 1
  35     button-europagate
  36     button-define-target 0
  37
  38     html "<h2>Choose one or more targets</h2>\n"
  39     html {<form action="http:} $env(SCRIPT_NAME)
  40     html / $sessionId {/mquery.egw/} $setNo {" method=get><br>} \n
  41     html "<dl>\n"
  42     foreach t [array names targets] {
  43         html {<dt>} [ lindex $targets($t) 0]
  44         html {<dd>}
  45         set databases [lindex $targets($t) 1]
  46
  47         set desc [lindex $targets($t) 4]
  48         if {$desc != ""} {
  49             html "$desc<br>\n"
  50         }
  51         foreach d $databases {
  52             html {<input type="checkbox" name="target"}
  53             html { value="} $t + $d {"> } $d
  54         }
  55         html "<br>\n"
  56     }
  57     html "</dl>\n"
  58     html {<input type="submit" value="Select"></form>} \n
  59
  60     html "<p>\n"
  61     set useIcons 0
  62     button-europagate
  63     button-define-target 0
  64 }
  65
  66 {
  67     catch maintenance
  68     if {!$debug} return
  69     html "<hr>\n"
  70     html "<h3>Debug information</h3>\n"
  71     html "sessionId: $sessionId <br>\n"
  72     html "sessionParms: $sessionParms <br>\n"
  73     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
  74         html $e {: } $env($e) {<br>} \n
  75     }
  76 }
  77 </body>
  78 </html>