diff --git a/LSL2/STPROC/OI_WIZARD_SERVICES.txt b/LSL2/STPROC/OI_WIZARD_SERVICES.txt index 2872f75..1848833 100644 --- a/LSL2/STPROC/OI_WIZARD_SERVICES.txt +++ b/LSL2/STPROC/OI_WIZARD_SERVICES.txt @@ -217,16 +217,12 @@ end service This routine validates a users session without extending it. Used for OI Wizard sessions that are awaiting input. */ Service ValidateSessionIdle(OIWizardID) + ErrorMsg = '' If OIWizardID NE '' then - OIWizardRec = Database_Services('ReadDataRow', 'OI_WIZARD', OIWizardID, True$, 0, False$) - If Error_Services('NoError') then - SessionTerminated = OIWizardRec - If SessionTerminated then - ErrorMsg = 'Expired session.' - end - end else - ErrorMsg = Error_Services('GetMessage') + Valid = Xlate('OI_WIZARD', OIWizardID, 'VALID', 'X') + If Not(Valid) then + ErrorMsg = 'Invalid or expired session' end end else ErrorMsg = 'Error in ':Service:' service. Null OIWizardID passed in.' @@ -235,6 +231,7 @@ Service ValidateSessionIdle(OIWizardID) If ErrorMsg EQ '' then Response = True$ end else + debug Error_Services('Add', ErrorMsg) Response = False$ end