<html>
{
-# $Id: targets.egw,v 1.14 1996/01/09 16:16:49 adam Exp $
+# $Id: targets.egw,v 1.17 1996/01/24 14:14:19 adam Exp $
source ztargets.conf
if {[info commands saveState] == ""} {
source z39util.tcl
<title> Europagate, WWW/Z39.50 Gateway </title>
</head>
<body>
-<h2>Choose Z39.50 target</h2><br>
+<h2>Choose a server</h2><br>
<dl>
{
if {![info exists debug]} {
foreach t $tn {
if {[string index $t 0] == "."} continue
html {<dt><a href="http:} $env(SCRIPT_NAME) /
- html "$sessionId/query.egw/$t" {"> } [lindex $targets($t) 0] " </a>\n"
+ html "$sessionId/query.egw;/$t" {"> } [lindex $targets($t) 0] " </a>\n"
set desc [lindex $targets($t) 4]
if {$desc != ""} {
html "<dd><em>$desc</em>\n"
{
button-europagate
+ button-define-target 1
button-view-history 0
}