www/mtargets.egw

   1 <html>
   2 {
   3 # $Id: mtargets.egw,v 1.18 1996/03/12 16:30:27 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 scriptQuery mquery.egw
  37     set scriptTarget mtargets.egw
  38
  39     set useIcons 1
  40     button-main
  41     button-define-target 0
  42
  43     html "<h2>Choose one or more targets</h2>\n"
  44     html {<form action="http:} $env(SCRIPT_NAME)
  45     html / $sessionId {/mquery.egw/} $setNo {" method=get><br>} \n
  46     html "<dl>\n"
  47
  48     proc targetsCmp {l r} {
  49         global targets
  50         return [string compare [string tolower [lindex $targets($l) 0]] \
  51                                [string tolower [lindex $targets($r) 0]]]
  52     }
  53     set tt [array names targets]
  54     set tn [lsort -command targetsCmp $tt]
  55     foreach t $tn {
  56         html {<dt>} [ lindex $targets($t) 0]
  57         html {<dd>}
  58         set databases [splitDatabaseSpec $t]
  59
  60         set desc [lindex $targets($t) 4]
  61         if {$desc != ""} {
  62             html "$desc<br>\n"
  63         }
  64         foreach d $databases {
  65             html {<input type="checkbox" name="target"}
  66             html { value="} $t + $d {"> } $d
  67         }
  68         html "<br>\n"
  69     }
  70     html "</dl>\n"
  71     html {<input type="submit" value="Select"></form>} \n
  72
  73     html "<p>\n"
  74     set useIcons 0
  75     button-main
  76     button-define-target 0
  77 }
  78
  79 {
  80     catch maintenance
  81     if {!$debug} return
  82     html "<hr>\n"
  83     html "<h3>Debug information</h3>\n"
  84     html "sessionId: $sessionId <br>\n"
  85     html "sessionParms: $sessionParms <br>\n"
  86     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
  87         html $e {: } $env($e) {<br>} \n
  88     }
  89 }
  90 </body>
  91 </html>