Index: openacs-4/packages/dotlrn/www/configure-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/configure-2.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/dotlrn/www/configure-2.tcl 6 May 2002 23:55:02 -0000 1.6 +++ openacs-4/packages/dotlrn/www/configure-2.tcl 8 May 2002 14:35:07 -0000 1.7 @@ -26,20 +26,14 @@ set form [ns_getform] set portal_id [ns_set get $form portal_id] +set anchor [ns_set get $form anchor] # Check if this is a community type level thing if {[ad_parameter community_type_level_p] == 1} { ad_returnredirect "one-community-type" return } +portal::configure_dispatch -portal_id $portal_id -form $form -# Make sure user is logged in -set user_id [ad_maybe_redirect_for_registration] - -# If there is no portal_id, this user is either a guest or something else -if {![empty_string_p $portal_id]} { - portal::configure_dispatch $portal_id $form -} - -ad_returnredirect "configure" +ad_returnredirect "configure#$anchor"