www/mtargets.egw

   1 <html>
   2 {
   3 # $Id: mtargets.egw,v 1.16 1996/03/05 18:50:25 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 {[string length $html3] == 0} {
  20         if {![info exists env(HTTP_USER_AGENT)]} {
  21             set html3 1
  22         } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} {
  23             set html3 1
  24             egw_log debug "New user using Netscape"
  25         } else {
  26             set html3 0
  27             egw_log debug "New user Not using Netscape"
  28         }
  29     }
  30 }
  31 <head>
  32 <title>Europagate, WWW/Z39.50 Gateway</title>
  33 </head>
  34 <body>
  35 {
  36     set useIcons 1
  37     button-europagate
  38     button-define-target 0
  39
  40     html "<h2>Choose one or more targets</h2>\n"
  41     html {<form action="http:} $env(SCRIPT_NAME)
  42     html / $sessionId {/mquery.egw/} $setNo {" method=get><br>} \n
  43     html "<dl>\n"
  44
  45
  46
  47     proc targetsCmp {l r} {
  48         global targets
  49         return [string compare [string tolower [lindex $targets($l) 0]] \
  50                                [string tolower [lindex $targets($r) 0]]]
  51     }
  52     set tt [array names targets]
  53     set tn [lsort -command targetsCmp $tt]
  54     foreach t $tn {
  55         html {<dt>} [ lindex $targets($t) 0]
  56         html {<dd>}
  57         set databases [lindex $targets($t) 1]
  58
  59         set desc [lindex $targets($t) 4]
  60         if {$desc != ""} {
  61             html "$desc<br>\n"
  62         }
  63         foreach d $databases {
  64             html {<input type="checkbox" name="target"}
  65             html { value="} $t + $d {"> } $d
  66         }
  67         html "<br>\n"
  68     }
  69     html "</dl>\n"
  70     html {<input type="submit" value="Select"></form>} \n
  71
  72     html "<p>\n"
  73     set useIcons 0
  74     button-europagate
  75     button-define-target 0
  76 }
  77
  78 {
  79     catch maintenance
  80     if {!$debug} return
  81     html "<hr>\n"
  82     html "<h3>Debug information</h3>\n"
  83     html "sessionId: $sessionId <br>\n"
  84     html "sessionParms: $sessionParms <br>\n"
  85     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
  86         html $e {: } $env($e) {<br>} \n
  87     }
  88 }
  89 </body>
  90 </html>