2012-10-08 22:09 UTC+0200 Viktor Szakats (harbour syenar.net)

* contrib/gtwvg/activex.prg
  * contrib/gtwvg/class.prg
  * contrib/gtwvg/crt.prg
  * contrib/gtwvg/menubar.prg
  * contrib/gtwvg/paint.prg
  * contrib/gtwvg/parthdlr.prg
  * contrib/gtwvg/pushbut.prg
  * contrib/gtwvg/statbar.prg
  * contrib/gtwvg/static.prg
  * contrib/gtwvg/syswnd.prg
  * contrib/gtwvg/tabpage.prg
  * contrib/gtwvg/toolbar.prg
  * contrib/gtwvg/wnd.prg
  * extras/httpsrv/cgifunc.prg
  * extras/httpsrv/cookie.prg
  * extras/httpsrv/session.prg
  * extras/httpsrv/uhttpd.prg
    * use __defaultNIL() instead of DEFAULT TO
    * deleted common.ch from all files

  * contrib/hbmisc/numtxtru.prg
    % minor optimization

  * contrib/hbmisc/tests/numtxtru.prg
    * avoid using a .dbf as output, instead use STDOUT
    * added lines to make it work using hbrun
    * switched output and HVM to UTF-8, so it can be
      displayed on more systems (both as stdalone exe 
      and as hbrun script)

harbour/extras/httpsrv/cookie.prg

@@ -50,7 +50,6 @@
  *
  */
 
-#include "common.ch"
 #include "hbclass.ch"
 
 #command IF <lexpr> THEN <*statement*>  =>;
@@ -99,10 +98,13 @@ METHOD SetCookieDefaults( cDomain, cPath, nExpireDays, nExpireSecs ) CLASS uhttp
 METHOD SetCookie( cCookieName, xValue, cDomain, cPath, cExpires, lSecure, lHttpOnly ) CLASS uhttpd_Cookie
    LOCAL cStr, nPos, nCookies
 
-   DEFAULT cDomain      TO ::cDomain
-   DEFAULT cPath        TO ::cPath
-   DEFAULT cExpires     TO uhttpd_DateToGMT( Date(), Time(), ::nExpireDays, ::nExpireSecs )
-   DEFAULT lHttpOnly    TO .F.
+   __defaultNIL( @cDomain, ::cDomain )
+   __defaultNIL( @cPath, ::cPath )
+   __defaultNIL( @lHttpOnly, .F. )
+
+   IF cExpires == NIL
+      cExpires := uhttpd_DateToGMT( Date(), Time(), ::nExpireDays, ::nExpireSecs )
+   ENDIF
 
    ::lHttpOnly := lHttpOnly