diff options
Diffstat (limited to 'wizards/source/webwizard/HtmlAutoPilotBasic.xba')
-rw-r--r-- | wizards/source/webwizard/HtmlAutoPilotBasic.xba | 62 |
1 files changed, 25 insertions, 37 deletions
diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba index 661313f02105..4d2569dd6e79 100644 --- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba +++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba @@ -1,9 +1,9 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> -<script:module xmlns:script="http://openoffice.org/2000/script" script:name="HtmlAutoPilotBasic" script:language="StarBasic"> -' Variables must be declared +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="HtmlAutoPilotBasic" script:language="StarBasic">' Variables must be declared Option Explicit + Public bWithBackGraphic as Boolean Public oStyle as Object ' Maximum number of content templates, style templates and bullets @@ -17,7 +17,7 @@ Public NumberOfLayouts%, NumberOfStyles% Public Style(8, MaxStyles) as String ' Filled with title, file name -Public Layout$(2, MaxLayouts%) +Public Layout$(2, MaxLayouts) Public TextureDir$, BulletDir$, GraphicsDir$, GalleryDir$, PhotosDir$ Public CurrentBullet$, CurrentPrev$, CurrentNext$, CurrentHome$, CurrentTop$ @@ -106,8 +106,8 @@ Dim CurInd as Integer ToggleDialogControls(False) oBaseDocument.LockControllers ' Get selected list entry and corresponding file name - CurInd = GetCurIndex(DialogModel.lbTemplate, Layout$(), NumberofLayouts%, 2) - oCursor = oBaseDocument.Text.CreateTextCursor + CurInd = GetCurIndex(DialogModel.lbTemplate, Layout(), NumberofLayouts%, 2) + oCursor = oBaseDocument.Text.CreateTextCursor() oCursor.GotoStart(False) oCursor.GotoEnd(True) oCursor.InsertDocumentfromURL(FileStr, NoArgs()) @@ -268,13 +268,12 @@ Dim sNewFileUrl as String End Function + Function FillupWebListbox(oUcb as Object, sFileFilter as String, oDialog as Object, ListboxName as String, List() as String) Dim oDocInfo as Object -Dim oComp as Object -Dim oRealDocInfo as Object Dim oListboxControl as Object +Dim Description as String Dim sField as String -Dim sDescription as String Dim sFieldList() as String Dim bItemFound as Boolean Dim MaxIndex as Integer @@ -282,7 +281,6 @@ Dim DirContent() as String Dim FileName as String Dim TemplatePath as String Dim FilterLen as Integer -Dim MyArray() Dim i as Integer Dim m as Integer Dim n as Integer @@ -290,56 +288,48 @@ Dim s as Integer Dim a as Integer Dim SelList(0) as Integer Dim LocMaxIndex as Integer -Dim FileProperties(0) as new com.sun.star.beans.PropertyValue - FileProperties(0).Name = "Hidden" - FileProperties(0).Value = True +Dim InfoNames() oListboxControl = oDialog.GetControl(ListboxName) + oDocInfo = CreateUnoService("com.sun.star.document.DocumentProperties") FilterLen = Len(sFileFilter) bItemFound = False TemplatePath = GetOfficeSubPath("Template", "wizard/web/") DirContent() = oUcb.GetFolderContents(TemplatePath,True) - + LocMaxIndex = Ubound(DirContent()) - - oDocInfo = createUNOService("com.sun.star.document.DocumentProperties") - - Dim SortList(LocMaxIndex,2) + + Dim SortList(LocMaxIndex,1) For i = 0 to LocMaxIndex SortList(i,0) = DirContent(i) - oDocInfo.read(DirContent(i)) - SortList(i,1) = oDocInfo.Title - If Left(FileNameOutOfPath(DirContent(i),getPathSeparator()),3) = "stl" Then - oComp = StarDesktop.LoadComponentFromURL(DirContent(i),"_blank",0,FileProperties()) - oRealDocInfo = oComp.getDocumentInfo() - SortList(i,2) = oRealDocInfo - oComp.dispose() - End If - + SortList(i,1) = RetrieveDocTitle(oDocInfo, DirContent(i)) Next i SortList() = BubbleSortList(SortList(),True) - + For i = 0 to LocMaxIndex + DirContent(i) = SortList(i,0) + Next i a = 0 For i = 0 To LocMaxIndex - FileName = SortList(i,0) + FileName = DirContent(i) If Instr(1,Filename, sFileFilter) Then bItemFound = True - - sDescription = SortList(i,1) - oListboxControl.AddItem(sDescription,a) + Description = RetrieveDocTitle(oDocInfo, FileName) + oDocInfo.Read(FileName) + InfoNames = oDocInfo.ElementNames() + oListboxControl.AddItem(Description,a) a = a + 1 - List(1,i) = sDescription + List(1,i) = Description If sFileFilter = "/cnt" Then List(2,i) = Filename Else m = 2 For n = 0 To 3 - sField = SortList(i,2).GetUserFieldValue(n) + sField = oDocInfo.GetByName(InfoNames(n)) sFieldList() = ArrayoutofString(sField, " ", MaxIndex) For s = 0 To MaxIndex If m < 6 Then - List(m,i) = sFieldList(s) & ".gif" + List(m,i) = sFieldList(s) & ".gif" Else - List(m,i) = sFieldList(s) + List(m,i) = sFieldList(s) End If m = m + 1 Next s @@ -348,8 +338,6 @@ Dim FileProperties(0) as new com.sun.star.beans.PropertyValue End If End If Next i - - ' No content template? Error message, close new empty document, stop execution If Not bItemfound Then MsgBox(WebWiz_gErrContentNotFound$ , 16, WebWiz_gWizardName$) oBaseDocument.Dispose() |