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

DOW function change

This commit is contained in:
mysticbbs 2012-08-21 14:21:57 -04:00
parent b8f81122a1
commit fa0d9dbdb9
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mystic/bbs_user.pas
View File

@ -178,7 +178,7 @@ Var
'S' : Res := ThisUser.Security >= strS2I(Data); 'S' : Res := ThisUser.Security >= strS2I(Data);
'T' : Res := Session.TimeLeft > strS2I(Data); 'T' : Res := Session.TimeLeft > strS2I(Data);
'U' : Res := ThisUser.PermIdx = strS2I(Data); 'U' : Res := ThisUser.PermIdx = strS2I(Data);
'W' : Res := strS2I(Data) = DayOfWeek; 'W' : Res := strS2I(Data) = DayOfWeek(CurDateDos);
'Z' : If IgnoreGroup Then Begin 'Z' : If IgnoreGroup Then Begin
Check := False; Check := False;
First := True; First := True;

2
mystic/mpl_execute.pas
View File

@ -1633,7 +1633,7 @@ Begin
Store (TempStr, 256); Store (TempStr, 256);
End; End;
57 : Begin 57 : Begin
TempByte := DayOfWeek; TempByte := DayOfWeek(CurDateDos);
Store (TempByte, 1); Store (TempByte, 1);
End; End;
58 : Begin 58 : Begin