Index: openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl	28 Aug 2003 09:41:42 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl	12 Sep 2003 13:25:20 -0000	1.4
@@ -6,47 +6,17 @@
     @creation-date Unknown
     @cvs-id $Id$
 } {
-    
-    { return_url "" }
-    { user_id "" }
-} -properties {
-    site_link:onevalue
-    export_vars:onevalue
-    first_names:onevalue
-    last_name:onevalue
-    screen_name:onevalue
-    url:onevalue
-    email:onevalue
-    bio:onevalue
+    {return_url ""}
+    {user_id ""}
 }
 
-set current_user_id [ad_verify_and_get_user_id]
+set page_title "Update Basic Information"
 
-if [empty_string_p $user_id] {
-    set user_id $current_user_id
+if { ![exists_and_not_null user_id] } {
+    set context [list [list [ad_pvt_home] [ad_pvt_home_name]] $page_title]
+} else {
+    set context [list $page_title]
 }
 
-ad_require_permission $user_id "write"
 
-db_1row general_info {}
 
-set bio [person::get_bio -person_id $user_id]
-
-db_release_unused_handles
-
-set site_link [ad_site_home_link]
-set export_vars [export_form_vars return_url user_id]
-
-# moved from acs-subsite/www/pvt/home.tcl
-if [ad_parameter SolicitPortraitP "user-info" 0] {
-    # we have portraits for some users
-    if ![db_0or1row get_portrait_info ""] {
-        set portrait_state "upload"
-    } else {
-        set portrait_state "show"
-        set portrait_publish_date [util_AnsiDatetoPrettyDate $publish_date]
-    }
-} else {
-    set portrait_state "none"
-}
-