3 # $Id: targets.egw,v 1.18 1996/01/26 15:50:10 adam Exp $
5 if {[info commands saveState] == ""} {
8 if {![info exists debug]} {
9 if {[lindex $sessionParms 0] == "1"} {
18 <title> Europagate, WWW/Z39.50 Gateway </title>
25 if {[info exists nextSetNo]} {
28 button-define-target 0
29 html "<h2>Choose a target</h2><br>\n"
32 proc targetsCmp {l r} {
34 return [string compare [string tolower [lindex $targets($l) 0]] \
35 [string tolower [lindex $targets($r) 0]]]
37 set tt [array names targets]
38 set tn [lsort -command targetsCmp $tt]
40 if {[string index $t 0] == "."} continue
41 html {<dt><a href="http:} $env(SCRIPT_NAME) /
42 html "$sessionId/query.egw;/$t" {"> } [lindex $targets($t) 0] " </a>\n"
43 set desc [lindex $targets($t) 4]
51 if {[info exists nextSetNo]} {
54 button-define-target 0
61 html "<h3>Debug information</h3>\n"
62 html "sessionId: $sessionId <br>\n"
63 html "sessionParms: $sessionParms <br>\n"
64 foreach n [array names env] {
65 html "env($n) = " $env($n) " <br>\n"