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.2 -r1.3
--- openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl	20 Sep 2002 22:28:56 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl	28 Aug 2003 09:41:42 -0000	1.3
@@ -30,11 +30,23 @@
 
 db_1row general_info {}
 
-set bio [db_string biography {} -default ""]
+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]
 
-ad_return_template
\ No newline at end of file
+# 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"
+}
+