Problem description: When saving a file using StoreAsURL with the MediaDescriptor property "Overwrite" not set (i.e. using the default, which the documentation describes as having the value FALSE), existing files are overwritten.

Steps to reproduce:

Edit the following macro to conform to your local directory structure and OS, put a Writer file called "Test1.odt" in the directory and run the macro.

Sub Main

dim FileString as String
dim TrueProp as  Object
TrueProp = New com.sun.star.beans.PropertyValue
dim FalseProp as Object
FalseProp = New com.sun.star.beans.PropertyValue

TrueProp.Name="Overwrite"
TrueProp.Value=TRUE
FalseProp.Name="Overwrite"
FalseProp.Value=FALSE

dim EmptyArray() as Object
dim TrueArray(0) as Object
dim FalseArray(0) as Object

TrueArray(0)=TrueProp
FalseArray(0)=FalseProp

InFileString=  "D:\Peter\PC\Open Office\Bughunt\Test1.odt"  ' This file already exists
OutFile2String="D:\Peter\PC\Open Office\Bughunt\Test2.odt" 
OutFile3String="D:\Peter\PC\Open Office\Bughunt\Test3.odt" 
OutFile4String="D:\Peter\PC\Open Office\Bughunt\Test4.odt" 

dim FileURL as String

InFileURL=ConverttoURL(InFileString)
OutFile2URL=ConverttoURL(OutFile2String)
OutFile3URL=ConverttoURL(OutFile3String)
OutFile4URL=ConverttoURL(OutFile4String)

Dim doc as Object

Doc=StarDesktop.LoadComponentfromURL(InFileURL, "_blank", 0, Array())
msgbox "Document loaded"
'xray doc

Doc.StoreToURL(OutFile2URL,TrueArray)
Doc.StoreToURL(OutFile3URL,TrueArray)
Doc.StoreToURL(OutFile4URL,TrueArray)
msgbox "Documents 2,3,4 stored OK"

Doc.StoreAsURL(OutFile2URL,TrueArray)
msgbox "Document 2 stored with Overwrite set to TRUE"

Doc.StoreAsURL(OutFile3URL,EmptyArray)
msgbox "Document 3 stored with default Overwrite"

Doc.StoreAsURL(OutFile4URL,FalseArray)
msgbox "Document 4 stored with Overwrite set to FALSE"

End sub

Current behavior:

Gives an error when storing Document Test4.

Expected behavior:

Should have given an error when storing document Test3.

This also occurs in OpenOffice and has been reported as bug no 121665 there.

              
Operating System: Windows 7
Version: 3.5.7.2 release