/**************************************************************
 * 
 * Licensed to the Apache Software Foundation (ASF) under one
 * or more contributor license agreements.  See the NOTICE file
 * distributed with this work for additional information
 * regarding copyright ownership.  The ASF licenses this file
 * to you under the Apache License, Version 2.0 (the
 * "License"); you may not use this file except in compliance
 * with the License.  You may obtain a copy of the License at
 * 
 *   http://www.apache.org/licenses/LICENSE-2.0
 * 
 * Unless required by applicable law or agreed to in writing,
 * software distributed under the License is distributed on an
 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 * KIND, either express or implied.  See the License for the
 * specific language governing permissions and limitations
 * under the License.
 * 
 *************************************************************/



// MARKER(update_precomp.py): autogen include statement, do not remove
#include "precompiled_sfx2.hxx"
#include <com/sun/star/ui/dialogs/XExecutableDialog.hpp>
#include <com/sun/star/ui/dialogs/XFilePicker.hpp>
#include <com/sun/star/ui/dialogs/XFilePickerControlAccess.hpp>
#include <com/sun/star/ui/dialogs/CommonFilePickerElementIds.hpp>
#include <com/sun/star/ui/dialogs/ExtendedFilePickerElementIds.hpp>
#include "com/sun/star/ui/dialogs/TemplateDescription.hpp"
#include <com/sun/star/view/XSelectionSupplier.hpp>
#include <com/sun/star/beans/XPropertyAccess.hpp>
#include <com/sun/star/beans/XPropertySet.hpp>
#include <com/sun/star/beans/XPropertyContainer.hpp>
#include <com/sun/star/beans/PropertyAttribute.hpp>
#include <com/sun/star/document/XExporter.hpp>
#include <com/sun/star/document/XDocumentInfoSupplier.hpp>
#include <com/sun/star/document/XDocumentInfo.hpp>
#include <com/sun/star/task/XInteractionHandler.hpp>
#include <com/sun/star/util/DateTime.hpp>
#include <com/sun/star/util/XURLTransformer.hpp>
#include <com/sun/star/frame/XStorable.hpp>
#include <com/sun/star/frame/XStorable2.hpp>
#include <com/sun/star/frame/XDispatchProvider.hpp>
#include <com/sun/star/frame/XDispatch.hpp>
#include <com/sun/star/frame/XTitle.hpp>
#include <com/sun/star/util/XModifyListener.hpp>
#include <com/sun/star/util/XModifiable.hpp>
#include <com/sun/star/util/XModifyBroadcaster.hpp>

#include <com/sun/star/util/XCloneable.hpp>
#include <com/sun/star/frame/XModuleManager.hpp>
#include <com/sun/star/io/IOException.hpp>

#include "guisaveas.hxx"

#include <unotools/pathoptions.hxx>
#include <unotools/pathoptions.hxx>
#include <svl/itemset.hxx>
#include <svl/eitem.hxx>
#include <svl/stritem.hxx>
#include <svl/intitem.hxx>
#include <unotools/useroptions.hxx>
#include <unotools/saveopt.hxx>
#include <tools/debug.hxx>
#include <tools/urlobj.hxx>
#include <comphelper/processfactory.hxx>
#include <comphelper/configurationhelper.hxx>
#include <comphelper/mimeconfighelper.hxx>
#include <vcl/msgbox.hxx>
#include <vcl/window.hxx>
#include <toolkit/awt/vclxwindow.hxx>

#include <sfx2/sfxsids.hrc>
#include <doc.hrc>
#include <sfx2/sfxresid.hxx>
#include <sfx2/docfilt.hxx>
#include <sfx2/filedlghelper.hxx>
#include <sfx2/app.hxx>
#include <sfx2/objsh.hxx>
#include <sfx2/dinfdlg.hxx>
#include <sfx2/request.hxx>
#include <sfxtypes.hxx>
#include "alienwarn.hxx"

#include "../appl/app.hrc"

#define DOCPROPSNUM 17

// flags that specify requested operation
#define EXPORT_REQUESTED 			1
#define PDFEXPORT_REQUESTED			2
#define PDFDIRECTEXPORT_REQUESTED	4
#define WIDEEXPORT_REQUESTED		8
#define SAVE_REQUESTED				16
#define SAVEAS_REQUESTED			32

// possible statuses of save operation
#define STATUS_NO_ACTION			0
#define STATUS_SAVE					1
#define STATUS_SAVEAS				2
#define STATUS_SAVEAS_STANDARDNAME	3

const ::rtl::OUString aFilterNameString = ::rtl::OUString::createFromAscii( "FilterName" );
const ::rtl::OUString aFilterOptionsString = ::rtl::OUString::createFromAscii( "FilterOptions" );
const ::rtl::OUString aFilterDataString    = ::rtl::OUString::createFromAscii( "FilterData" );
const ::rtl::OUString aFilterFlagsString   = ::rtl::OUString::createFromAscii( "FilterFlags" );

using namespace ::com::sun::star;

namespace {
//-------------------------------------------------------------------------
static sal_uInt16 getSlotIDFromMode( sal_Int8 nStoreMode )
{
	// This is a temporary hardcoded solution must be removed when
	// dialogs do not need parameters in SidSet representation any more

	sal_uInt16 nResult = 0;
	if ( nStoreMode == EXPORT_REQUESTED )
		nResult = SID_EXPORTDOC;
	else if ( nStoreMode == ( EXPORT_REQUESTED | PDFEXPORT_REQUESTED ) )
		nResult = SID_EXPORTDOCASPDF;
	else if ( nStoreMode == ( EXPORT_REQUESTED | PDFEXPORT_REQUESTED | PDFDIRECTEXPORT_REQUESTED ) )
		nResult = SID_DIRECTEXPORTDOCASPDF;
	else if ( nStoreMode == SAVEAS_REQUESTED || nStoreMode == ( EXPORT_REQUESTED | WIDEEXPORT_REQUESTED ) )
		nResult = SID_SAVEASDOC;
	else {
		DBG_ASSERT( sal_False, "Unacceptable slot name is provided!\n" );
    }

	return nResult;
}

//-------------------------------------------------------------------------
static sal_uInt8 getStoreModeFromSlotName( const ::rtl::OUString& aSlotName )
{
	sal_uInt8 nResult = 0;
	if ( aSlotName.equalsAscii( "ExportTo" ) )
		nResult = EXPORT_REQUESTED;
	else if ( aSlotName.equalsAscii( "ExportToPDF" ) )
		nResult = EXPORT_REQUESTED | PDFEXPORT_REQUESTED;
	else if ( aSlotName.equalsAscii( "ExportDirectToPDF" ) )
		nResult = EXPORT_REQUESTED | PDFEXPORT_REQUESTED | PDFDIRECTEXPORT_REQUESTED;
	else if ( aSlotName.equalsAscii( "Save" ) )
		nResult = SAVE_REQUESTED;
	else if ( aSlotName.equalsAscii( "SaveAs" ) )
		nResult = SAVEAS_REQUESTED;
	else
		throw task::ErrorCodeIOException( ::rtl::OUString(),
											uno::Reference< uno::XInterface >(),
											ERRCODE_IO_INVALIDPARAMETER );

	return nResult;
}

//-------------------------------------------------------------------------
static sal_Int32 getMustFlags( sal_Int8 nStoreMode )
{
	return ( SFX_FILTER_EXPORT
			| ( ( ( nStoreMode & EXPORT_REQUESTED ) && !( nStoreMode & WIDEEXPORT_REQUESTED ) ) ? 0 : SFX_FILTER_IMPORT ) );
}

//-------------------------------------------------------------------------
static sal_Int32 getDontFlags( sal_Int8 nStoreMode )
{
	return ( SFX_FILTER_INTERNAL
			| SFX_FILTER_NOTINFILEDLG
			| ( ( ( nStoreMode & EXPORT_REQUESTED ) && !( nStoreMode & WIDEEXPORT_REQUESTED ) ) ? SFX_FILTER_IMPORT : 0 ) );
}

//=========================================================================
// class DocumentSettingsGuard
//=========================================================================

class DocumentSettingsGuard
{
    uno::Reference< beans::XPropertySet > m_xDocumentSettings;
    sal_Bool m_bPreserveReadOnly;
    sal_Bool m_bReadOnlySupported;

    sal_Bool m_bRestoreSettings;
public:
    DocumentSettingsGuard( const uno::Reference< frame::XModel >& xModel, sal_Bool bReadOnly, sal_Bool bRestore )
    : m_bPreserveReadOnly( sal_False )
    , m_bReadOnlySupported( sal_False )
    , m_bRestoreSettings( bRestore )
    {
        try
        {
            uno::Reference< lang::XMultiServiceFactory > xDocSettingsSupplier( xModel, uno::UNO_QUERY_THROW );
            m_xDocumentSettings.set( 
                xDocSettingsSupplier->createInstance(
                    ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.document.Settings" ) ) ),
                uno::UNO_QUERY_THROW );

            ::rtl::OUString aLoadReadonlyString( RTL_CONSTASCII_USTRINGPARAM( "LoadReadonly" ) );

            try
            {
                m_xDocumentSettings->getPropertyValue( aLoadReadonlyString ) >>= m_bPreserveReadOnly;
                m_xDocumentSettings->setPropertyValue( aLoadReadonlyString, uno::makeAny( bReadOnly ) );
                m_bReadOnlySupported = sal_True;
            }
            catch( uno::Exception& )
            {}
        }
        catch( uno::Exception& )
        {}

        if ( ( bReadOnly && !m_bReadOnlySupported ) )
            throw uno::RuntimeException(); // the user could provide the data, so it must be stored
    }

    ~DocumentSettingsGuard()
    {
        if ( m_bRestoreSettings )
        {
            ::rtl::OUString aLoadReadonlyString( RTL_CONSTASCII_USTRINGPARAM( "LoadReadonly" ) );

            try
            {
                if ( m_bReadOnlySupported )
                    m_xDocumentSettings->setPropertyValue( aLoadReadonlyString, uno::makeAny( m_bPreserveReadOnly ) );
            }
            catch( uno::Exception& )
            {
                OSL_ASSERT( "Unexpected exception!" );
            }
        }
    }
};
} // anonymous namespace

//=========================================================================
// class ModelData_Impl
//=========================================================================
class ModelData_Impl
{
	SfxStoringHelper* m_pOwner;
	uno::Reference< frame::XModel > m_xModel;
	uno::Reference< frame::XStorable > m_xStorable;
	uno::Reference< frame::XStorable2 > m_xStorable2;
	uno::Reference< util::XModifiable > m_xModifiable;

	::rtl::OUString m_aModuleName;
	::comphelper::SequenceAsHashMap* m_pDocumentPropsHM;
	::comphelper::SequenceAsHashMap* m_pModulePropsHM;

	::comphelper::SequenceAsHashMap m_aMediaDescrHM;

    sal_Bool m_bRecommendReadOnly;

public:
	ModelData_Impl( SfxStoringHelper& aOwner,
					const uno::Reference< frame::XModel >& xModel,
					const uno::Sequence< beans::PropertyValue >& aMediaDescr );

	~ModelData_Impl();

	void FreeDocumentProps();

	uno::Reference< frame::XModel > GetModel();
	uno::Reference< frame::XStorable > GetStorable();
	uno::Reference< frame::XStorable2 > GetStorable2();
	uno::Reference< util::XModifiable > GetModifiable();

	::comphelper::SequenceAsHashMap& GetMediaDescr() { return m_aMediaDescrHM; }

    sal_Bool IsRecommendReadOnly() { return m_bRecommendReadOnly; }

	const ::comphelper::SequenceAsHashMap& GetDocProps();

	::rtl::OUString GetModuleName();
	const ::comphelper::SequenceAsHashMap& GetModuleProps();

	void CheckInteractionHandler();


	::rtl::OUString GetDocServiceName();
	uno::Sequence< beans::PropertyValue > GetDocServiceDefaultFilterCheckFlags( sal_Int32 nMust, sal_Int32 nDont );
	uno::Sequence< beans::PropertyValue > GetDocServiceAnyFilter( sal_Int32 nMust, sal_Int32 nDont );
	uno::Sequence< beans::PropertyValue > GetPreselectedFilter_Impl( sal_Int8 nStoreMode );
	uno::Sequence< beans::PropertyValue > GetDocServiceDefaultFilter();

	sal_Bool ExecuteFilterDialog_Impl( const ::rtl::OUString& aFilterName );

	sal_Int8 CheckSaveAcceptable( sal_Int8 nCurStatus );
    sal_Int8 CheckStateForSave();

    sal_Int8 CheckFilter( const ::rtl::OUString& );

	sal_Bool CheckFilterOptionsDialogExistence();

	sal_Bool OutputFileDialog( sal_Int8 nStoreMode,
								const ::comphelper::SequenceAsHashMap& aPreselectedFilterPropsHM,
								sal_Bool bSetStandardName,
								::rtl::OUString& aSuggestedName,
                                sal_Bool bPreselectPassword,
								const ::rtl::OUString& aSuggestedDir,
								sal_Int16 nDialog,
								const ::rtl::OUString& rStandardDir,
								const ::com::sun::star::uno::Sequence< ::rtl::OUString >& rBlackList
								);

	sal_Bool ShowDocumentInfoDialog();

    ::rtl::OUString GetReccomendedDir( const ::rtl::OUString& aSuggestedDir,
                                       const sfx2::FileDialogHelper::Context& aCtxt );
    ::rtl::OUString GetReccomendedName( const ::rtl::OUString& aSuggestedName,
                                        const ::rtl::OUString& aTypeName );

};

//-------------------------------------------------------------------------
ModelData_Impl::ModelData_Impl( SfxStoringHelper& aOwner,
								const uno::Reference< frame::XModel >& xModel,
								const uno::Sequence< beans::PropertyValue >& aMediaDescr )
: m_pOwner( &aOwner )
, m_xModel( xModel )
, m_pDocumentPropsHM( NULL )
, m_pModulePropsHM( NULL )
, m_aMediaDescrHM( aMediaDescr )
, m_bRecommendReadOnly( sal_False )
{
	CheckInteractionHandler();
}

//-------------------------------------------------------------------------
ModelData_Impl::~ModelData_Impl()
{
	FreeDocumentProps();
	if ( m_pDocumentPropsHM )
		delete m_pDocumentPropsHM;

	if ( m_pModulePropsHM )
		delete m_pModulePropsHM;
}

//-------------------------------------------------------------------------
void ModelData_Impl::FreeDocumentProps()
{
	if ( m_pDocumentPropsHM )
	{
		delete m_pDocumentPropsHM;
		m_pDocumentPropsHM = NULL;
	}
}

//-------------------------------------------------------------------------
uno::Reference< frame::XModel > ModelData_Impl::GetModel()
{
	if ( !m_xModel.is() )
		throw uno::RuntimeException();

	return m_xModel;
}

//-------------------------------------------------------------------------
uno::Reference< frame::XStorable > ModelData_Impl::GetStorable()
{
	if ( !m_xStorable.is() )
	{
		m_xStorable = uno::Reference< frame::XStorable >( m_xModel, uno::UNO_QUERY );
		if ( !m_xStorable.is() )
			throw uno::RuntimeException();
	}

	return m_xStorable;
}

//-------------------------------------------------------------------------
uno::Reference< frame::XStorable2 > ModelData_Impl::GetStorable2()
{
	if ( !m_xStorable2.is() )
	{
		m_xStorable2 = uno::Reference< frame::XStorable2 >( m_xModel, uno::UNO_QUERY );
		if ( !m_xStorable2.is() )
			throw uno::RuntimeException();
	}

	return m_xStorable2;
}

//-------------------------------------------------------------------------
uno::Reference< util::XModifiable > ModelData_Impl::GetModifiable()
{
	if ( !m_xModifiable.is() )
	{
		m_xModifiable = uno::Reference< util::XModifiable >( m_xModel, uno::UNO_QUERY );
		if ( !m_xModifiable.is() )
			throw uno::RuntimeException();
	}

	return m_xModifiable;
}

//-------------------------------------------------------------------------
const ::comphelper::SequenceAsHashMap& ModelData_Impl::GetDocProps()
{
	if ( !m_pDocumentPropsHM )
		m_pDocumentPropsHM = new ::comphelper::SequenceAsHashMap( GetModel()->getArgs() );

	return *m_pDocumentPropsHM;
}

//-------------------------------------------------------------------------
::rtl::OUString ModelData_Impl::GetModuleName()
{
	if ( !m_aModuleName.getLength() )
	{
		m_aModuleName = m_pOwner->GetModuleManager()->identify(
												uno::Reference< uno::XInterface >( m_xModel, uno::UNO_QUERY ) );
        if ( !m_aModuleName.getLength() )
            throw uno::RuntimeException(); // TODO:
	}
	return m_aModuleName;
}

//-------------------------------------------------------------------------
const ::comphelper::SequenceAsHashMap& ModelData_Impl::GetModuleProps()
{
	if ( !m_pModulePropsHM )
	{
		uno::Sequence< beans::PropertyValue > aModuleProps;
		m_pOwner->GetNamedModuleManager()->getByName( GetModuleName() ) >>= aModuleProps;
        if ( !aModuleProps.getLength() )
            throw uno::RuntimeException(); // TODO;
		m_pModulePropsHM = new ::comphelper::SequenceAsHashMap( aModuleProps );
	}

	return *m_pModulePropsHM;
}

//-------------------------------------------------------------------------
::rtl::OUString ModelData_Impl::GetDocServiceName()
{
    return GetModuleProps().getUnpackedValueOrDefault(::rtl::OUString::createFromAscii( "ooSetupFactoryDocumentService" ), ::rtl::OUString());
}

//-------------------------------------------------------------------------
void ModelData_Impl::CheckInteractionHandler()
{
	::comphelper::SequenceAsHashMap::const_iterator aInteractIter =
			m_aMediaDescrHM.find( ::rtl::OUString::createFromAscii( "InteractionHandler" ) );

	if ( aInteractIter == m_aMediaDescrHM.end() )
	{
		try {
			m_aMediaDescrHM[ ::rtl::OUString::createFromAscii( "InteractionHandler" ) ]
				<<= uno::Reference< task::XInteractionHandler >(
							m_pOwner->GetServiceFactory()->createInstance(
											DEFINE_CONST_UNICODE("com.sun.star.task.InteractionHandler") ),
							uno::UNO_QUERY );
		}
		catch( uno::Exception& )
		{
		}
	}
	else
	{
		uno::Reference< task::XInteractionHandler > xInteract;
		DBG_ASSERT( ( aInteractIter->second >>= xInteract ) && xInteract.is(), "Broken interaction handler is provided!\n" );
	}
}

//-------------------------------------------------------------------------
uno::Sequence< beans::PropertyValue > ModelData_Impl::GetDocServiceDefaultFilter()
{
	uno::Sequence< beans::PropertyValue > aProps;

	::rtl::OUString aFilterName = GetModuleProps().getUnpackedValueOrDefault(
																::rtl::OUString::createFromAscii( "ooSetupFactoryDefaultFilter" ),
																::rtl::OUString() );

	m_pOwner->GetFilterConfiguration()->getByName( aFilterName ) >>= aProps;

	return aProps;
}

//-------------------------------------------------------------------------
uno::Sequence< beans::PropertyValue > ModelData_Impl::GetDocServiceDefaultFilterCheckFlags( sal_Int32 nMust,
																								sal_Int32 nDont )
{
	uno::Sequence< beans::PropertyValue > aFilterProps;
	uno::Sequence< beans::PropertyValue > aProps = GetDocServiceDefaultFilter();
	if ( aProps.getLength() )
	{
		::comphelper::SequenceAsHashMap aFiltHM( aProps );
		sal_Int32 nFlags = aFiltHM.getUnpackedValueOrDefault( ::rtl::OUString::createFromAscii( "Flags" ),
														(sal_Int32)0 );
		if ( ( ( nFlags & nMust ) == nMust ) && !( nFlags & nDont ) )
			aFilterProps = aProps;
	}

	return aFilterProps;
}


//-------------------------------------------------------------------------
uno::Sequence< beans::PropertyValue > ModelData_Impl::GetDocServiceAnyFilter( sal_Int32 nMust, sal_Int32 nDont )
{
	uno::Sequence< beans::NamedValue > aSearchRequest( 1 );
	aSearchRequest[0].Name = ::rtl::OUString::createFromAscii( "DocumentService" );
	aSearchRequest[0].Value <<= GetDocServiceName();

	return ::comphelper::MimeConfigurationHelper::SearchForFilter( m_pOwner->GetFilterQuery(), aSearchRequest, nMust, nDont );
}

//-------------------------------------------------------------------------
uno::Sequence< beans::PropertyValue > ModelData_Impl::GetPreselectedFilter_Impl( sal_Int8 nStoreMode )
{
	uno::Sequence< beans::PropertyValue > aFilterProps;

	sal_Int32 nMust = getMustFlags( nStoreMode );
	sal_Int32 nDont = getDontFlags( nStoreMode );

	if ( nStoreMode & PDFEXPORT_REQUESTED )
	{
		// Preselect PDF-Filter for EXPORT
		uno::Sequence< beans::NamedValue > aSearchRequest( 2 );
		aSearchRequest[0].Name = ::rtl::OUString::createFromAscii( "Type" );
		aSearchRequest[0].Value <<= ::rtl::OUString::createFromAscii( "pdf_Portable_Document_Format" );
		aSearchRequest[1].Name = ::rtl::OUString::createFromAscii( "DocumentService" );
		aSearchRequest[1].Value <<= GetDocServiceName();

		aFilterProps = ::comphelper::MimeConfigurationHelper::SearchForFilter( m_pOwner->GetFilterQuery(), aSearchRequest, nMust, nDont );
	}
	else
	{
		aFilterProps = GetDocServiceDefaultFilterCheckFlags( nMust, nDont );

		if ( !aFilterProps.getLength() )
		{
			// the default filter was not faund, use just the first acceptable one
			aFilterProps = GetDocServiceAnyFilter( nMust, nDont );
		}
	}

	return aFilterProps;
}

//-------------------------------------------------------------------------
sal_Bool ModelData_Impl::ExecuteFilterDialog_Impl( const ::rtl::OUString& aFilterName )
{
	sal_Bool bDialogUsed = sal_False;

	try {
		uno::Sequence < beans::PropertyValue > aProps;
	  	uno::Any aAny = m_pOwner->GetFilterConfiguration()->getByName( aFilterName );
	   	if ( aAny >>= aProps )
	   	{
	   		sal_Int32 nPropertyCount = aProps.getLength();
	   		for( sal_Int32 nProperty=0; nProperty < nPropertyCount; ++nProperty )
	   			if( aProps[nProperty].Name.equals( ::rtl::OUString::createFromAscii("UIComponent")) )
	   			{
					::rtl::OUString aServiceName;
	   			    aProps[nProperty].Value >>= aServiceName;
					if( aServiceName.getLength() )
					{
						uno::Reference< ui::dialogs::XExecutableDialog > xFilterDialog(
													m_pOwner->GetServiceFactory()->createInstance( aServiceName ), uno::UNO_QUERY );
						uno::Reference< beans::XPropertyAccess > xFilterProperties( xFilterDialog, uno::UNO_QUERY );

						if( xFilterDialog.is() && xFilterProperties.is() )
						{
							bDialogUsed = sal_True;

							uno::Reference< document::XExporter > xExporter( xFilterDialog, uno::UNO_QUERY );
							if( xExporter.is() )
								xExporter->setSourceDocument(
									uno::Reference< lang::XComponent >( GetModel(), uno::UNO_QUERY ) );

							uno::Sequence< beans::PropertyValue > aPropsForDialog;
							GetMediaDescr() >> aPropsForDialog;
							xFilterProperties->setPropertyValues( aPropsForDialog );

							if( xFilterDialog->execute() )
							{
								uno::Sequence< beans::PropertyValue > aPropsFromDialog =
																			xFilterProperties->getPropertyValues();
								for ( sal_Int32 nInd = 0; nInd < aPropsFromDialog.getLength(); nInd++ )
									GetMediaDescr()[aPropsFromDialog[nInd].Name] = aPropsFromDialog[nInd].Value;
							}
							else
							{
								throw task::ErrorCodeIOException( ::rtl::OUString(),
																	uno::Reference< uno::XInterface >(),
																	ERRCODE_IO_ABORT );
							}
						}
					}

					break;
				}
		}
	}
	catch( container::NoSuchElementException& )
	{
		// the filter name is unknown
		throw task::ErrorCodeIOException( ::rtl::OUString(),
											uno::Reference< uno::XInterface >(),
											ERRCODE_IO_INVALIDPARAMETER );
	}
    catch( task::ErrorCodeIOException& )
    {
        throw;
    }
	catch( uno::Exception& )
	{
	}

	return bDialogUsed;
}

//-------------------------------------------------------------------------
sal_Int8 ModelData_Impl::CheckSaveAcceptable( sal_Int8 nCurStatus )
{
	sal_Int8 nResult = nCurStatus;

	if ( nResult != STATUS_NO_ACTION && GetStorable()->hasLocation() )
	{
		// check whether save is acceptable by the configuration
		// it is done only for documents that have persistence already
		uno::Reference< uno::XInterface > xCommonConfig = ::comphelper::ConfigurationHelper::openConfig(
							m_pOwner->GetServiceFactory(),
							::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "/org.openoffice.Office.Common" ) ),
							::comphelper::ConfigurationHelper::E_STANDARD );
		if ( !xCommonConfig.is() )
			throw uno::RuntimeException(); // should the saving proceed as usual instead?

		try
		{
			sal_Bool bAlwaysSaveAs = sal_False;

			// the saving is acceptable
			// in case the configuration entry is not set or set to false
			// or in case of version creation
			::rtl::OUString aVersionCommentString = ::rtl::OUString::createFromAscii( "VersionComment" );
			if ( ( ::comphelper::ConfigurationHelper::readRelativeKey(
					xCommonConfig,
					::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Save/Document/" ) ),
					::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "AlwaysSaveAs" ) ) ) >>= bAlwaysSaveAs )
		  	&& bAlwaysSaveAs
			&& GetMediaDescr().find( aVersionCommentString ) == GetMediaDescr().end() )
			{
				// notify the user that SaveAs is going to be done
				String aString( SfxResId( STR_NEW_FILENAME_SAVE ) );
				Window* pWin = SfxStoringHelper::GetModelWindow( m_xModel );
				QueryBox aMessageBox( pWin, WB_OK_CANCEL | WB_DEF_OK, aString );
				if ( aMessageBox.Execute() == RET_OK )
					nResult = STATUS_SAVEAS;
				else
					nResult = STATUS_NO_ACTION;
			}
		}
		catch( uno::Exception& )
		{
			// impossibility to get the configuration access means normal saving flow for now
		}
	}

	return nResult;
}

//-------------------------------------------------------------------------
sal_Int8 ModelData_Impl::CheckStateForSave()
{
    // if the document is readonly or a new one a SaveAs operation must be used
    if ( !GetStorable()->hasLocation() || GetStorable()->isReadonly() )
		return STATUS_SAVEAS;

	// check acceptable entries for media descriptor
	sal_Bool bVersInfoNeedsStore = sal_False;
	::comphelper::SequenceAsHashMap aAcceptedArgs;

	::rtl::OUString aVersionCommentString = ::rtl::OUString::createFromAscii( "VersionComment" );
	::rtl::OUString aAuthorString = ::rtl::OUString::createFromAscii( "Author" );
	::rtl::OUString aInteractionHandlerString = ::rtl::OUString::createFromAscii( "InteractionHandler" );
	::rtl::OUString aStatusIndicatorString = ::rtl::OUString::createFromAscii( "StatusIndicator" );
	::rtl::OUString aFailOnWarningString = ::rtl::OUString::createFromAscii( "FailOnWarning" );

	if ( GetMediaDescr().find( aVersionCommentString ) != GetMediaDescr().end() )
	{
		bVersInfoNeedsStore = sal_True;
		aAcceptedArgs[ aVersionCommentString ] = GetMediaDescr()[ aVersionCommentString ];
	}
	if ( GetMediaDescr().find( aAuthorString ) != GetMediaDescr().end() )
		aAcceptedArgs[ aAuthorString ] = GetMediaDescr()[ aAuthorString ];
	if ( GetMediaDescr().find( aInteractionHandlerString ) != GetMediaDescr().end() )
		aAcceptedArgs[ aInteractionHandlerString ] = GetMediaDescr()[ aInteractionHandlerString ];
	if ( GetMediaDescr().find( aStatusIndicatorString ) != GetMediaDescr().end() )
		aAcceptedArgs[ aStatusIndicatorString ] = GetMediaDescr()[ aStatusIndicatorString ];
	if ( GetMediaDescr().find( aFailOnWarningString ) != GetMediaDescr().end() )
		aAcceptedArgs[ aFailOnWarningString ] = GetMediaDescr()[ aFailOnWarningString ];

	// remove unacceptable entry if there is any
	DBG_ASSERT( GetMediaDescr().size() == aAcceptedArgs.size(),
				"Unacceptable parameters are provided in Save request!\n" );
	if ( GetMediaDescr().size() != aAcceptedArgs.size() )
		GetMediaDescr() = aAcceptedArgs;

    // the document must be modified
    if ( !GetModifiable()->isModified() && !bVersInfoNeedsStore )
		return STATUS_NO_ACTION;

    // check that the old filter is acceptable
	::rtl::OUString aOldFilterName = GetDocProps().getUnpackedValueOrDefault(
													aFilterNameString,
													::rtl::OUString() );
    sal_Int8 nResult = CheckFilter( aOldFilterName );

	return nResult;
}

sal_Int8 ModelData_Impl::CheckFilter( const ::rtl::OUString& aFilterName )
{
    ::comphelper::SequenceAsHashMap aFiltPropsHM;
    sal_Int32 nFiltFlags = 0;
    if ( aFilterName.getLength() )
	{
        // get properties of filter
        uno::Sequence< beans::PropertyValue > aFilterProps;
        if ( aFilterName.getLength() )
            m_pOwner->GetFilterConfiguration()->getByName( aFilterName ) >>= aFilterProps;

        aFiltPropsHM = ::comphelper::SequenceAsHashMap( aFilterProps );
        nFiltFlags = aFiltPropsHM.getUnpackedValueOrDefault( ::rtl::OUString::createFromAscii( "Flags" ), (sal_Int32)0 );
	}

    // only a temporary solution until default filter retrieving feature is implemented
	// then GetDocServiceDefaultFilter() must be used
	::comphelper::SequenceAsHashMap aDefFiltPropsHM = GetDocServiceDefaultFilterCheckFlags( 3, 0 );
    sal_Int32 nDefFiltFlags = aDefFiltPropsHM.getUnpackedValueOrDefault( ::rtl::OUString::createFromAscii( "Flags" ), (sal_Int32)0 );

	// if the old filter is not acceptable
	// and there is no default filter or it is not acceptable for requested parameters then proceed with saveAs
    if ( ( !aFiltPropsHM.size() || !( nFiltFlags & SFX_FILTER_EXPORT ) )
	  && ( !aDefFiltPropsHM.size() || !( nDefFiltFlags & SFX_FILTER_EXPORT ) || nDefFiltFlags & SFX_FILTER_INTERNAL ) )
		return STATUS_SAVEAS;

	// so at this point there is either an acceptable old filter or default one
    if ( !aFiltPropsHM.size() || !( nFiltFlags & SFX_FILTER_EXPORT ) )
	{
		// so the default filter must be acceptable
		return STATUS_SAVEAS_STANDARDNAME;
	}
    else if ( ( !( nFiltFlags & SFX_FILTER_OWN ) || ( nFiltFlags & SFX_FILTER_ALIEN ) )
           && aDefFiltPropsHM.size()
		   && ( nDefFiltFlags & SFX_FILTER_EXPORT ) && !( nDefFiltFlags & SFX_FILTER_INTERNAL ))
	{
		// the default filter is acceptable and the old filter is alian one
		// so ask to make a saveAs operation
        ::rtl::OUString aUIName = aFiltPropsHM.getUnpackedValueOrDefault( ::rtl::OUString::createFromAscii( "UIName" ),
                                                                                ::rtl::OUString() );
        ::rtl::OUString aDefUIName = aDefFiltPropsHM.getUnpackedValueOrDefault( ::rtl::OUString::createFromAscii( "UIName" ),
                                                                                ::rtl::OUString() );
		::rtl::OUString aPreusedFilterName = GetDocProps().getUnpackedValueOrDefault(
													::rtl::OUString::createFromAscii( "PreusedFilterName" ),
													::rtl::OUString() );
        if ( !aPreusedFilterName.equals( aFilterName ) && !aUIName.equals( aDefUIName ) )
		{
            if ( !SfxStoringHelper::WarnUnacceptableFormat( GetModel(), aUIName, aDefUIName, sal_True ) )
				return STATUS_SAVEAS_STANDARDNAME;
		}
	}

	return STATUS_SAVE;
}

//-------------------------------------------------------------------------
sal_Bool ModelData_Impl::CheckFilterOptionsDialogExistence()
{
	uno::Sequence< beans::NamedValue > aSearchRequest( 1 );
	aSearchRequest[0].Name = ::rtl::OUString::createFromAscii( "DocumentService" );
	aSearchRequest[0].Value <<= GetDocServiceName();

	uno::Reference< container::XEnumeration > xFilterEnum =
									m_pOwner->GetFilterQuery()->createSubSetEnumerationByProperties( aSearchRequest );

	while ( xFilterEnum->hasMoreElements() )
	{
		uno::Sequence< beans::PropertyValue > pProps;
		if ( xFilterEnum->nextElement() >>= pProps )
		{
			::comphelper::SequenceAsHashMap aPropsHM( pProps );
			::rtl::OUString aUIServName = aPropsHM.getUnpackedValueOrDefault(
											::rtl::OUString::createFromAscii( "UIComponent" ),
											::rtl::OUString() );
			if ( aUIServName.getLength() )
				return sal_True;
		}
	}

	return sal_False;
}

//-------------------------------------------------------------------------
sal_Bool ModelData_Impl::OutputFileDialog( sal_Int8 nStoreMode,
											const ::comphelper::SequenceAsHashMap& aPreselectedFilterPropsHM,
											sal_Bool bSetStandardName,
											::rtl::OUString& aSuggestedName,
                                            sal_Bool bPreselectPassword,
											const ::rtl::OUString& aSuggestedDir,
											sal_Int16 nDialog,
											const ::rtl::OUString& rStandardDir,
											const ::com::sun::star::uno::Sequence< ::rtl::OUString >& rBlackList)
{
	sal_Bool bUseFilterOptions = sal_False;

	::comphelper::SequenceAsHashMap::const_iterator aOverwriteIter =
				GetMediaDescr().find( ::rtl::OUString::createFromAscii( "Overwrite" ) );

	// the file name must be specified if overwrite option is set
	if ( aOverwriteIter != GetMediaDescr().end() )
   		throw task::ErrorCodeIOException( ::rtl::OUString(),
											uno::Reference< uno::XInterface >(),
											ERRCODE_IO_INVALIDPARAMETER );

	// no target file name is specified
	// we need to show the file dialog

	// check if we have a filter which allows for filter options, so we need a corresponding checkbox in the dialog
	sal_Bool bAllowOptions = sal_False;

	// in case of Export, filter options dialog is used if available
	if( !( nStoreMode & EXPORT_REQUESTED ) || ( nStoreMode & WIDEEXPORT_REQUESTED ) )
		bAllowOptions = CheckFilterOptionsDialogExistence();

	// get the filename by dialog ...
	// create the file dialog
	sal_Int16  aDialogMode = bAllowOptions
        ? (com::sun::star::ui::dialogs::TemplateDescription::
           FILESAVE_AUTOEXTENSION_PASSWORD_FILTEROPTIONS)
        : (com::sun::star::ui::dialogs::TemplateDescription::
           FILESAVE_AUTOEXTENSION_PASSWORD);
	sal_Int64 aDialogFlags = 0;

	if( ( nStoreMode & EXPORT_REQUESTED ) && !( nStoreMode & WIDEEXPORT_REQUESTED ) )
	{
		if ( nStoreMode & PDFEXPORT_REQUESTED )
			aDialogMode = com::sun::star::ui::dialogs::TemplateDescription::
				FILESAVE_AUTOEXTENSION;
		else
			aDialogMode = com::sun::star::ui::dialogs::TemplateDescription::
				FILESAVE_AUTOEXTENSION_SELECTION;
		aDialogFlags = SFXWB_EXPORT;
	}

	sfx2::FileDialogHelper* pFileDlg = NULL;

	::rtl::OUString aDocServiceName = GetDocServiceName();
	DBG_ASSERT( aDocServiceName.getLength(), "No document service for this module set!" );

	sal_Int32 nMust = getMustFlags( nStoreMode );
	sal_Int32 nDont = getDontFlags( nStoreMode );
    sfx2::FileDialogHelper::Context eCtxt = sfx2::FileDialogHelper::UNKNOWN_CONTEXT;

	if ( ( nStoreMode & EXPORT_REQUESTED ) && !( nStoreMode & WIDEEXPORT_REQUESTED ) )
	{
		if ( ( nStoreMode & PDFEXPORT_REQUESTED ) && aPreselectedFilterPropsHM.size() )
		{
			// this is a PDF export
			// the filter options has been shown already
			::rtl::OUString aFilterUIName = aPreselectedFilterPropsHM.getUnpackedValueOrDefault(
														::rtl::OUString::createFromAscii( "UIName" ),
														::rtl::OUString() );

			pFileDlg = new sfx2::FileDialogHelper( aDialogMode, aDialogFlags, aFilterUIName, ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "pdf" ) ), rStandardDir, rBlackList );
			pFileDlg->SetCurrentFilter( aFilterUIName );
		}
		else
		{
			// This is the normal dialog
			pFileDlg = new sfx2::FileDialogHelper( aDialogMode, aDialogFlags, aDocServiceName, nDialog, nMust, nDont, rStandardDir, rBlackList );
		}

		if( aDocServiceName.equalsAscii( "com.sun.star.drawing.DrawingDocument" ) )
           	eCtxt = sfx2::FileDialogHelper::SD_EXPORT;
        if( aDocServiceName.equalsAscii( "com.sun.star.presentation.PresentationDocument" ) )
           	eCtxt = sfx2::FileDialogHelper::SI_EXPORT;
        if( aDocServiceName.equalsAscii( "com.sun.star.text.TextDocument" ) )
            eCtxt = sfx2::FileDialogHelper::SW_EXPORT;

        if ( eCtxt != sfx2::FileDialogHelper::UNKNOWN_CONTEXT )
           	pFileDlg->SetContext( eCtxt );

		pFileDlg->CreateMatcher( aDocServiceName );

		uno::Reference< ui::dialogs::XFilePicker > xFilePicker = pFileDlg->GetFilePicker();
		uno::Reference< ui::dialogs::XFilePickerControlAccess > xControlAccess =
		uno::Reference< ui::dialogs::XFilePickerControlAccess >( xFilePicker, uno::UNO_QUERY );

		if ( xControlAccess.is() )
		{
			::rtl::OUString aCtrlText = String( SfxResId( STR_EXPORTBUTTON ) );
			xControlAccess->setLabel( ui::dialogs::CommonFilePickerElementIds::PUSHBUTTON_OK, aCtrlText );

			aCtrlText = ::rtl::OUString( String( SfxResId( STR_LABEL_FILEFORMAT ) ) );
			xControlAccess->setLabel( ui::dialogs::CommonFilePickerElementIds::LISTBOX_FILTER_LABEL, aCtrlText );
		}
	}
	else
	{
		// This is the normal dialog
		pFileDlg = new sfx2::FileDialogHelper( aDialogMode, aDialogFlags, aDocServiceName, nDialog, nMust, nDont, rStandardDir, rBlackList );
		pFileDlg->CreateMatcher( aDocServiceName );
	}

    ::rtl::OUString aAdjustToType;

    if ( ( nStoreMode & EXPORT_REQUESTED ) && !( nStoreMode & WIDEEXPORT_REQUESTED ) )
    {
        // it is export, set the preselected filter
        ::rtl::OUString aFilterUIName = aPreselectedFilterPropsHM.getUnpackedValueOrDefault(
                                        ::rtl::OUString::createFromAscii( "UIName" ),
                                        ::rtl::OUString() );
        pFileDlg->SetCurrentFilter( aFilterUIName );
    }
    // it is no export, bSetStandardName == true means that user agreed to store document in the default (default default ;-)) format
    else if ( bSetStandardName || GetStorable()->hasLocation() )
    {
        uno::Sequence< beans::PropertyValue > aOldFilterProps;
        ::rtl::OUString aOldFilterName = GetDocProps().getUnpackedValueOrDefault(
                                                        aFilterNameString,
                                                        ::rtl::OUString() );

		if ( aOldFilterName.getLength() )
			m_pOwner->GetFilterConfiguration()->getByName( aOldFilterName ) >>= aOldFilterProps;

		::comphelper::SequenceAsHashMap aOldFiltPropsHM( aOldFilterProps );
		sal_Int32 nOldFiltFlags = aOldFiltPropsHM.getUnpackedValueOrDefault( ::rtl::OUString::createFromAscii( "Flags" ), (sal_Int32)0 );

		if ( bSetStandardName || ( nOldFiltFlags & nMust ) != nMust || nOldFiltFlags & nDont )
		{
            // the suggested type will be changed, the extension should be adjusted
            aAdjustToType = aPreselectedFilterPropsHM.getUnpackedValueOrDefault(
                                            ::rtl::OUString::createFromAscii( "Type" ),
                                            ::rtl::OUString() );

            ::rtl::OUString aFilterUIName = aPreselectedFilterPropsHM.getUnpackedValueOrDefault(
                                            ::rtl::OUString::createFromAscii( "UIName" ),
                                            ::rtl::OUString() );
            pFileDlg->SetCurrentFilter( aFilterUIName );
		}
		else
		{
			pFileDlg->SetCurrentFilter( aOldFiltPropsHM.getUnpackedValueOrDefault(
														::rtl::OUString::createFromAscii( "UIName" ),
														::rtl::OUString() ) );
		}
    }

    ::rtl::OUString aReccomendedDir = GetReccomendedDir( aSuggestedDir, eCtxt );
    if ( aReccomendedDir.getLength() )
        pFileDlg->SetDisplayDirectory( aReccomendedDir );
    ::rtl::OUString aReccomendedName = GetReccomendedName( aSuggestedName, aAdjustToType );
    if ( aReccomendedName.getLength() )
        pFileDlg->SetFileName( aReccomendedName );

	uno::Reference < view::XSelectionSupplier > xSel( GetModel()->getCurrentController(), uno::UNO_QUERY );
	if ( xSel.is() && xSel->getSelection().hasValue() )
		GetMediaDescr()[::rtl::OUString::createFromAscii( "SelectionOnly" )] <<= sal_True;

	// This is a temporary hardcoded solution must be removed when
	// dialogs do not need parameters in SidSet representation any more
	sal_uInt16 nSlotID = getSlotIDFromMode( nStoreMode );
    if ( !nSlotID )
        throw lang::IllegalArgumentException(); // TODO:

	// generate SidSet from MediaDescriptor and provide it into FileDialog
	// than merge changed SidSet back
	SfxAllItemSet aDialogParams( SFX_APP()->GetPool() );
	SfxItemSet* pDialogParams = &aDialogParams;
	TransformParameters( nSlotID,
						 GetMediaDescr().getAsConstPropertyValueList(),
						 aDialogParams,
						 NULL );

    const SfxPoolItem* pItem = NULL;
    if ( bPreselectPassword && aDialogParams.GetItemState( SID_ENCRYPTIONDATA, sal_True, &pItem ) != SFX_ITEM_SET )
    {
        // the file dialog preselects the password checkbox if the provided mediadescriptor has encryption data entry
        // after dialog execution the password interaction flag will be either removed or not
        aDialogParams.Put( SfxBoolItem( SID_PASSWORDINTERACTION, sal_True ) );
    }

    // aStringTypeFN is a pure output parameter, pDialogParams is an in/out parameter
    String aStringTypeFN;
	if ( pFileDlg->Execute( pDialogParams, aStringTypeFN ) != ERRCODE_NONE )
	{
		delete pFileDlg;
		throw task::ErrorCodeIOException( ::rtl::OUString(), uno::Reference< uno::XInterface >(), ERRCODE_IO_ABORT );
	}

    ::rtl::OUString aFilterName = aStringTypeFN;
    
    // the following two arguments can not be converted in MediaDescriptor,
    // so they should be removed from the ItemSet after retrieving
    SFX_ITEMSET_ARG( pDialogParams, pRecommendReadOnly, SfxBoolItem, SID_RECOMMENDREADONLY, sal_False );
    m_bRecommendReadOnly = ( pRecommendReadOnly && pRecommendReadOnly->GetValue() );
    pDialogParams->ClearItem( SID_RECOMMENDREADONLY );

	uno::Sequence< beans::PropertyValue > aPropsFromDialog;
	TransformItems( nSlotID, *pDialogParams, aPropsFromDialog, NULL );
    GetMediaDescr() << aPropsFromDialog;

	// get the path from the dialog
	INetURLObject aURL( pFileDlg->GetPath() );
	// the path should be provided outside since it might be used for further calls to the dialog
	aSuggestedName = aURL.GetName( INetURLObject::DECODE_WITH_CHARSET );

	// old filter options should be cleared in case different filter is used

	::rtl::OUString aFilterFromMediaDescr = GetMediaDescr().getUnpackedValueOrDefault(
													aFilterNameString,
													::rtl::OUString() );
	::rtl::OUString aOldFilterName = GetDocProps().getUnpackedValueOrDefault(
													aFilterNameString,
													::rtl::OUString() );
	if ( aFilterName.equals( aFilterFromMediaDescr ) )
	{
		// preserv current settings if any
		// if there no current settings and the name is the same
		// as old filter name use old filter settings

		if ( aFilterFromMediaDescr.equals( aOldFilterName ) )
		{
			::comphelper::SequenceAsHashMap::const_iterator aIter =
										GetDocProps().find( aFilterOptionsString );
			if ( aIter != GetDocProps().end()
			  && GetMediaDescr().find( aFilterOptionsString ) == GetMediaDescr().end() )
				GetMediaDescr()[aIter->first] = aIter->second;

			aIter = GetDocProps().find( aFilterDataString );
			if ( aIter != GetDocProps().end()
			  && GetMediaDescr().find( aFilterDataString ) == GetMediaDescr().end() )
				GetMediaDescr()[aIter->first] = aIter->second;
		}
	}
	else
	{
		GetMediaDescr().erase( aFilterDataString );
		GetMediaDescr().erase( aFilterOptionsString );

		if ( aFilterName.equals( aOldFilterName ) )
		{
			// merge filter option of the document filter

			::comphelper::SequenceAsHashMap::const_iterator aIter =
								GetDocProps().find( aFilterOptionsString );
			if ( aIter != GetDocProps().end() )
				GetMediaDescr()[aIter->first] = aIter->second;

			aIter = GetDocProps().find( aFilterDataString );
			if ( aIter != GetDocProps().end() )
				GetMediaDescr()[aIter->first] = aIter->second;
		}
	}

	uno::Reference< ui::dialogs::XFilePickerControlAccess > xExtFileDlg( pFileDlg->GetFilePicker(), uno::UNO_QUERY );
	if ( xExtFileDlg.is() )
	{
		if ( SfxStoringHelper::CheckFilterOptionsAppearence( m_pOwner->GetFilterConfiguration(), aFilterName ) )
			bUseFilterOptions = sal_True;

		if ( ( !( nStoreMode & EXPORT_REQUESTED ) || ( nStoreMode & WIDEEXPORT_REQUESTED ) ) && bUseFilterOptions )
		{
			try
			{
				// for exporters: always show dialog if format uses options
				// for save: show dialog if format uses options and no options given or if forced by user
				uno::Any aVal =
						xExtFileDlg->getValue( ui::dialogs::ExtendedFilePickerElementIds::CHECKBOX_FILTEROPTIONS, 0 );

				aVal >>= bUseFilterOptions;
				if ( !bUseFilterOptions )
					bUseFilterOptions =
					  ( GetMediaDescr().find( aFilterDataString ) == GetMediaDescr().end()
					  && GetMediaDescr().find( aFilterOptionsString ) == GetMediaDescr().end() );
			}
			catch( lang::IllegalArgumentException& )
			{}
		}
	}

	delete pFileDlg;

	// merge in results of the dialog execution
	GetMediaDescr()[::rtl::OUString::createFromAscii( "URL" )] <<=
												::rtl::OUString( aURL.GetMainURL( INetURLObject::NO_DECODE ));
	GetMediaDescr()[aFilterNameString] <<= aFilterName;

	return bUseFilterOptions;
}

//-------------------------------------------------------------------------
sal_Bool ModelData_Impl::ShowDocumentInfoDialog()
{
	sal_Bool bDialogUsed = sal_False;

	try {
		uno::Reference< frame::XController > xController = GetModel()->getCurrentController();
		if ( xController.is() )
		{
			uno::Reference< frame::XDispatchProvider > xFrameDispatch( xController->getFrame(), uno::UNO_QUERY );
			if ( xFrameDispatch.is() )
			{
				util::URL aURL;
				aURL.Complete = ::rtl::OUString::createFromAscii( ".uno:SetDocumentProperties" );

				uno::Reference< util::XURLTransformer > xTransformer(
							m_pOwner->GetServiceFactory()->createInstance(
											DEFINE_CONST_UNICODE("com.sun.star.util.URLTransformer") ),
							uno::UNO_QUERY );
				if ( xTransformer.is() && xTransformer->parseStrict( aURL ) )
				{
					uno::Reference< frame::XDispatch > xDispatch = xFrameDispatch->queryDispatch(
																				aURL,
																				::rtl::OUString::createFromAscii( "_self" ),
																				0 );
					if ( xDispatch.is() )
					{
						xDispatch->dispatch( aURL, uno::Sequence< beans::PropertyValue >() );
						bDialogUsed = sal_True;
					}
				}
			}
		}
	}
	catch ( uno::Exception& )
	{
	}

	return bDialogUsed;
}

//-------------------------------------------------------------------------
::rtl::OUString ModelData_Impl::GetReccomendedDir( const ::rtl::OUString& aSuggestedDir, const sfx2::FileDialogHelper::Context& aCtxt )
{
    ::rtl::OUString aReccomendedDir;

	if ( ( aSuggestedDir.getLength() || GetStorable()->hasLocation() )
	  && !GetMediaDescr().getUnpackedValueOrDefault( ::rtl::OUString::createFromAscii( "RepairPackage" ),
	  																sal_False ) )
	{
        INetURLObject aLocation;
        if ( aSuggestedDir.getLength() )
            aLocation = INetURLObject( aSuggestedDir );
        else
        {
            ::rtl::OUString aOldURL = GetStorable()->getLocation();
            if ( aOldURL.getLength() )
            {
                INetURLObject aTmp( aOldURL );
                if ( aTmp.removeSegment() )
                    aLocation = aTmp;
            }

            if ( aLocation.HasError() )
                aLocation = INetURLObject( SvtPathOptions().GetWorkPath() );
        }

	    aLocation.setFinalSlash();
        if ( !aLocation.HasError() )
            aReccomendedDir = aLocation.GetMainURL( INetURLObject::NO_DECODE );
	}
	else
	{
        // pb: set graphic path if context == SD_EXPORT or SI_EXPORT else work path
        ::rtl::OUString aConfigSuggestion( ( aCtxt != sfx2::FileDialogHelper::UNKNOWN_CONTEXT ) ? SvtPathOptions().GetGraphicPath() : SvtPathOptions().GetWorkPath() );
        aReccomendedDir = INetURLObject( aConfigSuggestion ).GetMainURL( INetURLObject::NO_DECODE );
	}

    return aReccomendedDir;
}

//-------------------------------------------------------------------------
::rtl::OUString ModelData_Impl::GetReccomendedName( const ::rtl::OUString& aSuggestedName, const ::rtl::OUString& aTypeName )
{
	// the last used name might be provided by aSuggestedName from the old selection, or from the MediaDescriptor
    ::rtl::OUString aReccomendedName;

    if ( aSuggestedName.getLength() )
        aReccomendedName = aSuggestedName;
    else
    {
        aReccomendedName = INetURLObject( GetStorable()->getLocation() ).GetName( INetURLObject::DECODE_WITH_CHARSET );
        if ( !aReccomendedName.getLength() )
        {
            try {
                uno::Reference< frame::XTitle > xTitle( GetModel(), uno::UNO_QUERY_THROW );
                aReccomendedName = xTitle->getTitle();
            } catch( uno::Exception& ) {}
        }

		if ( aReccomendedName.getLength() && aTypeName.getLength() )
        {
            // adjust the extension to the type
            uno::Reference< container::XNameAccess > xTypeDetection = uno::Reference< container::XNameAccess >(
                m_pOwner->GetServiceFactory()->createInstance( ::rtl::OUString::createFromAscii( "com.sun.star.document.TypeDetection" ) ),
                uno::UNO_QUERY );
            if ( xTypeDetection.is() )
            {
                INetURLObject aObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "file:///c:/" ) ) + aReccomendedName );

                uno::Sequence< beans::PropertyValue > aTypeNameProps;
                if ( ( xTypeDetection->getByName( aTypeName ) >>= aTypeNameProps ) && aTypeNameProps.getLength() )
                {
                    ::comphelper::SequenceAsHashMap aTypeNamePropsHM( aTypeNameProps );
                    uno::Sequence< ::rtl::OUString > aExtensions = aTypeNamePropsHM.getUnpackedValueOrDefault(
                                                    ::rtl::OUString::createFromAscii( "Extensions" ),
                                                    ::uno::Sequence< ::rtl::OUString >() );
                    if ( aExtensions.getLength() )
                        aObj.SetExtension( aExtensions[0] );
                }

				aReccomendedName = aObj.GetName( INetURLObject::DECODE_WITH_CHARSET );
			}
		}
    }

    return aReccomendedName;
}


//=========================================================================
// class SfxStoringHelper
//=========================================================================
//-------------------------------------------------------------------------
SfxStoringHelper::SfxStoringHelper( const uno::Reference< lang::XMultiServiceFactory >& xFactory )
: m_xFactory( xFactory )
{
}

//-------------------------------------------------------------------------
uno::Reference< lang::XMultiServiceFactory > SfxStoringHelper::GetServiceFactory()
{
	if ( !m_xFactory.is() )
	{
		m_xFactory = ::comphelper::getProcessServiceFactory();
        if( !m_xFactory.is() )
            throw uno::RuntimeException(); // TODO:
	}

	return m_xFactory;
}

//-------------------------------------------------------------------------
uno::Reference< container::XNameAccess > SfxStoringHelper::GetFilterConfiguration()
{
	if ( !m_xFilterCFG.is() )
	{
		m_xFilterCFG = uno::Reference< container::XNameAccess >(
			GetServiceFactory()->createInstance( ::rtl::OUString::createFromAscii( "com.sun.star.document.FilterFactory" ) ),
			uno::UNO_QUERY );

		if ( !m_xFilterCFG.is() )
			throw uno::RuntimeException();
	}

	return m_xFilterCFG;
}

//-------------------------------------------------------------------------
uno::Reference< container::XContainerQuery > SfxStoringHelper::GetFilterQuery()
{
	if ( !m_xFilterQuery.is() )
	{
		m_xFilterQuery = uno::Reference< container::XContainerQuery >( GetFilterConfiguration(), uno::UNO_QUERY );
		if ( !m_xFilterQuery.is() )
			throw uno::RuntimeException();
	}

	return m_xFilterQuery;
}

//-------------------------------------------------------------------------
uno::Reference< ::com::sun::star::frame::XModuleManager > SfxStoringHelper::GetModuleManager()
{
	if ( !m_xModuleManager.is() )
	{
		m_xModuleManager = uno::Reference< ::com::sun::star::frame::XModuleManager >(
			GetServiceFactory()->createInstance(
					::rtl::OUString::createFromAscii( "com.sun.star.frame.ModuleManager" ) ),
			uno::UNO_QUERY );

		if ( !m_xModuleManager.is() )
			throw uno::RuntimeException();
	}

	return m_xModuleManager;
}

//-------------------------------------------------------------------------
uno::Reference< container::XNameAccess > SfxStoringHelper::GetNamedModuleManager()
{
	if ( !m_xNamedModManager.is() )
	{
		m_xNamedModManager = uno::Reference< container::XNameAccess >( GetModuleManager(), uno::UNO_QUERY );
		if ( !m_xNamedModManager.is() )
			throw uno::RuntimeException();
	}

	return m_xNamedModManager;
}

//-------------------------------------------------------------------------
sal_Bool SfxStoringHelper::GUIStoreModel( const uno::Reference< frame::XModel >& xModel,
											const ::rtl::OUString& aSlotName,
											uno::Sequence< beans::PropertyValue >& aArgsSequence,
                                            sal_Bool bPreselectPassword,
		                                    ::rtl::OUString aSuggestedName,
                                            sal_uInt16 nDocumentSignatureState )
{
	ModelData_Impl aModelData( *this, xModel, aArgsSequence );

	sal_Bool bDialogUsed = sal_False;

	INetURLObject aURL;

	sal_Bool bSetStandardName = sal_False; // can be set only for SaveAs

	// parse the slot name
	sal_Int8 nStoreMode = getStoreModeFromSlotName( aSlotName );
    sal_Int8 nStatusSave = STATUS_NO_ACTION;

    // handle the special cases
    if ( nStoreMode & SAVEAS_REQUESTED )
    {
        ::comphelper::SequenceAsHashMap::const_iterator aSaveToIter =
                        aModelData.GetMediaDescr().find( ::rtl::OUString::createFromAscii( "SaveTo" ) );
        if ( aSaveToIter != aModelData.GetMediaDescr().end() )
        {
            sal_Bool bWideExport = sal_False;
            aSaveToIter->second >>= bWideExport;
            if ( bWideExport )
                nStoreMode = EXPORT_REQUESTED | WIDEEXPORT_REQUESTED;
        }

        // if saving is not acceptable the warning must be shown even in case of SaveAs operation
        if ( ( nStoreMode & SAVEAS_REQUESTED ) && aModelData.CheckSaveAcceptable( STATUS_SAVEAS ) == STATUS_NO_ACTION )
            throw task::ErrorCodeIOException( ::rtl::OUString(), uno::Reference< uno::XInterface >(), ERRCODE_IO_ABORT );
    }
    else if ( nStoreMode & SAVE_REQUESTED )
    {
        // if saving is not acceptable by the configuration the warning must be shown
        nStatusSave = aModelData.CheckSaveAcceptable( STATUS_SAVE );

        if ( nStatusSave == STATUS_NO_ACTION )
            throw task::ErrorCodeIOException( ::rtl::OUString(), uno::Reference< uno::XInterface >(), ERRCODE_IO_ABORT );
        else if ( nStatusSave == STATUS_SAVE )
        {
            // check whether it is possible to use save operation
            nStatusSave = aModelData.CheckStateForSave();
        }

        if ( nStatusSave == STATUS_NO_ACTION )
        {
            throw task::ErrorCodeIOException( ::rtl::OUString(), uno::Reference< uno::XInterface >(), ERRCODE_IO_ABORT );
        }
        else if ( nStatusSave != STATUS_SAVE )
        {
            // this should be a usual SaveAs operation
            nStoreMode = SAVEAS_REQUESTED;
            if ( nStatusSave == STATUS_SAVEAS_STANDARDNAME )
                bSetStandardName = sal_True;
        }
    }

    if ( !( nStoreMode & EXPORT_REQUESTED ) )
    {
        // if it is no export, warn user that the signature will be removed
        if (  SIGNATURESTATE_SIGNATURES_OK == nDocumentSignatureState
           || SIGNATURESTATE_SIGNATURES_INVALID == nDocumentSignatureState
           || SIGNATURESTATE_SIGNATURES_NOTVALIDATED == nDocumentSignatureState
           || SIGNATURESTATE_SIGNATURES_PARTIAL_OK == nDocumentSignatureState)
        {
            if ( QueryBox( NULL, SfxResId( RID_XMLSEC_QUERY_LOSINGSIGNATURE ) ).Execute() != RET_YES )
            {
                // the user has decided not to store the document
                throw task::ErrorCodeIOException( ::rtl::OUString(),
                                                  uno::Reference< uno::XInterface >(),
                                                  ERRCODE_IO_ABORT );
            }
        }
    }

    if ( nStoreMode & SAVE_REQUESTED && nStatusSave == STATUS_SAVE )
    {
        // Document properties can contain streams that should be freed before storing
        aModelData.FreeDocumentProps();

        if ( aModelData.GetStorable2().is() )
        {
            try
            {
                aModelData.GetStorable2()->storeSelf( aModelData.GetMediaDescr().getAsConstPropertyValueList() );
            }
            catch( lang::IllegalArgumentException& )
            {
                OSL_ENSURE( sal_False, "ModelData didn't handle illegal parameters, all the parameters are ignored!\n" );
                aModelData.GetStorable()->store();
            }
        }
        else
        {
            OSL_ENSURE( sal_False, "XStorable2 is not supported by the model!\n" );
            aModelData.GetStorable()->store();
        }

        return sal_False;
    }

	// preselect a filter for the storing process
	uno::Sequence< beans::PropertyValue > aFilterProps = aModelData.GetPreselectedFilter_Impl( nStoreMode );

	DBG_ASSERT( aFilterProps.getLength(), "No filter for storing!\n" );
	if ( !aFilterProps.getLength() )
		throw task::ErrorCodeIOException( ::rtl::OUString(),
											uno::Reference< uno::XInterface >(),
											ERRCODE_IO_INVALIDPARAMETER );

	::comphelper::SequenceAsHashMap aFilterPropsHM( aFilterProps );
	::rtl::OUString aFilterName = aFilterPropsHM.getUnpackedValueOrDefault(
																	::rtl::OUString::createFromAscii( "Name" ),
																	::rtl::OUString() );

	::rtl::OUString aFilterFromMediaDescr = aModelData.GetMediaDescr().getUnpackedValueOrDefault(
													aFilterNameString,
													::rtl::OUString() );
	::rtl::OUString aOldFilterName = aModelData.GetDocProps().getUnpackedValueOrDefault(
													aFilterNameString,
													::rtl::OUString() );

	sal_Bool bUseFilterOptions = sal_False;
	::comphelper::SequenceAsHashMap::const_iterator aFileNameIter = aModelData.GetMediaDescr().find( ::rtl::OUString::createFromAscii( "URL" ) );

	if ( ( nStoreMode & EXPORT_REQUESTED ) && ( nStoreMode & PDFEXPORT_REQUESTED ) && !( nStoreMode & PDFDIRECTEXPORT_REQUESTED ) )
	{
		// this is PDF export, the filter options dialog should be shown before the export
		aModelData.GetMediaDescr()[aFilterNameString] <<= aFilterName;
		if ( aModelData.GetMediaDescr().find( aFilterFlagsString ) == aModelData.GetMediaDescr().end()
		  && aModelData.GetMediaDescr().find( aFilterOptionsString ) == aModelData.GetMediaDescr().end()
		  && aModelData.GetMediaDescr().find( aFilterDataString ) == aModelData.GetMediaDescr().end() )
		{
			// execute filter options dialog since no options are set in the media descriptor
			if ( aModelData.ExecuteFilterDialog_Impl( aFilterName ) )
				bDialogUsed = sal_True;
		}
	}

	if ( aFileNameIter == aModelData.GetMediaDescr().end() )
	{
		sal_Int16 nDialog = SFX2_IMPL_DIALOG_CONFIG;
		::comphelper::SequenceAsHashMap::const_iterator aDlgIter =
			aModelData.GetMediaDescr().find( ::rtl::OUString::createFromAscii( "UseSystemDialog" ) );
		if ( aDlgIter != aModelData.GetMediaDescr().end() )
		{
			sal_Bool bUseSystemDialog = sal_True;
			if ( aDlgIter->second >>= bUseSystemDialog )
			{
				if ( bUseSystemDialog )
					nDialog = SFX2_IMPL_DIALOG_SYSTEM;
				else
					nDialog = SFX2_IMPL_DIALOG_OOO;
			}
		}

        // The Dispatch supports parameter FolderName that overwrites SuggestedSaveAsDir
        ::rtl::OUString aSuggestedDir = aModelData.GetMediaDescr().getUnpackedValueOrDefault( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FolderName" ) ), ::rtl::OUString() );
        if ( !aSuggestedDir.getLength() )
        {
		    aSuggestedDir = aModelData.GetMediaDescr().getUnpackedValueOrDefault( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "SuggestedSaveAsDir" ) ), ::rtl::OUString() );
            if ( !aSuggestedDir.getLength() )
		        aSuggestedDir = aModelData.GetDocProps().getUnpackedValueOrDefault( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "SuggestedSaveAsDir" ) ), ::rtl::OUString() );
        }

	aSuggestedName = aModelData.GetMediaDescr().getUnpackedValueOrDefault( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "SuggestedSaveAsName" ) ), ::rtl::OUString() );
        if ( !aSuggestedName.getLength() )
		    aSuggestedName = aModelData.GetDocProps().getUnpackedValueOrDefault( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "SuggestedSaveAsName" ) ), ::rtl::OUString() );

		::rtl::OUString sStandardDir;
		::comphelper::SequenceAsHashMap::const_iterator aStdDirIter =
			aModelData.GetMediaDescr().find( ::rtl::OUString::createFromAscii( "StandardDir" ) );
		if ( aStdDirIter != aModelData.GetMediaDescr().end() )
			aStdDirIter->second >>= sStandardDir;

		::com::sun::star::uno::Sequence< ::rtl::OUString >	aBlackList;

		::comphelper::SequenceAsHashMap::const_iterator aBlackListIter =
			aModelData.GetMediaDescr().find( ::rtl::OUString::createFromAscii( "BlackList" ) );
		if ( aBlackListIter != aModelData.GetMediaDescr().end() )
			aBlackListIter->second >>= aBlackList;

        sal_Bool bExit = sal_False;
        while ( !bExit )
        {
            bUseFilterOptions = aModelData.OutputFileDialog( nStoreMode, aFilterProps, bSetStandardName, aSuggestedName, bPreselectPassword, aSuggestedDir, nDialog, sStandardDir, aBlackList );

			// in case the dialog is opend a second time the folder should be the same as before, not what was handed over by parameters
			aSuggestedDir = ::rtl::OUString();
            if ( nStoreMode == SAVEAS_REQUESTED )
            {
                // in case of saving check filter for possible alien warning
                ::rtl::OUString aSelFilterName = aModelData.GetMediaDescr().getUnpackedValueOrDefault(
                                                                                aFilterNameString,
                                                                                ::rtl::OUString() );
                sal_Int8 nStatusFilterSave = aModelData.CheckFilter( aSelFilterName );
                if ( nStatusFilterSave == STATUS_SAVEAS_STANDARDNAME )
                {
                    // switch to best filter
                    bSetStandardName = sal_True;
                }
                else if ( nStatusFilterSave == STATUS_SAVE )
                {
                    // user confirmed alien filter or "good" filter is used
                    bExit = sal_True;
                }
            }
            else
                bExit = sal_True;
        }

		bDialogUsed = sal_True;
		aFileNameIter = aModelData.GetMediaDescr().find( ::rtl::OUString::createFromAscii( "URL" ) );
	}
	else
	{
		// the target file name is provided so check if new filter options
		// are provided or old options can be used
		if ( aFilterFromMediaDescr.equals( aOldFilterName ) )
		{
			::comphelper::SequenceAsHashMap::const_iterator aIter =
											aModelData.GetDocProps().find( aFilterOptionsString );
			if ( aIter != aModelData.GetDocProps().end()
			  && aModelData.GetMediaDescr().find( aFilterOptionsString ) == aModelData.GetMediaDescr().end() )
				aModelData.GetMediaDescr()[aIter->first] = aIter->second;

			aIter = aModelData.GetDocProps().find( aFilterDataString );
			if ( aIter != aModelData.GetDocProps().end()
			  && aModelData.GetMediaDescr().find( aFilterDataString ) == aModelData.GetMediaDescr().end() )
				aModelData.GetMediaDescr()[aIter->first] = aIter->second;
		}
	}

	if ( aFileNameIter != aModelData.GetMediaDescr().end() )
	{
		::rtl::OUString aFileName;
		aFileNameIter->second >>= aFileName;
		aURL.SetURL( aFileName );
		DBG_ASSERT( aURL.GetProtocol() != INET_PROT_NOT_VALID, "Illegal URL!" );

		::comphelper::SequenceAsHashMap::const_iterator aIter =
								aModelData.GetMediaDescr().find( aFilterNameString );

		if ( aIter != aModelData.GetMediaDescr().end() )
			aIter->second >>= aFilterName;
		else
			aModelData.GetMediaDescr()[aFilterNameString] <<= aFilterName;

		DBG_ASSERT( aFilterName.getLength(), "Illegal filter!" );
	}
	else
	{
		DBG_ASSERT( sal_False, "This code must be unreachable!\n" );
		throw task::ErrorCodeIOException( ::rtl::OUString(),
											uno::Reference< uno::XInterface >(),
											ERRCODE_IO_INVALIDPARAMETER );
	}

	::comphelper::SequenceAsHashMap::const_iterator aIter =
							aModelData.GetMediaDescr().find( ::rtl::OUString::createFromAscii( "FilterFlags" ) );
	sal_Bool bFilterFlagsSet = ( aIter != aModelData.GetMediaDescr().end() );

	if( !( nStoreMode & PDFEXPORT_REQUESTED ) && !bFilterFlagsSet
		&& ( ( nStoreMode & EXPORT_REQUESTED ) || bUseFilterOptions ) )
	{
		// execute filter options dialog
		if ( aModelData.ExecuteFilterDialog_Impl( aFilterName ) )
			bDialogUsed = sal_True;
	}

	// so the arguments will not change any more and can be stored to the main location
	aArgsSequence = aModelData.GetMediaDescr().getAsConstPropertyValueList();

	// store the document and handle it's docinfo
	SvtSaveOptions aOptions;

    DocumentSettingsGuard aSettingsGuard( aModelData.GetModel(), aModelData.IsRecommendReadOnly(), nStoreMode & EXPORT_REQUESTED );

    OSL_ENSURE( aModelData.GetMediaDescr().find( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Password" ) ) ) == aModelData.GetMediaDescr().end(), "The Password property of MediaDescriptor should not be used here!" );
	if ( aOptions.IsDocInfoSave()
	  && ( !aModelData.GetStorable()->hasLocation()
		  || INetURLObject( aModelData.GetStorable()->getLocation() ) != aURL ) )
	{
		// this is defenitly not a Save operation
		// so the document info can be updated

		// on export document info must be preserved
        uno::Reference<document::XDocumentInfoSupplier> xDIS(
            aModelData.GetModel(), uno::UNO_QUERY_THROW);
        uno::Reference<util::XCloneable> xCloneable(
            xDIS->getDocumentInfo(), uno::UNO_QUERY_THROW);
        uno::Reference<document::XDocumentInfo> xOldDocInfo(
            xCloneable->createClone(), uno::UNO_QUERY_THROW);

		// use dispatch API to show document info dialog
		if ( aModelData.ShowDocumentInfoDialog() )
			bDialogUsed = sal_True;
		else
		{
			DBG_ERROR( "Can't execute document info dialog!\n" );
		}

		try {
			// Document properties can contain streams that should be freed before storing
			aModelData.FreeDocumentProps();
			if ( ( nStoreMode & EXPORT_REQUESTED ) )
				aModelData.GetStorable()->storeToURL( aURL.GetMainURL( INetURLObject::NO_DECODE ), aArgsSequence );
			else
				aModelData.GetStorable()->storeAsURL( aURL.GetMainURL( INetURLObject::NO_DECODE ), aArgsSequence );
		}
		catch( uno::Exception& )
		{
			if ( ( nStoreMode & EXPORT_REQUESTED ) )
				SetDocInfoState( aModelData.GetModel(), xOldDocInfo, sal_True );

			throw;
		}

		if ( ( nStoreMode & EXPORT_REQUESTED ) )
			SetDocInfoState( aModelData.GetModel(), xOldDocInfo, sal_True );
	}
	else
	{
		// Document properties can contain streams that should be freed before storing
		aModelData.FreeDocumentProps();

		// this is actually a save operation with different parameters
		// so storeTo or storeAs without DocInfo operations are used
		if ( ( nStoreMode & EXPORT_REQUESTED ) )
			aModelData.GetStorable()->storeToURL( aURL.GetMainURL( INetURLObject::NO_DECODE ), aArgsSequence );
		else
			aModelData.GetStorable()->storeAsURL( aURL.GetMainURL( INetURLObject::NO_DECODE ), aArgsSequence );
	}

	return bDialogUsed;
}

//-------------------------------------------------------------------------
// static
sal_Bool SfxStoringHelper::CheckFilterOptionsAppearence(
													const uno::Reference< container::XNameAccess >& xFilterCFG,
													const ::rtl::OUString& aFilterName )
{
	sal_Bool bUseFilterOptions = sal_False;

	DBG_ASSERT( xFilterCFG.is(), "No filter configuration!\n" );
	if( xFilterCFG.is() )
	{
		try {
	   		uno::Sequence < beans::PropertyValue > aProps;
			uno::Any aAny = xFilterCFG->getByName( aFilterName );
	   		if ( aAny >>= aProps )
	   		{
				::comphelper::SequenceAsHashMap aPropsHM( aProps );
	   			::rtl::OUString aServiceName = aPropsHM.getUnpackedValueOrDefault(
													::rtl::OUString::createFromAscii( "UIComponent" ),
													::rtl::OUString() );
				if( aServiceName.getLength() )
				   	bUseFilterOptions = sal_True;
			}
		}
		catch( uno::Exception& )
		{
		}
	}

	return bUseFilterOptions;
}

//-------------------------------------------------------------------------
// static
void SfxStoringHelper::SetDocInfoState(
        const uno::Reference< frame::XModel >& xModel,
        const uno::Reference< document::XDocumentInfo >& i_xOldDocInfo,
		sal_Bool bNoModify )
{
	uno::Reference< document::XDocumentInfoSupplier > xModelDocInfoSupplier( xModel, uno::UNO_QUERY );
    if ( !xModelDocInfoSupplier.is() )
        throw uno::RuntimeException(); // TODO:

    uno::Reference< document::XDocumentInfo > xDocInfoToFill = xModelDocInfoSupplier->getDocumentInfo();
	uno::Reference< beans::XPropertySet > xPropSet( i_xOldDocInfo,
        uno::UNO_QUERY_THROW );

	uno::Reference< util::XModifiable > xModifiable( xModel, uno::UNO_QUERY );
	if ( bNoModify && !xModifiable.is() )
		throw uno::RuntimeException();

	sal_Bool bIsModified = bNoModify && xModifiable->isModified();

    try
    {
        uno::Reference< beans::XPropertySet > xSet( xDocInfoToFill, uno::UNO_QUERY );
        uno::Reference< beans::XPropertyContainer > xContainer( xSet, uno::UNO_QUERY );
        uno::Reference< beans::XPropertySetInfo > xSetInfo = xSet->getPropertySetInfo();
        uno::Sequence< beans::Property > lProps = xSetInfo->getProperties();
        const beans::Property* pProps = lProps.getConstArray();
        sal_Int32 c = lProps.getLength();
        sal_Int32 i = 0;
        for (i=0; i<c; ++i)
        {
            uno::Any aValue = xPropSet->getPropertyValue( pProps[i].Name );
            if ( pProps[i].Attributes & ::com::sun::star::beans::PropertyAttribute::REMOVABLE )
                // QUESTION: DefaultValue?!
                xContainer->addProperty( pProps[i].Name, pProps[i].Attributes, aValue );
            try
            {
                // it is possible that the propertysets from XML and binary files differ; we shouldn't break then
                xSet->setPropertyValue( pProps[i].Name, aValue );
            }
            catch ( uno::Exception& ) {}
        }

        sal_Int16 nCount = i_xOldDocInfo->getUserFieldCount();
        sal_Int16 nSupportedCount = xDocInfoToFill->getUserFieldCount();
        for ( sal_Int16 nInd = 0; nInd < nCount && nInd < nSupportedCount; nInd++ )
        {
            ::rtl::OUString aPropName = i_xOldDocInfo->getUserFieldName( nInd );
            xDocInfoToFill->setUserFieldName( nInd, aPropName );
            ::rtl::OUString aPropVal = i_xOldDocInfo->getUserFieldValue( nInd );
            xDocInfoToFill->setUserFieldValue( nInd, aPropVal );
        }
    }
    catch ( uno::Exception& ) {}

	// set the modified flag back if required
	if ( bNoModify && bIsModified != xModifiable->isModified() )
		xModifiable->setModified( bIsModified );
}

//-------------------------------------------------------------------------
// static
sal_Bool SfxStoringHelper::WarnUnacceptableFormat( const uno::Reference< frame::XModel >& xModel,
													::rtl::OUString aOldUIName,
													::rtl::OUString /*aDefUIName*/,
													sal_Bool /*bCanProceedFurther*/ )
{
    if ( !SvtSaveOptions().IsWarnAlienFormat() )
        return sal_True;

	Window* pWin = SfxStoringHelper::GetModelWindow( xModel );
    SfxAlienWarningDialog aDlg( pWin, aOldUIName );

    return aDlg.Execute() == RET_OK;
}

// static
void SfxStoringHelper::ExecuteFilterDialog( SfxStoringHelper& _rStorageHelper
											,const ::rtl::OUString& _sFilterName
											,const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel >& _xModel
											,/*OUT*/::com::sun::star::uno::Sequence< ::com::sun::star::beans::PropertyValue >& _rArgsSequence)
{
	ModelData_Impl aModelData( _rStorageHelper, _xModel, _rArgsSequence );
	if ( aModelData.ExecuteFilterDialog_Impl( _sFilterName ) )
		_rArgsSequence = aModelData.GetMediaDescr().getAsConstPropertyValueList();
}

// static
Window* SfxStoringHelper::GetModelWindow( const uno::Reference< frame::XModel >& xModel )
{
	Window* pWin = 0;
	try {
		if ( xModel.is() )
		{
			uno::Reference< frame::XController > xController = xModel->getCurrentController();
			if ( xController.is() )
			{
				uno::Reference< frame::XFrame > xFrame = xController->getFrame();
				if ( xFrame.is() )
				{
					uno::Reference< awt::XWindow > xWindow = xFrame->getContainerWindow();
					if ( xWindow.is() )
					{
						VCLXWindow* pVCLWindow = VCLXWindow::GetImplementation( xWindow );
						if ( pVCLWindow )
							pWin = pVCLWindow->GetWindow();
					}
				}
			}
		}
	}
	catch ( uno::Exception& )
	{
	}

	return pWin;
}

