www/mtargets.egw

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