From f67b8ebe0fa97504995da59561133fa7eb85cc46 Mon Sep 17 00:00:00 2001 From: Luis Krause Date: Thu, 18 Sep 2003 23:41:17 +0000 Subject: [PATCH] *** empty log message *** --- harbour/ChangeLog | 10 +++++++++- harbour/contrib/rdd_ads/ads1.c | 3 +++ 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 0718ca676c..2e27a61c80 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,14 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2003-09-18 16:33 UTC-0800 Luis Krause Mantilla + * contrib/rdd_ads/ads1.c + ! Fixed bug when passing a numeric to adsCustomizeAOF() (Nil and + array worked ok). Thanks to Brian Hays for the fix. + * include/ads.ch + ! The ROLLBACK TRANSACTION command was translating to + AdsRollbackTransaction() instead of just AdsRollback() + 2003-09-18 10:20 UTC+0100 Antonio Linares * source/rdd/dbcmd.c ! Fixed several places more where hb_strncpyUpper() was wrongly used @@ -23,7 +31,7 @@ ! fixed bug on hb_strncpyUpper() use from DbUseArea() 2003-09-17 10:54 UTC-0800 Luis Krause Mantilla - * harbour/source/ftl/tget.prg + * harbour/source/rtl/tget.prg ! Fixed bug in unTransform() method that truncated trailing spaces in variable when using "@R" template Borrowed from xharbour by Andi Jahja: diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c index f9d1550ead..7b0af732b1 100644 --- a/harbour/contrib/rdd_ads/ads1.c +++ b/harbour/contrib/rdd_ads/ads1.c @@ -3082,7 +3082,10 @@ HB_FUNC( ADSCUSTOMIZEAOF ) ulRecord = pArea->ulRecNo; } else if( ISNUM( 1 ) ) /* Passed a single recno */ + { + ulNumRecs = 1; ulRecord = hb_parnl( 1 ); + } else if( ISARRAY( 1 ) ) /* convert array of recnos to C array */ ulNumRecs = hb_parinfa( 1, 0 );