Testing my registration method. I intentionally attempted to register using a known userid already in system. Example: sophie45. When I click submit, I get the expected (and hoped for - User ID must be unique).
But, when I attempt to change the userid to sophie44 (or anything) and click submit, the app freezes or goes into an endless loop.
I used the AlwaysUp restart app but that didn't work. I have to restart the server with each test.
Here are my registration dialog's events:
Initialize:
CurrentForm.Controls.Userid.value = ""
Dim session.__protected__UserId as C
a5ws_get_user_values(CurrentForm,request)
CurrentForm.Controls.groups.value=a5ws_get_guid_from_group("JobSeeker",request)
Validate:
request.variables.ulink=userid
a5ws_save_user_values(CurrentForm,request)
session.__protected__UserId=alltrim(CurrentForm.Controls.ulink.value)
Aftervalidate:
a5ws_get_user_values(CurrentForm,request)
dim userid as C
dim ulink as C
dim password as c
dim SecQues as c
dim SecAns as c
dim groups as C
dim tbl as P
'=================== Open user table and populate fields
tbl=table.open("[pathalias.adb_path]\users")
tbl.enter_begin(.T.)
tbl.Userid = alltrim(Userid)
tbl.Secquest = alltrim(SecQues)
tbl.Secanswer = alltrim(SecAns)
tbl.User_type = groups
tbl.Email = Email
tbl.Addcreditemail = Email
tbl.enter_end(.T.)
'=================== Set Session Variables
session.__Protected__Userid = tbl.Userid
session.ulink = tbl.Ulink
tbl.close()
' ============ Redirect to appropriate page
CurrentForm.RedirectTarget ="JSRegister.a5w?Userid=CurrentForm.controls.userid.value"
Activate:
queslist = a5ws_get_security_ques(request)
pagelist = a5ws_get_page_list(request)
Is there something in here in my events that could be the culprit?
Thanks in advance!
But, when I attempt to change the userid to sophie44 (or anything) and click submit, the app freezes or goes into an endless loop.
I used the AlwaysUp restart app but that didn't work. I have to restart the server with each test.
Here are my registration dialog's events:
Initialize:
CurrentForm.Controls.Userid.value = ""
Dim session.__protected__UserId as C
a5ws_get_user_values(CurrentForm,request)
CurrentForm.Controls.groups.value=a5ws_get_guid_from_group("JobSeeker",request)
Validate:
request.variables.ulink=userid
a5ws_save_user_values(CurrentForm,request)
session.__protected__UserId=alltrim(CurrentForm.Controls.ulink.value)
Aftervalidate:
a5ws_get_user_values(CurrentForm,request)
dim userid as C
dim ulink as C
dim password as c
dim SecQues as c
dim SecAns as c
dim groups as C
dim tbl as P
'=================== Open user table and populate fields
tbl=table.open("[pathalias.adb_path]\users")
tbl.enter_begin(.T.)
tbl.Userid = alltrim(Userid)
tbl.Secquest = alltrim(SecQues)
tbl.Secanswer = alltrim(SecAns)
tbl.User_type = groups
tbl.Email = Email
tbl.Addcreditemail = Email
tbl.enter_end(.T.)
'=================== Set Session Variables
session.__Protected__Userid = tbl.Userid
session.ulink = tbl.Ulink
tbl.close()
' ============ Redirect to appropriate page
CurrentForm.RedirectTarget ="JSRegister.a5w?Userid=CurrentForm.controls.userid.value"
Activate:
queslist = a5ws_get_security_ques(request)
pagelist = a5ws_get_page_list(request)
Is there something in here in my events that could be the culprit?
Thanks in advance!
Comment