From 0f68ed9c652becd572e32a7947129f80a0ce2281 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sat, 15 May 2010 07:16:49 +0000 Subject: [PATCH] 2010-05-15 09:16 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbziparc/hbziparc.prg ! Fixed regression in HB_ZIPFILE() to make it work in "append" mode even when the .zip didn't exist. --- harbour/ChangeLog | 7 ++++++- harbour/contrib/hbziparc/hbziparc.prg | 2 +- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 37bec8f76b..2546258325 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,11 +17,16 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-05-15 09:16 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * contrib/hbziparc/hbziparc.prg + ! Fixed regression in HB_ZIPFILE() to make it work in + "append" mode even when the .zip didn't exist. + 2010-15:14 17:40 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbqt/hbqt_hbqplaintextedit.cpp * contrib/hbqt/hbqt_hbqplaintextedit.h * contrib/hbide/ideedit.prg - ! Fixed: "copy" operation on stream selection was returning + ! Fixed: "copy" operation on stream selection was returning wrong text. 2010-05-15 00:07 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) diff --git a/harbour/contrib/hbziparc/hbziparc.prg b/harbour/contrib/hbziparc/hbziparc.prg index 8971476464..df78ac2c8f 100644 --- a/harbour/contrib/hbziparc/hbziparc.prg +++ b/harbour/contrib/hbziparc/hbziparc.prg @@ -306,7 +306,7 @@ FUNCTION hb_ZipFile( cFileName,; FErase( cFileName ) ENDIF - IF !Empty( hZip := hb_ZipOpen( cFileName, iif( lOverwrite, NIL, HB_ZIP_OPEN_ADDINZIP ) ) ) + IF !Empty( hZip := hb_ZipOpen( cFileName, iif( ! lOverwrite .AND. hb_FileExists( cFileName ), HB_ZIP_OPEN_ADDINZIP, NIL ) ) ) DEFAULT acFiles TO {} DEFAULT acExclude TO {}