<html>
{
-# $Id: nwi.egw,v 1.6 1996/05/15 18:43:37 adam Exp $
+# $Id: nwi.egw,v 1.7 1996/05/22 16:50:26 adam Exp $
source ztargets.conf
set scriptQuery nwi.egw
set hosts {
{mars.dtv.dk:9999/Default}
- {nwi.ub2.lu.se/sverige}
+ {nwi.ub2.lu.se:2121/sverige}
}
foreach t $hosts {
html {<input type="checkbox" name="host" }
* USE OR PERFORMANCE OF THIS SOFTWARE.
*
* $Log: wtcl.c,v $
- * Revision 1.14 1996/05/21 14:53:04 adam
+ * Revision 1.15 1996/05/22 16:50:27 adam
+ * Bug fix.
+ *
+ * Revision 1.14 1996/05/21 14:53:04 adam
* Tcl command wform extented; options -raw and -exists added.
*
* Revision 1.13 1996/03/14 11:48:40 adam
if (arg)
{
for (i = 0; *p->wcl->wf_data[i].name; i++)
- if (!strcmp (arg, p->wcl->wf_data[i].name) &&
- *p->wcl->wf_data[i].value)
- Tcl_AppendElement (p->interp, p->wcl->wf_data[i].value);
+ if (!strcmp (arg, p->wcl->wf_data[i].name))
+ {
+ failFlag = 0;
+ if (*p->wcl->wf_data[i].value)
+ Tcl_AppendElement (p->interp, p->wcl->wf_data[i].value);
+ }
if (failFlag)
{
Tcl_AppendResult (p->interp, arg, " doesn't exist", NULL);
-# $Id: ztargets.conf,v 1.34 1996/05/15 18:43:40 adam Exp $
+# $Id: ztargets.conf,v 1.35 1996/05/22 16:50:27 adam Exp $
#
# This file contains the predefined targets in the WWW-Z39.50 gateway
# Each target is an entry in the associative array "targets". The
]
set targets(nwi.ub2.lu.se/sverige) {
- Sweden
+ SwedenWais
WAIS \
{ { {All Fields} {@attr 1=4} } }
{}
}
+set targets(nwi.ub2.lu.se:2121/sverige) {
+ Sweden
+ USMARC
+ { { {All Fields} {@attr 1=1016 @attr 4=105} }
+ { {Title} {@attr 1=4 @attr 4=105} }
+ { {URL} {@attr gils 1=2021} }
+ { {Subject} {@attr 1=29 @attr 4=105} }
+ { {URL links} {@attr gils 1=2047} } }
+ {}
+ {Nordic Web Index - Sweden}
+ 1
+ nwi
+}
+
set targets(mars.dtv.dk:9999/Default) {
Denmark
USMARC