diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 1ecd1a47fd..996be8c867 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,11 +16,16 @@ The license applies to all entries newer than 2009-04-28. */ +2010-10-27 18:51 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/ChangeLog + - removed wrong ChangeLog entry committed unintentionally with previous + commit + + * harbour/src/rdd/hbsix/sxcompat.prg + ! fixed very old typo + 2010-10-27 18:30 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/src/rdd/dbcmd.c - * modified FIELDGET() and FIELDPUT() to accept - also field name (not only field index) - just like DBFILEGET() and DBFILEPUT() * modified HB_FIELDLEN(), HB_FIELDDEC(), HB_FIELDTYPE() to accept also field name (not only field index) diff --git a/harbour/src/rdd/hbsix/sxcompat.prg b/harbour/src/rdd/hbsix/sxcompat.prg index 77108bbb1b..0c847f150f 100644 --- a/harbour/src/rdd/hbsix/sxcompat.prg +++ b/harbour/src/rdd/hbsix/sxcompat.prg @@ -448,7 +448,7 @@ FUNCTION Sx_File2BLOB( cFileName, cFldName, nActionCode ) IF hb_bitAnd( nActionCode, BLOB_FILEENCRYPT ) != 0 nAction := hb_bitOr( nAction, FILEPUT_ENCRYPT ) ENDIF - RETURN dbFileGet( cFldName, cFileName, nAction ) + RETURN dbFilePut( cFldName, cFileName, nAction ) FUNCTION Sx_dbCreate( cFileName, aStruct, cRDD ) LOCAL aField, aDbStruct