projects / egate.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 9f5629c)
Bug fix.
authorAdam Dickmeiss <adam@indexdata.dk>
Wed, 22 May 1996 16:50:26 +0000 (16:50 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Wed, 22 May 1996 16:50:26 +0000 (16:50 +0000)
www/nwi.egw patch | blob | history
www/wtcl.c patch | blob | history
www/ztargets.conf patch | blob | history

diff --git a/www/nwi.egw b/www/nwi.egw
index a383ecc..c7eaecb 100644 (file)
--- a/www/nwi.egw
+++ b/www/nwi.egw
@@ -1,6 +1,6 @@
 <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
@@ -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 {<input type="checkbox" name="host" }
diff --git a/www/wtcl.c b/www/wtcl.c
index 7ee01dd..a5c0e71 100644 (file)
--- a/www/wtcl.c
+++ b/www/wtcl.c
@@ -41,7 +41,10 @@
  * 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
@@ -204,9 +207,12 @@ static int proc_wform_invoke (ClientData clientData, Tcl_Interp *interp,
     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);
diff --git a/www/ztargets.conf b/www/ztargets.conf
index 062fed8..92ba027 100644 (file)
--- 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
Europgate