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