Index: openacs-4/packages/dotlrn/www/approve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/approve.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn/www/approve.tcl	8 Aug 2006 21:26:23 -0000	1.8
+++ openacs-4/packages/dotlrn/www/approve.tcl	1 Nov 2013 21:08:30 -0000	1.9
@@ -26,14 +26,14 @@
     {referer "./"}
 }
 
-ad_maybe_redirect_for_registration
+auth::require_login
 
-if {[empty_string_p $community_id]} {
+if {$community_id eq ""} {
     set community_id [dotlrn_community::get_community_id]
 }
 
 foreach uid $user_id {
-    if {[empty_string_p $uid]} {
+    if {$uid eq ""} {
 	    set uid [ad_conn user_id]
     } else {
 	    dotlrn::require_user_admin_community -community_id $community_id