From a4eb34d33aa6674a5ae9bb7c40265db7606628d4 Mon Sep 17 00:00:00 2001 From: "Alexander S.Kresin" Date: Tue, 10 Oct 2000 12:13:50 +0000 Subject: [PATCH] 2000-10-10 16:12 GMT+3 Alexander Kresin --- harbour/ChangeLog | 4 ++++ harbour/contrib/rdd_ads/ads1.c | 5 +---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 4e2aabb23f..b3f80f5654 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2000-10-10 16:12 GMT+3 Alexander Kresin + *contrib/rdd_ads/ads1.c + * fixed bug with creating compound indexes, reported by Antonio Linares + 2000-10-10 14:50 GMT+3 Alexander Kresin * source/rdd/workarea.c * fixed bug, related to fields handling diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c index 7c85c36428..8f9f206844 100644 --- a/harbour/contrib/rdd_ads/ads1.c +++ b/harbour/contrib/rdd_ads/ads1.c @@ -1283,10 +1283,7 @@ static ERRCODE adsOrderCreate( ADSAREAP pArea, LPDBORDERCREATEINFO pOrderInfo ) ulOptions = ADS_COMPOUND; else { - int slen = strlen( pArea->szDataFileName ); - char * ptr = pArea->szDataFileName + slen - 4; - if( strcmpNoCase( ( char * ) pOrderInfo->abBagName, ( char * ) pArea->szDataFileName, - ( slen >= 4 && strcmpNoCase( ".dbf", ptr, 0 ) ) ? slen-4:0 ) ) + if( pOrderInfo->atomBagName && *(pOrderInfo->atomBagName) != '\0' ) ulOptions = ADS_COMPOUND; }