From 1603cf3dbcdd3440e3b105466693b8ba0de52f1e Mon Sep 17 00:00:00 2001
From: "Alexander S.Kresin" <alex@belacy.belgorod.su>
Date: Fri, 21 Sep 2001 07:33:34 +0000
Subject: [PATCH] 2001-09-21 11:30 GMT+3 Alexander Kresin
 <alex@belacy.belgorod.su>

---
 harbour/ChangeLog                           | 11 +++++++++++
 harbour/contrib/rdd_ads/ads.ch              |  5 +++++
 harbour/contrib/rdd_ads/ads1.c              |  1 +
 harbour/contrib/rdd_ads/adsfunc.c           |  7 ++++++-
 harbour/contrib/rdd_ads/doc/en/adsfuncs.txt |  2 +-
 harbour/contrib/rdd_ads/doc/rddads.rsp      |  1 +
 6 files changed, 25 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 82865e69cd..26b15f7107 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,14 @@
+2001-09-21 11:30 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
+   * contrib/rdd_ads/ads1.c
+     ! Uploaded a fix, posted by Brian Hays
+   * contrib/rdd_ads/adsfunc.c
+   * contrib/rdd_ads/ads.ch
+     * SET PATH TO <cpath> added
+   * contrib/rdd_ads/doc/rddads.rsp
+     * adsfuncs.txt item added
+   * contrib/rdd_ads/doc/en/adsfuncs.txt
+     ! minor formatting bug fixed
+
 2001-09-18 02:06 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
 
    * source/vm/arrayshb.c
diff --git a/harbour/contrib/rdd_ads/ads.ch b/harbour/contrib/rdd_ads/ads.ch
index 4899093adb..f1f68fbde5 100644
--- a/harbour/contrib/rdd_ads/ads.ch
+++ b/harbour/contrib/rdd_ads/ads.ch
@@ -104,6 +104,11 @@
 #command SET DEFAULT TO                                               ;
       => Set( _SET_DEFAULT, "" ); AdsSetDefault( "" )
 
+#command SET PATH TO <(path)>                                         ;
+      => Set( _SET_PATH, <(path)> ); AdsSetSearchPath( <(path)> )
+#command SET PATH TO                                                  ;
+      => Set( _SET_PATH, "" ); AdsSetSearchPath( "" )
+
 #command SET DELETED <x:ON,OFF,&>                                     ;
       =>  Set( _SET_DELETED, <(x)> )                                  ;
           ;AdsSetDeleted( if( upper( <(x)> ) == "ON", .t., .f. ) )
diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index 489318189b..4c3dd23146 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -852,6 +852,7 @@ static ERRCODE adsGetValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
               else
                  hb_itemPutC( pItem, "" );
            }
+           hb_itemSetCMemo( pItem );
            break;
          }
    }
diff --git a/harbour/contrib/rdd_ads/adsfunc.c b/harbour/contrib/rdd_ads/adsfunc.c
index 9c65de86a5..b31d9866e7 100644
--- a/harbour/contrib/rdd_ads/adsfunc.c
+++ b/harbour/contrib/rdd_ads/adsfunc.c
@@ -244,7 +244,12 @@ HB_FUNC( ADSSETCHARTYPE )
 
 HB_FUNC( ADSSETDEFAULT )
 {
-   AdsSetDefault  ( (UNSIGNED8*) hb_parc( 1 ) );
+   AdsSetDefault( (UNSIGNED8*) hb_parc( 1 ) );
+}
+
+HB_FUNC( ADSSETSEARCHPATH )
+{
+   AdsSetSearchPath( (UNSIGNED8*) hb_parc( 1 ) );
 }
 
 HB_FUNC( ADSSETDELETED )
diff --git a/harbour/contrib/rdd_ads/doc/en/adsfuncs.txt b/harbour/contrib/rdd_ads/doc/en/adsfuncs.txt
index fc2623396e..217910a044 100644
--- a/harbour/contrib/rdd_ads/doc/en/adsfuncs.txt
+++ b/harbour/contrib/rdd_ads/doc/en/adsfuncs.txt
@@ -388,7 +388,7 @@
  *  $FILES$
  *      Library is RddAds
  *      Header is ads.ch
-  *  $SEEALSO$
+ *  $SEEALSO$
  *      ADSClearAOF(),ADSIsRecordInAOF(),ADSRefreshAOF()
  *  $END$
  */
diff --git a/harbour/contrib/rdd_ads/doc/rddads.rsp b/harbour/contrib/rdd_ads/doc/rddads.rsp
index 9279ef33d1..8c77fd594d 100644
--- a/harbour/contrib/rdd_ads/doc/rddads.rsp
+++ b/harbour/contrib/rdd_ads/doc/rddads.rsp
@@ -1 +1,2 @@
 en\readme.txt
+en\adsfuncs.txt