diff --git a/mystic/HISTORY.txt b/mystic/HISTORY.txt index 3731f87..f217a55 100644 --- a/mystic/HISTORY.txt +++ b/mystic/HISTORY.txt @@ -3847,3 +3847,6 @@ ! Mystic will no longer shell to the console and get "stuck" when trying to execute an archive that has a blank command line in the configuration + + ! MBBSUTIL was sorting BBS Lists and File Lists in reverse alphabetical + order. This is now fixed to sort as most people would expect. diff --git a/mystic/mbbsutil.pas b/mystic/mbbsutil.pas index 1bbc503..3eca466 100644 --- a/mystic/mbbsutil.pas +++ b/mystic/mbbsutil.pas @@ -235,7 +235,7 @@ Begin {$ENDIF} End; - SortList.Sort(1, SortList.Total, qDescending); + SortList.Sort(1, SortList.Total, qAscending); For A := 1 to SortList.Total Do Begin Seek (FDirFile, SortList.Data[A]^.Ptr); @@ -489,7 +489,7 @@ Procedure Sort_BBS_List; End; End; - SortList.Sort(1, SortList.Total, qDescending); + SortList.Sort(1, SortList.Total, qAscending); For A := 1 to SortList.Total Do Begin Seek (TBBSFile, SortList.Data[A]^.Ptr);