From 3c9942db1ccb44392be1261061dd2335898149e2 Mon Sep 17 00:00:00 2001
From: Tom Verbeek <tv@openoffice.org>
Date: Wed, 16 May 2001 11:48:54 +0000
Subject: #75761# fixed sorting of webwizard and calc styles

---
 wizards/source/webwizard/HtmlAutoPilotBasic.xba | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'wizards/source/webwizard/HtmlAutoPilotBasic.xba')

diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba
index 576667416fc7..a605c04c0655 100644
--- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba
+++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba
@@ -304,6 +304,7 @@ Dim LocMaxIndex as Integer
 	bItemFound = False
 	TemplatePath = GetOfficeSubPath(&quot;Template&quot;, &quot;wizard/web/&quot;)
 	DirContent() = oUcb.GetFolderContents(TemplatePath,True)
+	DirContent() = BubbleSortList(DirContent())
 	LocMaxIndex = Ubound(DirContent())
 	a = 0
 	For i = 0 To LocMaxIndex
@@ -529,4 +530,4 @@ Sub SetTileBackgroundorNot(DialogModel as Object, oStyle as Object)
   	End If
 End Sub
 
-</script:module>
+</script:module>
\ No newline at end of file
-- 
cgit