Add new version to version list after copying the old versions

This commit is contained in:
Dirk Völzke 2001-02-23 08:49:09 +00:00
parent c0b06761cf
commit 0ad23d3601

View file

@ -2,9 +2,9 @@
*
* $RCSfile: objstor.cxx,v $
*
* $Revision: 1.23 $
* $Revision: 1.24 $
*
* last change: $Author: mba $ $Date: 2001-02-22 09:28:10 $
* last change: $Author: dv $ $Date: 2001-02-23 09:49:09 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
@ -771,11 +771,7 @@ sal_Bool SfxObjectShell::SaveTo_Impl
aInfo.aCreateStamp.SetName( aAuthor );
// Version in die Liste aufnehmen; diese mu\s vorher schon vom
// "alten" Medium "ubertragen worden sein
sal_Bool bUseXML = SOFFICE_FILEFORMAT_60 <= pFilter->GetVersion();
rMedium.AddVersion_Impl( aInfo );
rMedium.SaveVersionList_Impl( bUseXML );
// Den Storage f"ur die Versionen "offnen
SvStorageRef xVersion = bUseXML ?
@ -798,6 +794,11 @@ sal_Bool SfxObjectShell::SaveTo_Impl
}
}
// Version in die Liste aufnehmen; diese mu\s vorher schon vom
// "alten" Medium "ubertragen worden sein
rMedium.AddVersion_Impl( aInfo );
rMedium.SaveVersionList_Impl( bUseXML );
// Einen Stream aufmachen, auf den dann der Storage gesetzt wird,
// in den gespeichert wird
// SvMemoryStream aTmp;