www/mtargets.egw

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