</head>
<body>
{
-# $Id: tdefine.egw,v 1.3 1996/01/26 15:50:11 adam Exp $
+# $Id: tdefine.egw,v 1.5 1996/03/13 14:07:31 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
}
set useIcons 1
- button-europagate
- button-define-target 1
- button-new-target 0
+ button-main
+ button-define-target
+ button-new-target
html "<h2>Target definition response</h2><br>\n"
global targets
set targets($hostSpec) [list \
[join $name] \
- $databases \
+ USMARC \
$attrList \
$authentication \
$description \
}
html "<p>\n"
set useIcons 0
- button-europagate
- button-define-target 1
- button-new-target 0
+ button-main
+ button-define-target
+ button-new-target
}
{
global debug