From c47d3e6caf8c1ce64bf5997139f0bdada6dac552 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Fri, 24 Feb 2012 10:01:04 -0500 Subject: [PATCH] FSORT and BSORT now sort in Ascending order as expected --- mystic/HISTORY.txt | 3 +++ mystic/mbbsutil.pas | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) 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);