diff --git a/LSL2/STPROC/LSL_USERS_SERVICES.txt b/LSL2/STPROC/LSL_USERS_SERVICES.txt index 761aa3b..43feb71 100644 --- a/LSL2/STPROC/LSL_USERS_SERVICES.txt +++ b/LSL2/STPROC/LSL_USERS_SERVICES.txt @@ -163,7 +163,6 @@ end service Service GetOnShiftUsersByClass(Class, IncludeNextShift) - DatetimeNow = OConv(SRP_DateTime("Now"), 'DT') NextShiftTime = OConv(SRP_Datetime('AddHours', Datetime(), 12) , 'DT') CurrentShift = Lsl_Users_Services('GetShiftByDate', DatetimeNow) @@ -195,7 +194,6 @@ end service Service GetOnShiftUsers() - DatetimeNow = OConv(SRP_DateTime("Now"), 'DT') CurrentShift = Lsl_Users_Services('GetShiftByDate', DatetimeNow) Open 'DICT.LSL_USERS' to DictLSLUsers then @@ -217,14 +215,13 @@ end service Service GetShiftByDate(Date, GenerateFlag) - OnShift = ''; *Return Value if Date EQ '' then Error_Services('Add', 'Error in LSL_USERS_SERVICES. No Date Supplied.') return end DateConv = Iconv(Date, "DT") - CalStartDate = 18998; *Arbitrary Start Date to base calendar off of. Jan 5, 2020 Beginning of short shift 1 + CalStartDate = 19005; *Arbitrary Start Date to base calendar off of. Jan 12, 2020 Beginning of short shift 1 DaysSinceStart = SRP_DateTime("DaySpan", CalStartDate, DateConv, 0) WeeksSinceStart = SRP_Math("FLOOR", DaysSinceStart / 7) WeekType = '' @@ -462,3 +459,4 @@ Service UpdateNotificationGroups() end service +