From 56f0f0d96bc58b86cc34ef11251dcff7aa818575 Mon Sep 17 00:00:00 2001
From: "Alexander S.Kresin" <alex@belacy.belgorod.su>
Date: Tue, 6 May 2003 08:39:10 +0000
Subject: [PATCH] 2003-05-06 12:45 UTC+0300 Alexander Kresin
 <alex@belacy.belgorod.su>

---
 harbour/ChangeLog              | 4 ++++
 harbour/contrib/rdd_ads/ads1.c | 1 +
 2 files changed, 5 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 7f8d8c47ed..d6f8150e88 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-05-06 12:45 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * contrib/rdd_ads/ads1.c
+    ! Bug fixed in adsOrderListClear() - the current order is set to 0 now
+
 2003-05-06 10:45 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
   * include/hbapicdp.h
   * source/rtl/cdpapi.c
diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index 4840f0caf6..3902eeeb27 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -1916,6 +1916,7 @@ static ERRCODE adsOrderListClear( ADSAREAP pArea )
    HB_TRACE(HB_TR_DEBUG, ("adsOrderListClear(%p)", pArea));
 
    AdsCloseAllIndexes  ( pArea->hTable );
+   pArea->hOrdCurrent = 0;
 
    return SUCCESS;
 }