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

@@ -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<NAME> puller code to each class definition 

harbour/contrib/hbtip/sendmail.prg

@@ -55,7 +55,10 @@
 
 #translate ( <exp1> LIKE <exp2> )   => ( hb_regexLike( (<exp2>), (<exp1>) ) )
 
-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

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