Index: openacs-4/packages/dotlrn/www/configure-element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/configure-element.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/dotlrn/www/configure-element.tcl	16 Apr 2009 11:00:17 -0000	1.21
+++ openacs-4/packages/dotlrn/www/configure-element.tcl	1 Nov 2013 21:08:31 -0000	1.22
@@ -33,7 +33,7 @@
     ad_script_abort
 }
 
-set user_id [ad_maybe_redirect_for_registration]
+set user_id [auth::require_login]
 
 if {[parameter::get -parameter community_level_p] == 1} {
 
@@ -49,7 +49,7 @@
 } else {
 
     set portal_id [dotlrn::get_portal_id -user_id $user_id]
-    if {[empty_string_p $portal_id]} {
+    if {$portal_id eq ""} {
         # do something
         ad_returnredirect "./"
     } else {