'nother bug in present

diff --git a/zlayer/zaccess.c b/zlayer/zaccess.c
index 7dd7d31..5cdb65b 100644 (file)
--- a/zlayer/zaccess.c
+++ b/zlayer/zaccess.c
@@ -2,7 +2,10 @@
  * Europagate, 1995
  *
  * $Log: zaccess.c,v $
- * Revision 1.7  1995/02/17 14:42:21  quinn
+ * Revision 1.8  1995/02/17 14:48:41  quinn
+ * 'nother bug in present
+ *
+ * Revision 1.7  1995/02/17  14:42:21  quinn
  * Trivial bug in fetch-loop.
  *
  * Revision 1.6  1995/02/17  14:41:22  quinn
@@ -417,7 +420,7 @@ const struct zass_presentent *zass_present(ZASS a, char *resname, int start,
            return 0;
        }
        gw_log(ZASS_DEBUG, ZASS_TYPE, "Got presentresponse");
-       r.num = PresentResponse_GetNumberOfRecordsReturned(pdu);
+       r.num += PresentResponse_GetNumberOfRecordsReturned(pdu);
        if (r.num == 0)
        {
            gw_log(GW_LOG_WARN, ZASS_TYPE, "Got 0 records from target.");
@@ -437,10 +440,10 @@ const struct zass_presentent *zass_present(ZASS a, char *resname, int start,
            default:
                gw_log(GW_LOG_WARN, ZASS_TYPE, "Bad tag in response rec.");
        }
-       *rec = 0;
        PresentResponse_Destroy(pdu);
     }
     while (num);
+    *rec = 0;
        
     return &r;
 }