Index: openacs-4/packages/acs-subsite/www/pvt/home.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/home.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/www/pvt/home.tcl	12 Sep 2003 13:25:19 -0000	1.14
+++ openacs-4/packages/acs-subsite/www/pvt/home.tcl	19 Sep 2003 15:00:44 -0000	1.15
@@ -21,11 +21,12 @@
     pvt_home_url:onevalue
 }
 
-ad_maybe_redirect_for_registration
+set user_id [auth::require_login -account_status closed]
 
-set user_id [ad_conn user_id]
+acs_user::get -array user -include_bio -user_id $user_id
 
-acs_user::get -array user -include_bio
+set account_status [ad_conn account_status]
+set login_url [ad_get_login_url]
 
 set page_title [ad_pvt_home_name]
 
@@ -43,9 +44,6 @@
 
 set portrait_upload_url [export_vars -base "../user/portrait/upload" { { return_url [ad_return_url] } }]
 
-# Can't find out whether there's a request or not
-set form_request_p 1
-
 if [ad_parameter SolicitPortraitP "user-info" 0] {
     # we have portraits for some users 
     if ![db_0or1row get_portrait_info "