www/mtargets.egw

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