From 9f25c8f60536b8110db7d756e09c6a36aa4084bc Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Thu, 28 Oct 2010 10:45:14 +0000 Subject: [PATCH] 2010-10-28 12:44 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/src/rdd/dbstrux.prg * harbour/contrib/hbtip/sendmail.prg * minor formatting --- harbour/ChangeLog | 5 +++++ harbour/contrib/hbtip/sendmail.prg | 5 ++++- harbour/src/rdd/dbstrux.prg | 2 +- 3 files changed, 10 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 88f12ae523..069757483f 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,11 @@ The license applies to all entries newer than 2009-04-28. */ +2010-10-28 12:44 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/src/rdd/dbstrux.prg + * harbour/contrib/hbtip/sendmail.prg + * minor formatting + 2010-10-28 12:08 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbqt/utils/hbqtgen.prg + Generate REQUEST __HBQT puller code to each class definition diff --git a/harbour/contrib/hbtip/sendmail.prg b/harbour/contrib/hbtip/sendmail.prg index 2ce588eb7a..e90a5b5e0e 100644 --- a/harbour/contrib/hbtip/sendmail.prg +++ b/harbour/contrib/hbtip/sendmail.prg @@ -55,7 +55,10 @@ #translate ( LIKE ) => ( hb_regexLike( (), () ) ) -FUNCTION hb_SendMail( cServer, nPort, cFrom, xTo, xCC, xBCC, cBody, cSubject, aFiles, cUser, cPass, cPopServer, nPriority, lRead, bTrace, lPopAuth, lNoAuth, nTimeOut, cReplyTo, lTLS, cSMTPPass, cCharset, cEncoding ) +FUNCTION hb_SendMail( cServer, nPort, cFrom, xTo, xCC, xBCC, cBody, cSubject, ; + aFiles, cUser, cPass, cPopServer, nPriority, lRead, ; + bTrace, lPopAuth, lNoAuth, nTimeOut, cReplyTo, ; + lTLS, cSMTPPass, cCharset, cEncoding ) /* cServer -> Required. IP or domain name of the mail server nPort -> Optional. Port used my email server diff --git a/harbour/src/rdd/dbstrux.prg b/harbour/src/rdd/dbstrux.prg index faa1f0b1d1..53df168b0a 100644 --- a/harbour/src/rdd/dbstrux.prg +++ b/harbour/src/rdd/dbstrux.prg @@ -177,6 +177,6 @@ FUNCTION __dbStructFilter( aStruct, aFieldList ) AEval( aFieldList, {| cFieldName, nIndex | ; cName := RTrim( Upper( cFieldName ) ),; nIndex := AScan( aStruct, bFindName ),; - iif( nIndex == 0, NIL, AAdd( aStructFiltered, aStruct[ nIndex] ) ) } ) + iif( nIndex == 0, NIL, AAdd( aStructFiltered, aStruct[ nIndex ] ) ) } ) RETURN aStructFiltered