Index: openacs-4/packages/dotlrn/www/user-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/dotlrn/www/user-add.tcl	15 Dec 2006 22:45:22 -0000	1.34
+++ openacs-4/packages/dotlrn/www/user-add.tcl	1 Nov 2013 21:08:32 -0000	1.35
@@ -40,13 +40,13 @@
 
 # Set read_private_data_p and can_browse_p to me the most restrictive defaults.
 
-set current_user_id [ad_maybe_redirect_for_registration]
+set current_user_id [auth::require_login]
 set community_id [dotlrn_community::get_community_id]
 
 # If can_browse_p is 1, this means the new user would be able to join 
 # all communities. 
     
-if {![empty_string_p $community_id]} {
+if {$community_id ne ""} {
     dotlrn::require_user_admin_community -community_id [dotlrn_community::get_community_id]
     set context [list [list "one-community-admin" [_ dotlrn.Admin]] [_ dotlrn.Add_User]]
     set community_p 1