- Deprecated proc

lib/assign-users-to-projects.tcl

@@ -5,7 +5,7 @@
 # All rights reserved. Please check
 # http://www.project-open.com/license/ for details.
 
-set current_user_id [ad_maybe_redirect_for_registration]
+set current_user_id [auth::require_login]
 
 set page_title ""
 set left_navbar_html ""

www/pobase/app/controller/ProjectTreePanel.js.tcl

@@ -11,4 +11,4 @@ ad_page_contract {
     user_id
 }
 
-set current_user_id [ad_maybe_redirect_for_registration]
+set current_user_id [auth::require_login]

www/xhr-biz-object-add-role.tcl

@@ -19,7 +19,7 @@ ad_page_contract {
     { role_id:integer }
 }
 
-set current_user_id [ad_maybe_redirect_for_registration]
+set current_user_id [auth::require_login]
 
 # Check permissions 
 set object_type [db_string acs_object_type "select object_type from acs_objects where object_id=:object_id" -default ""]

www/xhtml-copy-project-assignments.tcl

@@ -18,7 +18,7 @@ ad_page_contract {
     { to_user:integer }
 }
 
-ad_maybe_redirect_for_registration
+set user_id [auth::require_login]
 if {[catch {
 	set res [db_string copy_rels "select im_rels_transfer_user_projects_and_tasks(:from_user, :to_user)" -default -1]
 	ns_return 200 text/html $res