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 -N -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl	4 Jul 2003 13:30:31 -0000	1.2.2.1
+++ openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl	30 Jul 2003 22:44:51 -0000	1.2.2.2
@@ -37,3 +37,16 @@
 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"
+}
+