LOCAL lcEmployeeID, ;
lcUserLevel
*-- Save the current values of these vars in case user is logging in
*-- again but decides to cancel
lcEmployeeID = this.cEmployeeID
lcUserLevel = this.cUserLevel
lcLoginString = this.DoFormRetVal("loginpicture")
this.cEmployeeID = LEFT(lcLoginString, AT(",", lcLoginString) - 1)
this.cUserLevel = SUBSTR(lcLoginString, AT(",", lcLoginString) + 1)
IF EMPTY(this.cUserLevel)
this.cEmployeeID = lcEmployeeID
this.cUserLevel = lcUserLevel
ENDIF
*-- The user level is what determines if the user successfully logged
*-- in or not, and determines what menu pads are shown.
RETURN !EMPTY(this.cUserLevel)