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

Mass email lockup

This commit is contained in:
mysticbbs 2012-08-24 14:38:36 -04:00
parent eb22054056
commit fdf18fe49f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/bbs_msgbase.pas
View File

@ -2918,6 +2918,7 @@ Begin
Case Mode of
'1' : Begin
Session.io.OutFull (Session.GetPrompt(388));
ACS := Session.io.GetInput(20, 20, 11, '');
If ACS = '' Then Exit;
@ -2929,9 +2930,9 @@ Begin
Reset (Session.User.UserFile);
While Not Eof(Session.User.UserFile) Do Begin
If (Session.User.ThisUser.Flags AND UserDeleted = 0) and Session.User.Access(ACS) Then Begin
Read (Session.User.UserFile, Session.User.ThisUser);
Read (Session.User.UserFile, Session.User.ThisUser);
If (Session.User.ThisUser.Flags AND UserDeleted = 0) and Session.User.Access(ACS) Then Begin
Session.io.PromptInfo[1] := Session.User.ThisUser.Handle;
Session.io.OutFullLn (Session.GetPrompt(392));