diff options
| author | Tom Verbeek <tv@openoffice.org> | 2001-05-17 11:30:03 +0000 |
|---|---|---|
| committer | Tom Verbeek <tv@openoffice.org> | 2001-05-17 11:30:03 +0000 |
| commit | cddd581300d8bf44a1d083fa17ea335cc23349ea (patch) | |
| tree | 1f4990ac137da892e82a2f6da8438728d8666c0f /wizards/source/webwizard | |
| parent | e260270cfcb6d9fe7de2932630993ba6b1a077dd (diff) | |
#78685# fixed sorting
Diffstat (limited to 'wizards/source/webwizard')
| -rw-r--r-- | wizards/source/webwizard/HtmlAutoPilotBasic.xba | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba index 7486ebe1226c..c7a0fb0710d6 100644 --- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba +++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba @@ -308,8 +308,19 @@ Dim LocMaxIndex as Integer bItemFound = False TemplatePath = GetOfficeSubPath("Template", "wizard/web/") DirContent() = oUcb.GetFolderContents(TemplatePath,True) - DirContent() = BubbleSortList(DirContent()) + LocMaxIndex = Ubound(DirContent()) + + Dim SortList(LocMaxIndex,1) + For i = 0 to LocMaxIndex + SortList(i,0) = DirContent(i) + 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 = DirContent(i) |