From 2f2f5bfa4115e82731055678b68e5befb552e98e Mon Sep 17 00:00:00 2001
From: "Alexander S.Kresin" <alex@belacy.belgorod.su>
Date: Fri, 4 Oct 2002 10:41:14 +0000
Subject: [PATCH] 2002-10-04 14:42 UTC+0300 Alexander Kresin
 <alex@belacy.belgorod.su>

---
 harbour/ChangeLog          | 4 ++++
 harbour/source/rdd/dbcmd.c | 6 +++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 105b218cce..ba2ac210a8 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-10-04 14:42 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * source/rdd/dbcmd.c
+    ! Bug fixed in COPY TO, APPEND FROM with aliased fields
+
 2002-10-04 13:58 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
   * source/rdd/dbfntx/dbfntx1.c
     ! Few bugs fixed, related to OrdKeyNo() and OrdKeyCount()
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 6c8cbf1216..09de61e5f9 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -3477,7 +3477,11 @@ static BOOL IsFieldIn( char * fieldName, PHB_ITEM pFields )
   for ( i=0; i<uiFields; i++ )
   {
     PHB_ITEM pField = pFields->item.asArray.value->pItems + i;
-    ptr = (char *)pField->item.asString.value;
+    ptr = strrchr( (char *)pField->item.asString.value,'>' );
+    if( ptr && ptr > (char *)pField->item.asString.value && *(ptr-1)=='-' )
+       ptr ++;
+    else
+       ptr = (char *)pField->item.asString.value;
     lresult = TRUE;
     for( j=0;*ptr;j++,ptr++ )
         if( *(fieldName+j) != toupper(*ptr) )