phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor bugfix to determining if an idle session is still valid

Browse Source
This commit is contained in:
Infineon\Ouellette 2025-01-17 14:57:36 -07:00 committed by Ouellette Jonathan (CSC FI SPS MESLEO)
parent 0a8451fa14
commit a269f2f6cf
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
LSL2/STPROC/OI_WIZARD_SERVICES.txt
View File

@ -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<OI_WIZARD.TERMINATED$>
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