Bug fix.

[egate.git] / www / wtcl.c

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);