cui/source/dialogs/hldocntp.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include "hldocntp.hxx"
  21 #include <sfx2/viewfrm.hxx>
  22 #include <sfx2/docfac.hxx>
  23 #include <com/sun/star/uno/Reference.h>
  24 #include <com/sun/star/uno/Sequence.h>
  25 #include <com/sun/star/beans/PropertyValue.hpp>
  26 #include <com/sun/star/uno/Exception.hpp>
  27 #include <unotools/localfilehelper.hxx>
  28 #include <vcl/image.hxx>
  29 #include <tools/urlobj.hxx>
  30 #include <unotools/pathoptions.hxx>
  31 #include <unotools/dynamicmenuoptions.hxx>
  32 #include <sfx2/filedlghelper.hxx>
  33 #include <unotools/ucbstreamhelper.hxx>
  34 #include <unotools/ucbhelper.hxx>
  35
  36 #include <comphelper/processfactory.hxx>
  37 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
  38 #include <com/sun/star/ui/dialogs/FolderPicker.hpp>
  39 #include <com/sun/star/ui/dialogs/ExecutableDialogResults.hpp>
  40
  41 using namespace ::com::sun::star::lang;
  42 using namespace ::com::sun::star::ui::dialogs;
  43 using namespace ::com::sun::star::uno;
  44
  45 using namespace ::com::sun::star;
  46
  47 /*************************************************************************
  48 |*
  49 |* Data-struct for documenttypes in listbox
  50 |*
  51 |************************************************************************/
  52
  53 struct DocumentTypeData
  54 {
  55     OUString aStrURL;
  56     OUString aStrExt;
  57     DocumentTypeData (const OUString& aURL, const OUString& aExt) : aStrURL(aURL), aStrExt(aExt)
  58     {}
  59 };
  60
  61 bool SvxHyperlinkNewDocTp::ImplGetURLObject( const OUString& rPath, const OUString& rBase, INetURLObject& aURLObject ) const
  62 {
  63     bool bIsValidURL = !rPath.isEmpty();
  64     if ( bIsValidURL )
  65     {
  66         aURLObject.SetURL( rPath );
  67         if ( aURLObject.GetProtocol() == INetProtocol::NotValid )      // test if the source is already a valid url
  68         {                                                           // if not we have to create a url from a physical file name
  69             bool wasAbs;
  70             INetURLObject base(rBase);
  71             base.setFinalSlash();
  72             aURLObject = base.smartRel2Abs(
  73                 rPath, wasAbs, true, INetURLObject::ENCODE_ALL,
  74                 RTL_TEXTENCODING_UTF8, true);
  75         }
  76         bIsValidURL = aURLObject.GetProtocol() != INetProtocol::NotValid;
  77         if ( bIsValidURL )
  78         {
  79             OUString aBase( aURLObject.getName( INetURLObject::LAST_SEGMENT, false ) );
  80             if ( aBase.isEmpty() || ( aBase[0] == '.' ) )
  81                 bIsValidURL = false;
  82         }
  83         if ( bIsValidURL )
  84         {
  85             sal_Int32 nPos = m_pLbDocTypes->GetSelectEntryPos();
  86             if ( nPos != LISTBOX_ENTRY_NOTFOUND )
  87                 aURLObject.SetExtension( static_cast<DocumentTypeData*>(m_pLbDocTypes->GetEntryData( nPos ))->aStrExt );
  88         }
  89
  90     }
  91     return bIsValidURL;
  92 }
  93
  94 /*************************************************************************
  95 |*
  96 |* Constructor / Destructor
  97 |*
  98 |************************************************************************/
  99
 100 SvxHyperlinkNewDocTp::SvxHyperlinkNewDocTp ( vcl::Window *pParent, IconChoiceDialog* pDlg, const SfxItemSet& rItemSet)
 101 :   SvxHyperlinkTabPageBase ( pParent, pDlg, "HyperlinkNewDocPage", "cui/ui/hyperlinknewdocpage.ui", rItemSet )
 102 {
 103     get(m_pRbtEditNow, "editnow");
 104     get(m_pRbtEditLater, "editlater");
 105     get(m_pCbbPath, "path");
 106     m_pCbbPath->SetSmartProtocol(INetProtocol::File);
 107     get(m_pBtCreate, "create");
 108     m_pBtCreate->SetModeImage(Image(CUI_RES(RID_SVXBMP_NEWDOC)));
 109     get(m_pLbDocTypes, "types");
 110     m_pLbDocTypes->set_height_request(m_pLbDocTypes->GetTextHeight() * 5);
 111
 112     // Set HC bitmaps and disable display of bitmap names.
 113     m_pBtCreate->EnableTextDisplay (false);
 114
 115     InitStdControls();
 116
 117     SetExchangeSupport ();
 118
 119     m_pCbbPath->Show();
 120     m_pCbbPath->SetBaseURL(SvtPathOptions().GetWorkPath());
 121
 122     // set defaults
 123     m_pRbtEditNow->Check();
 124
 125     m_pBtCreate->SetClickHdl        ( LINK ( this, SvxHyperlinkNewDocTp, ClickNewHdl_Impl ) );
 126
 127     FillDocumentList ();
 128 }
 129
 130 SvxHyperlinkNewDocTp::~SvxHyperlinkNewDocTp ()
 131 {
 132     disposeOnce();
 133 }
 134
 135 void SvxHyperlinkNewDocTp::dispose()
 136 {
 137     if (m_pLbDocTypes)
 138     {
 139         for ( sal_uInt16 n=0; n<m_pLbDocTypes->GetEntryCount(); n++ )
 140             delete static_cast<DocumentTypeData*>(m_pLbDocTypes->GetEntryData ( n ));
 141         m_pLbDocTypes = NULL;
 142     }
 143     m_pRbtEditNow.clear();
 144     m_pRbtEditLater.clear();
 145     m_pCbbPath.clear();
 146     m_pBtCreate.clear();
 147     m_pLbDocTypes.clear();
 148     SvxHyperlinkTabPageBase::dispose();
 149 }
 150
 151 /*************************************************************************
 152 |*
 153 |* Fill the all dialog-controls except controls in groupbox "more..."
 154 |*
 155 |************************************************************************/
 156
 157
 158 void SvxHyperlinkNewDocTp::FillDlgFields(const OUString& /*rStrURL*/)
 159 {
 160 }
 161
 162 void SvxHyperlinkNewDocTp::FillDocumentList ()
 163 {
 164     EnterWait();
 165
 166     uno::Sequence< uno::Sequence< beans::PropertyValue > >
 167         aDynamicMenuEntries( SvtDynamicMenuOptions().GetMenu( E_NEWMENU ) );
 168
 169     sal_uInt32 i, nCount = aDynamicMenuEntries.getLength();
 170     for ( i = 0; i < nCount; i++ )
 171     {
 172         uno::Sequence< beans::PropertyValue >& rDynamicMenuEntry = aDynamicMenuEntries[ i ];
 173
 174         OUString aDocumentUrl, aTitle, aImageId, aTargetName;
 175
 176            for ( int e = 0; e < rDynamicMenuEntry.getLength(); e++ )
 177         {
 178             if ( rDynamicMenuEntry[ e ].Name == DYNAMICMENU_PROPERTYNAME_URL )
 179                 rDynamicMenuEntry[ e ].Value >>= aDocumentUrl;
 180             else if ( rDynamicMenuEntry[e].Name == DYNAMICMENU_PROPERTYNAME_TITLE )
 181                 rDynamicMenuEntry[e].Value >>= aTitle;
 182             else if ( rDynamicMenuEntry[e].Name == DYNAMICMENU_PROPERTYNAME_IMAGEIDENTIFIER )
 183                 rDynamicMenuEntry[e].Value >>= aImageId;
 184             else if ( rDynamicMenuEntry[e].Name == DYNAMICMENU_PROPERTYNAME_TARGETNAME )
 185                 rDynamicMenuEntry[e].Value >>= aTargetName;
 186         }
 187         //#i96822# business cards, labels and database should not be inserted here
 188         if( aDocumentUrl == "private:factory/swriter?slot=21051" ||
 189             aDocumentUrl == "private:factory/swriter?slot=21052" ||
 190             aDocumentUrl == "private:factory/sdatabase?Interactive" )
 191             continue;
 192
 193         // Insert into listbox
 194         if ( !aDocumentUrl.isEmpty() )
 195         {
 196             if ( aDocumentUrl == "private:factory/simpress?slot=6686" )              // SJ: #106216# do not start
 197                 aDocumentUrl = "private:factory/simpress"; // the AutoPilot for impress
 198
 199             // insert private-url and default-extension as user-data
 200             const SfxFilter* pFilter = SfxFilter::GetDefaultFilterFromFactory( aDocumentUrl );
 201             if ( pFilter )
 202             {
 203                 // insert doc-name and image
 204                 OUString aTitleName( aTitle );
 205                 aTitleName = aTitleName.replaceFirst( "~", "" );
 206
 207                 sal_Int16 nPos = m_pLbDocTypes->InsertEntry ( aTitleName );
 208                 OUString aStrDefExt( pFilter->GetDefaultExtension () );
 209                 DocumentTypeData *pTypeData = new DocumentTypeData ( aDocumentUrl, aStrDefExt.copy( 2 ) );
 210                 m_pLbDocTypes->SetEntryData ( nPos, pTypeData );
 211             }
 212         }
 213     }
 214     m_pLbDocTypes->SelectEntryPos ( 0 );
 215
 216     LeaveWait();
 217 }
 218
 219 /*************************************************************************
 220 |*
 221 |* retrieve and prepare data from dialog-fields
 222 |*
 223 |************************************************************************/
 224
 225 void SvxHyperlinkNewDocTp::GetCurentItemData ( OUString& rStrURL, OUString& aStrName,
 226                                                OUString& aStrIntName, OUString& aStrFrame,
 227                                                SvxLinkInsertMode& eMode )
 228 {
 229     // get data from dialog-controls
 230     rStrURL = m_pCbbPath->GetText();
 231     INetURLObject aURL;
 232     if ( ImplGetURLObject( rStrURL, m_pCbbPath->GetBaseURL(), aURL ) )
 233     {
 234         rStrURL = aURL.GetMainURL( INetURLObject::NO_DECODE );
 235     }
 236
 237     GetDataFromCommonFields( aStrName, aStrIntName, aStrFrame, eMode );
 238 }
 239
 240 /*************************************************************************
 241 |*
 242 |* static method to create Tabpage
 243 |*
 244 |************************************************************************/
 245
 246 VclPtr<IconChoicePage> SvxHyperlinkNewDocTp::Create( vcl::Window* pWindow, IconChoiceDialog* pDlg, const SfxItemSet& rItemSet )
 247 {
 248     return VclPtr<SvxHyperlinkNewDocTp>::Create( pWindow, pDlg, rItemSet );
 249 }
 250
 251 /*************************************************************************
 252 |*
 253 |* Set initial focus
 254 |*
 255 |************************************************************************/
 256
 257 void SvxHyperlinkNewDocTp::SetInitFocus()
 258 {
 259     m_pCbbPath->GrabFocus();
 260 }
 261
 262 /*************************************************************************
 263 |*
 264 |* Ask page whether an insert is possible
 265 |*
 266 \************************************************************************/
 267
 268 bool SvxHyperlinkNewDocTp::AskApply()
 269 {
 270     INetURLObject aINetURLObject;
 271     bool bRet = ImplGetURLObject( m_pCbbPath->GetText(), m_pCbbPath->GetBaseURL(), aINetURLObject );
 272     if ( !bRet )
 273     {
 274         ScopedVclPtrInstance< WarningBox > aWarning( this, WB_OK, CUI_RESSTR(RID_SVXSTR_HYPDLG_NOVALIDFILENAME) );
 275         aWarning->Execute();
 276     }
 277     return bRet;
 278 }
 279
 280 /*************************************************************************
 281 |*
 282 |* Any action to do after apply-button is pressed
 283 |*
 284 \************************************************************************/
 285
 286 void SvxHyperlinkNewDocTp::DoApply ()
 287 {
 288     EnterWait();
 289
 290     // get data from dialog-controls
 291     OUString aStrNewName = m_pCbbPath->GetText();
 292
 293     if ( aStrNewName == aEmptyStr )
 294         aStrNewName = maStrInitURL;
 295
 296
 297     // create a real URL-String
 298
 299     INetURLObject aURL;
 300     if ( ImplGetURLObject( aStrNewName, m_pCbbPath->GetBaseURL(), aURL ) )
 301     {
 302
 303
 304         // create Document
 305
 306         aStrNewName = aURL.GetURLPath( INetURLObject::NO_DECODE );
 307         SfxViewFrame *pViewFrame = NULL;
 308         try
 309         {
 310             bool bCreate = true;
 311
 312             // check if file exists, warn before we overwrite it
 313             {
 314                 com::sun::star::uno::Reference < com::sun::star::task::XInteractionHandler > xHandler;
 315                 SvStream* pIStm = ::utl::UcbStreamHelper::CreateStream( aURL.GetMainURL( INetURLObject::NO_DECODE ), StreamMode::READ, xHandler );
 316
 317                 bool bOk = pIStm && ( pIStm->GetError() == 0);
 318
 319                 if( pIStm )
 320                     delete pIStm;
 321
 322                 if( bOk )
 323                 {
 324                     ScopedVclPtrInstance<WarningBox> aWarning( this, WB_YES_NO, CUI_RESSTR(RID_SVXSTR_HYPERDLG_QUERYOVERWRITE) );
 325                     bCreate = aWarning->Execute() == RET_YES;
 326                 }
 327             }
 328
 329             if( bCreate )
 330             {
 331                 // current document
 332                 SfxViewFrame* pCurrentDocFrame = SfxViewFrame::Current();
 333
 334                 if ( aStrNewName != aEmptyStr )
 335                 {
 336                     // get private-url
 337                     sal_Int32 nPos = m_pLbDocTypes->GetSelectEntryPos();
 338                     if( nPos == LISTBOX_ENTRY_NOTFOUND )
 339                         nPos=0;
 340                     OUString aStrDocName ( static_cast<DocumentTypeData*>(
 341                                          m_pLbDocTypes->GetEntryData( nPos ))->aStrURL );
 342
 343                     // create items
 344                     SfxStringItem aName( SID_FILE_NAME, aStrDocName );
 345                     SfxStringItem aReferer( SID_REFERER, OUString("private:user") );
 346                     SfxStringItem aFrame( SID_TARGETNAME, OUString("_blank") );
 347
 348                     OUString aStrFlags('S');
 349                     if ( m_pRbtEditLater->IsChecked() )
 350                     {
 351                         aStrFlags += OUString('H');
 352                     }
 353                     SfxStringItem aFlags (SID_OPTIONS, aStrFlags);
 354
 355                     // open url
 356                     const SfxPoolItem* pReturn = GetDispatcher()->Execute( SID_OPENDOC,
 357                                                                            SfxCallMode::SYNCHRON,
 358                                                                            &aName, &aFlags,
 359                                                                            &aFrame, &aReferer, 0L );
 360
 361                     // save new doc
 362                     const SfxViewFrameItem *pItem = PTR_CAST( SfxViewFrameItem, pReturn );  // SJ: pReturn is NULL if the Hyperlink
 363                     if ( pItem )                                                            // creation is cancelled #106216#
 364                     {
 365                         pViewFrame = pItem->GetFrame();
 366                         if (pViewFrame)
 367                         {
 368                             SfxStringItem aNewName( SID_FILE_NAME, aURL.GetMainURL( INetURLObject::NO_DECODE ) );
 369
 370                             pViewFrame->GetDispatcher()->Execute( SID_SAVEASDOC,
 371                                                                   SfxCallMode::SYNCHRON,
 372                                                                   &aNewName, 0L );
 373
 374                         }
 375                     }
 376                 }
 377
 378                 if ( m_pRbtEditNow->IsChecked() && pCurrentDocFrame )
 379                 {
 380                     pCurrentDocFrame->ToTop();
 381                 }
 382             }
 383         }
 384         catch (const uno::Exception&)
 385         {
 386         }
 387
 388         if ( pViewFrame && m_pRbtEditLater->IsChecked() )
 389         {
 390             SfxObjectShell* pObjShell = pViewFrame->GetObjectShell();
 391             pObjShell->DoClose();
 392         }
 393     }
 394
 395     LeaveWait();
 396 }
 397
 398 /*************************************************************************
 399 |*
 400 |* Click on imagebutton : new
 401 |*
 402 |************************************************************************/
 403
 404 IMPL_LINK_NOARG(SvxHyperlinkNewDocTp, ClickNewHdl_Impl)
 405 {
 406     uno::Reference < XComponentContext > xContext( ::comphelper::getProcessComponentContext() );
 407     uno::Reference < XFolderPicker2 >  xFolderPicker = FolderPicker::create(xContext);
 408
 409     OUString            aStrURL;
 410     OUString            aTempStrURL( m_pCbbPath->GetText() );
 411     utl::LocalFileHelper::ConvertSystemPathToURL( aTempStrURL, m_pCbbPath->GetBaseURL(), aStrURL );
 412
 413     OUString            aStrPath = aStrURL;
 414     bool            bZeroPath = aStrPath.isEmpty();
 415     bool            bHandleFileName = bZeroPath;    // when path has length of 0, then the rest should always be handled
 416                                                         //  as file name, otherwise we do not yet know
 417
 418     if( bZeroPath )
 419         aStrPath = SvtPathOptions().GetWorkPath();
 420     else if( !::utl::UCBContentHelper::IsFolder( aStrURL ) )
 421         bHandleFileName = true;
 422
 423     xFolderPicker->setDisplayDirectory( aStrPath );
 424     DisableClose( true );
 425     sal_Int16 nResult = xFolderPicker->execute();
 426     DisableClose( false );
 427     if( ExecutableDialogResults::OK == nResult )
 428     {
 429         sal_Char const  sSlash[] = "/";
 430
 431         INetURLObject   aURL( aStrURL, INetProtocol::File );
 432         OUString        aStrName;
 433         if( bHandleFileName )
 434             aStrName = bZeroPath? aTempStrURL : OUString(aURL.getName());
 435
 436         m_pCbbPath->SetBaseURL( xFolderPicker->getDirectory() );
 437         OUString          aStrTmp( xFolderPicker->getDirectory() );
 438
 439         if( aStrTmp[ aStrTmp.getLength() - 1 ] != sSlash[0] )
 440             aStrTmp += OUString( sSlash );
 441
 442         // append old file name
 443         if( bHandleFileName )
 444             aStrTmp += aStrName;
 445
 446         INetURLObject   aNewURL( aStrTmp );
 447
 448         if( !aStrName.isEmpty() && !aNewURL.getExtension().isEmpty() &&
 449             m_pLbDocTypes->GetSelectEntryPos() != LISTBOX_ENTRY_NOTFOUND )
 450         {
 451             // get private-url
 452             sal_uInt16 nPos = m_pLbDocTypes->GetSelectEntryPos();
 453             aNewURL.setExtension( static_cast<DocumentTypeData*>(m_pLbDocTypes->GetEntryData( nPos ))->aStrExt );
 454         }
 455
 456         if( aNewURL.GetProtocol() == INetProtocol::File )
 457         {
 458             utl::LocalFileHelper::ConvertURLToSystemPath( aNewURL.GetMainURL( INetURLObject::NO_DECODE ), aStrTmp );
 459         }
 460         else
 461         {
 462             aStrTmp = aNewURL.GetMainURL( INetURLObject::DECODE_UNAMBIGUOUS );
 463         }
 464
 465         m_pCbbPath->SetText ( aStrTmp );
 466     }
 467     return 0L;
 468 }
 469
 470 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */