From 4ec5e26b58c8c706f4eafc33c2178ddc4542cd7d Mon Sep 17 00:00:00 2001 From: "Alexander S.Kresin" Date: Tue, 19 Jun 2001 10:12:20 +0000 Subject: [PATCH] 2001-06-19 14:10 GMT+3 Alexander Kresin --- harbour/ChangeLog | 4 ++++ harbour/source/rdd/dbcmd.c | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 8ae2b203dc..a28a943ddc 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2001-06-19 14:10 GMT+3 Alexander Kresin + * source/rdd/dbcmd.c + * OrdListAdd() fixed due to previous ntxOrderListFocus() correction + 2001-06-18 22:50 UTC+1 JFL (mafact) * harbour/source/vm/Classe.c * Hb_ClsScope() neutralised till after 0.37 diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c index 3f6780d982..c28bf68bad 100644 --- a/harbour/source/rdd/dbcmd.c +++ b/harbour/source/rdd/dbcmd.c @@ -2489,7 +2489,7 @@ HB_FUNC( ORDLISTADD ) return; } SELF_ORDLSTADD( ( AREAP ) s_pCurrArea->pArea, &pOrderInfo ); - hb_itemRelease( pOrderInfo.itmResult ); + if ( bFirst ) /* set as controlling order and go top */ { pOrderInfo.itmOrder = hb_itemPutNI( NULL, 1 ); @@ -2497,6 +2497,7 @@ HB_FUNC( ORDLISTADD ) hb_itemRelease( pOrderInfo.itmOrder ); SELF_GOTOP( ( AREAP ) s_pCurrArea->pArea ); } + hb_itemRelease( pOrderInfo.itmResult ); } else hb_errRT_DBCMD( EG_NOTABLE, EDBCMD_NOTABLE, NULL, "ORDLISTADD" );