Index: openacs.org-dev/packages/acs-subsite/www/shared/community-member.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-subsite/www/shared/community-member.tcl,v diff -u -r1.1.1.1 -r1.1.1.2 --- openacs.org-dev/packages/acs-subsite/www/shared/community-member.tcl 9 Jul 2002 17:34:59 -0000 1.1.1.1 +++ openacs.org-dev/packages/acs-subsite/www/shared/community-member.tcl 8 Oct 2002 15:46:49 -0000 1.1.1.2 @@ -6,7 +6,7 @@ } { user_id:integer } -properties { - context_bar:onevalue + context:onevalue member_state:onevalue first_names:onevalue last_name:onevalue @@ -26,6 +26,13 @@ user_contributions:multirow } +#See if this page has been overrided by a parameter in kernel +set community_member_url [ad_parameter -package_id [ad_acs_kernel_id] CommunityMemberURL "/shared/community-member"] +if { $community_member_url != "/shared/community-member" } { + ad_returnredirect "$community_member_url?user_id=$user_id" + ad_script_abort +} + set verified_user_id [ad_verify_and_get_user_id] if { [empty_string_p $user_id] } { @@ -126,7 +133,7 @@ and a.creation_user = :user_id order by object_name, creation_date" -set context_bar [ad_context_bar_ws_or_index "Community member"] +set context [list "Community member"] set system_name [ad_system_name] set pretty_creation_date [util_AnsiDatetoPrettyDate $creation_date] set login_export_vars "return_url=[ns_urlencode [acs_community_member_url -user_id $user_id]]"