www/mtargets.egw

   1 <html>
   2 {
   3 # $Id: mtargets.egw,v 1.20 1996/03/14 11:50:46 adam Exp $
   4     set setNo 1
   5     source ztargets.conf
   6     if {![info exists debug]} {
   7         if {[lindex $sessionParms 1] == "1"} {
   8             set debug 1
   9         } else {
  10             set debug 0
  11         }
  12     }
  13     if {[info commands saveState] == ""} {
  14         source z39util.tcl
  15     }
  16     set html3 [lindex $sessionParms 0]
  17     if {[string length $html3] == 0} {
  18         if {![info exists env(HTTP_USER_AGENT)]} {
  19             set html3 1
  20         } elseif {[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 scriptQuery mquery.egw
  35     set scriptTarget mtargets.egw
  36
  37     set useIcons 1
  38     button-main
  39     button-define-target
  40
  41     html "<h2>Choose one or more targets</h2>\n"
  42     html {<form action="http:} $env(SCRIPT_NAME)
  43     html / $sessionId / $scriptQuery {;/} -1 {" method=get><br>} \n
  44     html "<dl>\n"
  45
  46     proc headlineC {h} {
  47         html {<dt><h2>} $h \n {</h2>}
  48     }
  49     proc targetC {t} {
  50         global targets
  51         html {<dt><b>} [ lindex $targets($t) 0]
  52         html {</b>: }
  53         set databases [splitDatabaseSpec $t]
  54
  55         set desc [lindex $targets($t) 4]
  56         if {[string length $desc] > 0} {
  57             html "$desc<br>\n"
  58         }
  59         html {<dd>}
  60         foreach d $databases {
  61             html {<input type="checkbox" name="target"}
  62             html { value="} $t + $d {"> } $d
  63         }
  64         html "<br><br>\n"
  65     }
  66     serverList headlineC targetC
  67
  68     html "</dl>\n"
  69     html {<input type="submit" value="Select"></form>} \n
  70
  71     html "<p>\n"
  72     set useIcons 0
  73     button-main
  74     button-define-target
  75 }
  76
  77 {
  78     catch maintenance
  79     if {!$debug} return
  80     html "<hr>\n"
  81     html "<h3>Debug information</h3>\n"
  82     html "sessionId: $sessionId <br>\n"
  83     html "sessionParms: $sessionParms <br>\n"
  84     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
  85         html $e {: } $env($e) {<br>} \n
  86     }
  87 }
  88 </body>
  89 </html>