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

Change default protocol logic

This commit is contained in:
mysticbbs 2012-08-21 13:06:35 -04:00
parent 7b9a525c06
commit c9a65ae034
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
mystic/bbs_user.pas
View File

@ -932,10 +932,11 @@ Begin
Else Else
ThisUser.ScreenSize := Config.DefScreenSize; ThisUser.ScreenSize := Config.DefScreenSize;
If Config.UserProtocol > 0 Then Case Config.UserProtocol of
ThisUser.Protocol := Session.FileBase.SelectProtocol(False, True) 0 : ThisUser.Protocol := #0;
Else 1 : ThisUser.Protocol := Config.FProtocol;
ThisUser.Protocol := Config.FProtocol; 2 : ThisUser.Protocol := Session.FileBase.SelectProtocol(False, True);
End;
GetPassword(False); GetPassword(False);
End; End;