Fixed bug in do_responseStatus.

diff --git a/CHANGELOG b/CHANGELOG
index 79604fb..91cd9d9 100644 (file)
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,4 +1,4 @@
-$Id: CHANGELOG,v 1.45 2001-03-26 11:39:34 adam Exp $
+$Id: CHANGELOG,v 1.46 2001-03-27 16:27:21 adam Exp $
 
 06/19/95 Release of ir-tcl-1.0b
 ------------------------------------------------------
@@ -141,3 +141,6 @@ $Id: CHANGELOG,v 1.45 2001-03-26 11:39:34 adam Exp $
 03/26/01 Fixed bug in ir_deleteDiags. Thanks to Rustam T. Usmanov
           <rustam@unilib.neva.ru>
 
+03/27/01 Fixed bug in do_responseStatus. Thanks to Rustam T. Usmanov
+          <rustam@unilib.neva.ru>
+

diff --git a/ir-tcl.c b/ir-tcl.c
index c6e789b..13f5603 100644 (file)
--- a/ir-tcl.c
+++ b/ir-tcl.c
@@ -4,7 +4,10 @@
  * See the file LICENSE for details.
  *
  * $Log: ir-tcl.c,v $
- * Revision 1.117  2001-03-26 11:39:34  adam
+ * Revision 1.118  2001-03-27 16:27:21  adam
+ * Fixed bug in do_responseStatus.
+ *
+ * Revision 1.117  2001/03/26 11:39:34  adam
  * Fixed bug in ir_deleteDiags - crash when receiving multiple diags.
  *
  * Revision 1.116  2001/02/09 11:58:04  adam
@@ -2786,6 +2789,10 @@ static int do_responseStatus (void *o, Tcl_Interp *interp,
         Tcl_AppendElement (interp, "NSD");
         return ir_diagResult (interp, obj->nonSurrogateDiagnosticList,
                               obj->nonSurrogateDiagnosticNum);
+    case Z_Records_multipleNSD:
+        Tcl_AppendElement (interp, "NSD");
+        return ir_diagResult (interp, obj->nonSurrogateDiagnosticList,
+                               obj->nonSurrogateDiagnosticNum);
     }
     return TCL_OK;
 }