Index: openacs-4/packages/dotlrn/www/control-panel.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/control-panel.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/www/control-panel.tcl	1 Mar 2005 00:01:27 -0000	1.9
+++ openacs-4/packages/dotlrn/www/control-panel.tcl	8 Aug 2006 21:26:24 -0000	1.10
@@ -31,10 +31,13 @@
     referer:onevalue
 }
 
+
+set dotlrn_url [dotlrn::get_url]
+set dotlrn_package_id [dotlrn::get_package_id]
 set portal_id [dotlrn::get_portal_id -user_id [ad_get_user_id]]
 
 # Make sure user is logged in
-set user_id [auth::require_login]
+set user_id [auth::require_login -account_status closed]
 
 set title [parameter::get -localize -parameter admin_page_name]
 set admin_p [dotlrn::admin_p]
@@ -47,3 +50,37 @@
 set pvt_home [ad_pvt_home]
 set pvt_home_name [ad_pvt_home_name]
 
+acs_user::get -array user -include_bio -user_id $user_id
+
+set account_status [ad_conn account_status]
+
+set community_member_url [acs_community_member_url -user_id $user_id]
+
+set notifications_url [lindex [site_node::get_children -node_id [subsite::get_element -element node_id] -package_key "notifications"] 0]
+
+set system_name [ad_system_name]
+
+if { [llength [lang::system::get_locales]] > 1 } { 
+    set change_locale_url [apm_package_url_from_key "acs-lang"]
+}
+
+set whos_online_url "[subsite::get_element -element url]shared/whos-online"
+set make_visible_url "[subsite::get_element -element url]shared/make-visible"
+set make_invisible_url "[subsite::get_element -element url]shared/make-invisible"
+set invisible_p [whos_online::user_invisible_p [ad_conn untrusted_user_id]]
+
+if { ![db_0or1row get_portrait_info {}] } {
+    set portrait_state "upload"
+} else {
+    if { $portrait_title eq "" } {
+        set portrait_title "[_ acs-subsite.no_portrait_title_message]"
+	set portrait_state "show"
+	set portrait_publish_date [lc_time_fmt $publish_date "%q"]
+    }
+}
+set portrait_upload_url [export_vars -base "../user/portrait/upload" { { return_url [ad_return_url] } }]
+set subsite_url [ad_conn vhost_subsite_url]
+set pvt_home_url [ad_pvt_home]
+
+set allowed_to_change_site_template_p [parameter::get -package_id $dotlrn_package_id -parameter "UserChangeSiteTemplate_p" \
+			      -default 0]