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

Added a buffer flush during GH and GI menu commands

This commit is contained in:
mysticbbs 2013-05-23 20:53:40 -04:00
parent 72eb11a0d2
commit 552830b241
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mystic/bbs_menus.pas
View File

@ -204,6 +204,7 @@ Begin
Session.io.OutFile ('logoff', True, 0); Session.io.OutFile ('logoff', True, 0);
End; End;
Session.SystemLog ('User logged off'); Session.SystemLog ('User logged off');
Session.io.BufFlush;
Halt(0); Halt(0);
End; End;
'L' : ShowLastCallers; 'L' : ShowLastCallers;
@ -1246,6 +1247,7 @@ Begin
If Not Result Then Begin If Not Result Then Begin
If Forced Then Begin If Forced Then Begin
Session.io.OutFullLn ('|CRError Loading ' + MenuName + '.mnu'); Session.io.OutFullLn ('|CRError Loading ' + MenuName + '.mnu');
Session.SystemLog ('Error Loading Menu: ' + MenuName); Session.SystemLog ('Error Loading Menu: ' + MenuName);
Halt(1); Halt(1);
@ -1260,8 +1262,8 @@ Procedure TMenuEngine.ExecuteMenu (Load, Forced, View, Action: Boolean);
Var Var
Count : LongInt; Count : LongInt;
Begin Begin
SetAction := Action; SetAction := Action;
ViewOnly := View; ViewOnly := View;
If ViewOnly Then Begin If ViewOnly Then Begin
Case Data.Info.MenuType of Case Data.Info.MenuType of
@ -1286,6 +1288,7 @@ Begin
If Not TBBSCore(Owner).User.Access(Data.Info.Access) Then Begin If Not TBBSCore(Owner).User.Access(Data.Info.Access) Then Begin
If Data.Info.Fallback <> '' Then Begin If Data.Info.Fallback <> '' Then Begin
MenuName := Data.Info.Fallback; MenuName := Data.Info.Fallback;
Exit; Exit;
End; End;