From fa0d9dbdb9550dfdce234c581b0edeeccd979960 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Tue, 21 Aug 2012 14:21:57 -0400
Subject: [PATCH] DOW function change

---
 mystic/bbs_user.pas    | 2 +-
 mystic/mpl_execute.pas | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/mystic/bbs_user.pas b/mystic/bbs_user.pas
index 92a5324..f119bab 100644
--- a/mystic/bbs_user.pas
+++ b/mystic/bbs_user.pas
@@ -178,7 +178,7 @@ Var
       'S' : Res := ThisUser.Security >= strS2I(Data);
       'T' : Res := Session.TimeLeft > strS2I(Data);
       'U' : Res := ThisUser.PermIdx = strS2I(Data);
-      'W' : Res := strS2I(Data) = DayOfWeek;
+      'W' : Res := strS2I(Data) = DayOfWeek(CurDateDos);
       'Z' : If IgnoreGroup Then Begin
               Check := False;
               First := True;
diff --git a/mystic/mpl_execute.pas b/mystic/mpl_execute.pas
index 7ca6a6b..bdea20b 100644
--- a/mystic/mpl_execute.pas
+++ b/mystic/mpl_execute.pas
@@ -1633,7 +1633,7 @@ Begin
             Store (TempStr, 256);
           End;
     57  : Begin
-            TempByte := DayOfWeek;
+            TempByte := DayOfWeek(CurDateDos);
             Store (TempByte, 1);
           End;
     58  : Begin