diff options
author | Behrend Cornelius <bc@openoffice.org> | 2002-11-06 14:20:48 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2002-11-06 14:20:48 +0000 |
commit | 22c8cc4ed2d29421fe5fc8ab2ce4e90a4738c9d2 (patch) | |
tree | 660b4c1774c2c14c0d7b0943014369f073325e2e /wizards/source/webwizard/HtmlAutoPilotBasic.xba | |
parent | 810b3473a08f9270259683b2a5d1bdf8b99321ed (diff) |
#104710# "GetWizardPaths" added
Diffstat (limited to 'wizards/source/webwizard/HtmlAutoPilotBasic.xba')
-rw-r--r-- | wizards/source/webwizard/HtmlAutoPilotBasic.xba | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba index e3448bc54bfe..d7882bff25a3 100644 --- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba +++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba @@ -22,6 +22,7 @@ Public Style(MaxStyles, 8) as String Public Layout$(MaxLayouts, 2) Public TextureDir$, BulletDir$, GraphicsDir$, GalleryDir$, PhotosDir$ +Public SOBitmapPath as String Public CurrentBullet$, CurrentPrev$, CurrentNext$, CurrentHome$, CurrentTop$ Public FileStr as String @@ -59,9 +60,16 @@ On Local Error Goto GlobalErrorHandler SetProgressValue(2) oBaseDocument.LockControllers oViewSettings.ShowTableBoundaries = False + If Not GetWebWizardPaths() Then + oBaseDocument.dispose() + Exit Sub + End If LoadLanguage SetProgressValue(10) - GetPaths() + If Not GetWebWizardPaths() Then + oBaseDocument.dispose() + Exit Sub + End If Layout() = getListBoxArrays(oUcb, "/cnt") GetCurIndex(DialogModel, Layout(),2) SetProgressValue(30) @@ -88,7 +96,9 @@ On Local Error Goto GlobalErrorHandler GLOBALERRORHANDLER: If Err <> 0 Then MsgBox (WebWiz_gErrMsg$, 16, WebWiz_gWizardName$) -' CancelHTMLWizard() + oBaseDocument.dispose() + RESUME EXITWIZARD +EXITWIZARD: End If End Sub @@ -297,7 +307,13 @@ Dim sExtension as String oDocInfo = CreateUnoService("com.sun.star.document.DocumentProperties") FilterLen = Len(sFileFilter) bItemFound = False + ' It has to be made sure that the TemplatePath <> "" TemplatePath = GetOfficeSubPath("Template", "wizard/web/") + If TemplatePath = "" Then + Dim NullList() + getListBoxArrays() = NullList() + Exit Function + End If DirContent() = oUcb.GetFolderContents(TemplatePath,True) If sFileFilter = "/cnt" Then DimCount = 2 @@ -347,9 +363,9 @@ Dim sExtension as String End If Next i If sFileFilter = "/cnt" Then - ReDim PreServe List(a-1,2) as String + ReDim Preserve List(a-1,2) as String Else - ReDim PreServe List(a-1,8) as String + ReDim Preserve List(a-1,8) as String End If If Not bItemfound Then MsgBox(WebWiz_gErrContentNotFound$, 16, WebWiz_gWizardName$) |