wap_maybe_redirect_for_registration

one of the documented procedures in this installation of the ACS
Usage:
wap_maybe_redirect_for_registration
What it does:
Like the ad_maybe_redirect_for_registration, but redirects to wap login.
Defined in: /web/philip/tcl/wap-defs.tcl

Source code:


    set user_id [ad_verify_and_get_user_id]
    if !$user_id {
	set return_url_stub [ns_conn url]
        # Here it's okay to use a root-level reference since we're logging in.
	wap_returnredirect /wap/register/user-login.wap?[export_url_vars return_url_stub] "Login required."
	ad_script_abort
    }


philg@mit.edu