Index: openacs.org-dev/packages/acs-subsite/www/user/basic-info-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-subsite/www/user/basic-info-update.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-subsite/www/user/basic-info-update.tcl	9 Jul 2002 17:34:59 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-subsite/www/user/basic-info-update.tcl	8 Oct 2002 15:46:49 -0000	1.1.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