2011-10-29 01:53 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* contrib/hbziparc/ziparc.prg
    % minor optimization to last change. checkme.

  - contrib/hbxlsxml
  + examples/hbxlsxml
    ! moved to examples. this code is not even close 
      to Harbour code quality and implements not .xls 
      file format but HTML format renamed to .xls. It's 
      not understood by lots of tools, it's not a standard.
      see details on list.

harbour/ChangeLog

@@ -16,6 +16,18 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-10-29 01:53 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbziparc/ziparc.prg
+    % minor optimization to last change. checkme.
+
+  - contrib/hbxlsxml
+  + examples/hbxlsxml
+    ! moved to examples. this code is not even close 
+      to Harbour code quality and implements not .xls 
+      file format but HTML format renamed to .xls. It's 
+      not understood by lots of tools, it's not a standard.
+      see details on list.
+
 2011-10-28 15:03 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
   * contrib/hbxlsxml/xlsxml.prg
     * Fixed: a last moment introduced element.

harbour/contrib/hbziparc/ziparc.prg

@@ -422,10 +422,8 @@ FUNCTION hb_UnzipFile( cFileName, bUpdate, lWithPath, cPassword, cPath, acFiles,
 
    DEFAULT lWithPath TO .F.
 
-   IF lWithPath
-      IF hb_DirCreate( cPath ) != 0 .AND. !hb_DirExists( cPath )
-         lRetVal := .F.
-      ENDIF
+   IF lWithPath .AND. ! hb_DirExists( cPath ) .AND. hb_DirCreate( cPath ) != 0
+      lRetVal := .F.
    ENDIF
 
    IF Empty( cPassword )
@@ -474,7 +472,7 @@ FUNCTION hb_UnzipFile( cFileName, bUpdate, lWithPath, cPassword, cPath, acFiles,
                ENDIF
 
                nRead := 0
-               DO WHILE ( nLen := hb_unZipFileRead( hUnzip, @cBuffer, Len( cBuffer ) ) ) > 0
+               DO WHILE ( nLen := hb_UnzipFileRead( hUnzip, @cBuffer, Len( cBuffer ) ) ) > 0
                   IF hb_isBlock( bProgress )
                      nRead += nLen
                      Eval( bProgress, nRead, nSize )