Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.83 -r1.84
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	2 Jun 2009 00:40:22 -0000	1.83
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	3 Jun 2009 13:33:32 -0000	1.84
@@ -954,7 +954,7 @@
         # Update person.bio
         if { [info exists user_info(bio)] } {
             person::update_bio \
-                -user_id $user_id \
+                -person_id $user_id \
                 -bio $user_info(bio)
         }
     } {
@@ -1068,7 +1068,7 @@
             # Update person.bio
             if { [info exists user_info(bio)] } {
                 person::update_bio \
-                    -user_id $user_id \
+                    -person_id $user_id \
                     -bio $user_info(bio)
             }
             
Index: openacs-4/packages/acs-subsite/www/shared/community-member.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/community-member.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-subsite/www/shared/community-member.tcl	2 Jun 2009 00:40:22 -0000	1.17
+++ openacs-4/packages/acs-subsite/www/shared/community-member.tcl	3 Jun 2009 13:33:32 -0000	1.18
@@ -69,7 +69,7 @@
     set url "http://$url"
 }
 
-set bio [ad_text_to_html -- [person::get_bio -user_id $user_id]]
+set bio [ad_text_to_html -- [person::get_bio -person_id $user_id]]
 
 # Do we show the portrait?
 set inline_portrait_state "none"
Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.58 -r1.59
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	2 Jun 2009 00:40:22 -0000	1.58
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	3 Jun 2009 13:33:32 -0000	1.59
@@ -257,12 +257,12 @@
 # unused and unsupported in the existing code.
 
 ad_proc -public person::get_bio {
-    {-user_id {}}
+    {-person_id {}}
     {-exists_var {}}
 } {
     Get the value of the user's bio(graphy) field.
 
-    @option user_id    The user_id of the person to get the bio for. Leave blank for
+    @option person_id    The person_id of the person to get the bio for. Leave blank for
        currently logged in user.
     
     @option exists_var The name of a variable in the caller's namespace, which will be set to 1 
@@ -273,8 +273,8 @@
 
     @author Lars Pind (lars@collaboraid.biz)
 } {
-    if { $user_id eq "" } {
-        set user_id [ad_conn user_id]
+    if { $person_id eq "" } {
+        set person_id [ad_conn user_id]
     }
 
     if { $exists_var ne "" } {
@@ -289,12 +289,12 @@
 }
 
 ad_proc -public person::update_bio {
-    {-user_id:required}
+    {-person_id:required}
     {-bio:required}
 } {
     Update the bio for a person.
 
-    @param user_id The ID of the person to edit bio for
+    @param person_id The ID of the person to edit bio for
     @param bio       The new bio for the person
 
     @author Lars Pind (lars@collaboraid.biz)
@@ -476,7 +476,7 @@
     }
 
     if { $include_bio_p } {
-        set row(bio) [person::get_bio -user_id $user_id]
+        set row(bio) [person::get_bio -person_id $user_id]
     }
 }
 
Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.xql,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	2 Jun 2009 00:40:22 -0000	1.23
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	3 Jun 2009 13:33:32 -0000	1.24
@@ -92,7 +92,7 @@
       <querytext>
           select bio
           from persons
-          where person_id = :user_id
+          where person_id = :person_id
       </querytext>
 </fullquery>
 
Index: openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl	2 Jun 2009 00:40:22 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl	3 Jun 2009 13:33:32 -0000	1.5
@@ -84,9 +84,9 @@
 		aa_true "name changed" [string match [person::name -person_id $prs_id] "hh$first_names hh$last_name"]
 		
 		set bio "bio :: [ad_generate_random_string] :: bio"
-		person::update_bio -user_id $prs_id -bio $bio
+		person::update_bio -person_id $prs_id -bio $bio
 		
-		aa_true "bio(graphy) ok" [string match $bio [person::get_bio -user_id $prs_id -exists_var bio_p]]
+		aa_true "bio(graphy) ok" [string match $bio [person::get_bio -person_id $prs_id -exists_var bio_p]]
 		
 		person::delete -person_id $prs_id
                 aa_true "person deleted" ![person::person_p -party_id $prs_id]