Going from Web login page to customer table

[rcourtemanche]

Hello,

I assume this has been covered, but I was unable to find it searching.

I've created the web based login and want the new user to move from the create login screen to a customer table to input additional field data. I assume Ulink will be involved, but not sure how to get there yet. I eventually want new users to go to different tables based on choosen group setting in the account type, but first things first.

Could someone point me in the right direction?

Thanks for your time,

Bob

[mariusm]

Re: Going from Web login page to customer table

Bob, if you do a search on ulink, you'll find a lot of info on it - as quite a few of us struggled with it. There is a tutorial by Paul K ("valleyboy1303") on this thread.

What I do is put a redirect.a5w page under "redirect after login" in Security Settings. This page is xbasic only - no header, no html, just xbasic - that does some lookup in my user table and sets some session variables - and after the code is run, I have a few response.redirect() depending on conditional code on the page. Hope that helps point you in the right direction.

[rcourtemanche]

Re: Going from Web login page to customer table

Marius,

Thank you. I found the Ulink tutorial you mentioned and Steve's rsponse on security with ulink. I've been reading through it all day and have not made the connection yet. I'll keep trying. Thanks.

Bob

[Kevin Callanan]

Re: Going from Web login page to customer table

Marius,

Could you post an example of the xbasic language you use for this purpose.
Thanks

Kevin Callanan

[mariusm]

Re: Going from Web login page to customer table

Yup. Here is my redirect.a5w page:

<%a5
dim pUser as p 
dim session.vUserCompany as c 
dim session.vUserName as c
dim session.vUserEmail as c
dim session.vUserFullname as c
dim session.vUserPhone as c
dim tbl as P 
dim qry as P 

a5ws_logged_in_user_values(pUser,request,session) 

if eval_valid("pUser.userid") = .T. then 
session.vUserEmail = pUser.userID
tbl = table.open("[PathAlias.adb_path]\webusers") 
query.filter = "userID = "+quote(pUser.userid) 
query.order = "" 
qry = tbl.query_create()
 
tbl.fetch_first() 'fetch first in filtered list - should be only one record

while .not. tbl.fetch_eof() 
session.vUserCompany = webusers->user_company
session.vUserName = webusers->user_firstname
session.vUserFullname = (webusers->user_firstname)+" "+(webusers->user_lastname)
session.vUserPhone = webusers->user_phone
tbl.fetch_next() 
end while 
tbl.close() 
end if 

if session.vUserCompany="PNGLC"
response.redirect("activityP.a5w")
else
response.redirect("activity1.a5w")
end if
%>

It's making a lookup on a table called webusers.dbf, and setting the value of a number of variables I need in other pages. I know some of these variables should be protected, but for some reason my code fails when I make them protected - so I left them like this for now.

I use a variant of this code - without the response.redirect() - in a hewader.a5w that I include in each page - so if a user tries to access a page and is sent to the login page, the code will still run when he comes back to the page he was accessing.

EDITED to say that in order to keep the page as an xbasic only page, you need to do the editing in the "Source" tab of the HTML Editor. If you open it in the WYSIWYG tab, Alpha will add a header and footer. If that happens, just go in the source and delete all the HTML - leave just the code between the <%a5 ....%> tags.

[Kevin Callanan]

Re: Going from Web login page to customer table

Marius,

Thanks for posting this information it really helped me and should help others too.

Kevin Callanan

[Steve Wood]

Re: Going from Web login page to customer table

If you are using ULINK, then that code can be shortened to:

session.vUserCompany = alltrim(lookupc("F",alltrim(session.__protected__ulink),"user_company","[PathAlias.ADB_Path]\webusers","ID"))
session.vUserName = alltrim(lookupc("F",alltrim(session.__protected__ulink),"user_firstname","[PathAlias.ADB_Path]\webusers","ID"))
session.vUserFullname = alltrim(lookupc("F",alltrim(session.__protected__ulink),"user_firstname + " " user_lastname","[PathAlias.ADB_Path]\webusers","ID"))
session.vUserPhone = alltrim(lookupc("F",alltrim(session.__protected__ulink),"user_phone","[PathAlias.ADB_Path]\webusers","ID"))

Where the ulink session variable was set in Security Framework and the index of the ulink field is named ID.

[mariusm]

Re: Going from Web login page to customer table

I'm sure Steve's code is the proper way to do it; unfortunately I spent a huge amount of time trying to make that work on my applications, and I got nowhere. See the thread here: http://msgboard.alphasoftware.com/al...ighlight=ulink

Eventually I had to give up using ulink and just use the code I posted here. I guess I'll have to try again if the documentation in v. 9 is any better or if tehre'll be some more explanations about ulink on this forum.

[tommyrotten]

Re: Going from Web login page to customer table

<%a5 session.vCompanyid = alltrim(lookupc("F",alltrim(session.__protected__ulink),"company","user","ulink")) %>
<%a5 session.vUsrid = alltrim(lookupc("F",alltrim(session.__protected__ulink),"usrid","user","ulink")) %>
<%a5 session.vNameid = alltrim(lookupc("F",alltrim(session.__protected__ulink),"fname + " " lname","user","ulink")) %>

I have been using the code noted above(with minor modification) to set my session variables. Now I have converted over from using alpha native tables to using SQL Express and these will not work anymore and return an error (which it should). Looking for some guidance on how to reference the SQL table in the expression instead of the Alpha table.