Function O4WCUSTOMPERMISSIONS(ReqdPerms, SessionInfo)

$Insert O4WCommon

$Insert O4WEquates

tempKey = O4WCookie(“tempCookie”)

userName = “”

userPerms = “”

if tempKey <> “” then

   Read userInfo from O4WTempFile%, tempkey then

      userName = userInfo<1>

      userPerms = userInfo<2>

   End

End

** For this simple example, assume being logged in is all that is required to proceed (so we do not compare “userPerms” with “ReqdPerms”)

If userName <> “” then

   Rslt = 1

End Else

   Rslt = -1; * not logged in – do not let them run this

End

Return Rslt