From: Adam Dickmeiss Date: Wed, 22 May 1996 16:50:26 +0000 (+0000) Subject: Bug fix. X-Git-Url: http://git.indexdata.com/?p=egate.git;a=commitdiff_plain;h=8c79355b57f8798be827a2e67d00ac30606e742c Bug fix. --- diff --git a/www/nwi.egw b/www/nwi.egw index a383ecc..c7eaecb 100644 --- a/www/nwi.egw +++ b/www/nwi.egw @@ -1,6 +1,6 @@ { -# $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 @@ -82,7 +82,7 @@ set hosts { {mars.dtv.dk:9999/Default} - {nwi.ub2.lu.se/sverige} + {nwi.ub2.lu.se:2121/sverige} } foreach t $hosts { html {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); diff --git a/www/ztargets.conf b/www/ztargets.conf index 062fed8..92ba027 100644 --- a/www/ztargets.conf +++ b/www/ztargets.conf @@ -1,4 +1,4 @@ -# $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 @@ -199,7 +199,7 @@ set targets(Tikal.dev.oclc.org/AGRICOLA) [list \ ] set targets(nwi.ub2.lu.se/sverige) { - Sweden + SwedenWais WAIS \ { { {All Fields} {@attr 1=4} } } {} @@ -209,6 +209,20 @@ set targets(nwi.ub2.lu.se/sverige) { } +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