Index: openacs-4/packages/acs-subsite/lib/user-info.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-subsite/lib/user-info.tcl 22 Sep 2003 08:22:26 -0000 1.7 +++ openacs-4/packages/acs-subsite/lib/user-info.tcl 24 Sep 2003 15:19:24 -0000 1.8 @@ -10,14 +10,15 @@ if { ![exists_and_not_null user_id] } { set user_id [ad_conn untrusted_user_id] -} else { +} elseif { $user_id != [auth::get_user_id -account_status closed] } { permission::require_permission -object_id $user_id -privilege admin } if { ![exists_and_not_null return_url] } { set return_url [ad_conn url] } + set action_url "[subsite::get_element -element url]user/basic-info-update" acs_user::get -user_id $user_id -array user -include_bio