Trivial bug in fetch-loop.

diff --git a/zlayer/zaccess.c b/zlayer/zaccess.c
index 346d4ed..7dd7d31 100644 (file)
--- a/zlayer/zaccess.c
+++ b/zlayer/zaccess.c
@@ -2,7 +2,10 @@
  * Europagate, 1995
  *
  * $Log: zaccess.c,v $
- * Revision 1.6  1995/02/17 14:41:22  quinn
+ * 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
  * Debugging.
  *
  * Revision 1.5  1995/02/17  13:58:01  quinn
@@ -421,7 +424,7 @@ const struct zass_presentent *zass_present(ZASS a, char *resname, int start,
            return 0;
        }
        r.nextpos = PresentResponse_GetNextResultSetPosition(pdu);
-       start += r.nextpos;
+       start = r.nextpos;
        num -= r.num;
        switch(PresentResponse_GetRecordType(pdu))
        {
@@ -435,9 +438,9 @@ const struct zass_presentent *zass_present(ZASS a, char *resname, int start,
                gw_log(GW_LOG_WARN, ZASS_TYPE, "Bad tag in response rec.");
        }
        *rec = 0;
+       PresentResponse_Destroy(pdu);
     }
     while (num);
-    PresentResponse_Destroy(pdu);
        
     return &r;
 }