eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FSORT and BSORT now sort in Ascending order as expected

This commit is contained in:
mysticbbs 2012-02-24 10:01:04 -05:00
parent a0bafcb2d4
commit c47d3e6caf
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mystic/HISTORY.txt
View File

@ -3847,3 +3847,6 @@
! Mystic will no longer shell to the console and get "stuck" when trying ! 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 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.

4
mystic/mbbsutil.pas
View File

@ -235,7 +235,7 @@ Begin
{$ENDIF} {$ENDIF}
End; End;
SortList.Sort(1, SortList.Total, qDescending); SortList.Sort(1, SortList.Total, qAscending);
For A := 1 to SortList.Total Do Begin For A := 1 to SortList.Total Do Begin
Seek (FDirFile, SortList.Data[A]^.Ptr); Seek (FDirFile, SortList.Data[A]^.Ptr);
@ -489,7 +489,7 @@ Procedure Sort_BBS_List;
End; End;
End; End;
SortList.Sort(1, SortList.Total, qDescending); SortList.Sort(1, SortList.Total, qAscending);
For A := 1 to SortList.Total Do Begin For A := 1 to SortList.Total Do Begin
Seek (TBBSFile, SortList.Data[A]^.Ptr); Seek (TBBSFile, SortList.Data[A]^.Ptr);