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.1 -r1.2
--- openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl	20 Sep 2002 22:28:56 -0000	1.2
@@ -28,19 +28,9 @@
 
 ad_require_permission $user_id "write"
 
-db_1row general_info "select first_names, last_name, email, url, screen_name
-           from cc_users 
-          where user_id=:user_id"
+db_1row general_info {}
 
-set bio [db_string biography "
-select attr_value
-from acs_attribute_values
-where object_id = :user_id
-and attribute_id =
-   (select attribute_id
-    from acs_attributes
-    where object_type = 'person'
-    and attribute_name = 'bio')" -default ""]
+set bio [db_string biography {} -default ""]
 
 db_release_unused_handles