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.64 -r1.65
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	16 Aug 2017 09:18:20 -0000	1.64
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	19 Jan 2018 20:56:00 -0000	1.65
@@ -12,100 +12,6 @@
 namespace eval person {}
 namespace eval acs_user {}
 
-ad_proc -deprecated -private cc_lookup_screen_name_user { screen_name } {
-    @see acs_user::get_user_id_by_screen_name
-} {
-    return [db_string user_select {} -default {}]
-}
-
-ad_proc -deprecated cc_screen_name_user { screen_name } {
-
-    @return Returns the user ID for a particular screen name, or an empty string
-    if none exists.
-
-    @see acs_user::get_user_id_by_screen_name
-
-} {
-    return [util_memoize [list cc_lookup_screen_name_user $screen_name]]
-}
-
-ad_proc -deprecated -private cc_lookup_email_user { email } {
-    Return the user_id of a user given the email. Returns the empty string if no such user exists.
-    @see party::get_by_email
-} {
-    return [db_string user_select {} -default {}]
-}
-
-ad_proc -public -deprecated cc_email_from_party { party_id } {
-    @return The email address of the indicated party.
-    @see party::email
-} {
-    return [db_string email_from_party {} -default {}]
-}
-
-ad_proc -deprecated cc_email_user { email } {
-
-    @return Returns the user ID for a particular email address, or an empty string
-    if none exists.
-
-    @see party::get_by_email
-} {
-    return [util_memoize [list cc_lookup_email_user $email]]
-}
-
-ad_proc -deprecated -private cc_lookup_name_group { name } {
-    @see group::get_id
-} {
-    return [db_string group_select {} -default {}]
-}
-
-ad_proc -deprecated cc_name_to_group { name } {
-
-    Returns the group ID for a particular name, or an empty string
-    if none exists.
-    
-    @see group::get_id
-} {
-    return [util_memoize [list cc_lookup_name_group $name]]
-}
-
-ad_proc -deprecated ad_user_new {
-    email
-    first_names
-    last_name
-    password 
-    password_question
-    password_answer
-    {url ""} 
-    {email_verified_p "t"} 
-    {member_state "approved"} 
-    {user_id ""} 
-    {username ""} 
-    {authority_id ""}
-    {screen_name ""}
-} {
-    Creates a new user in the system.  The user_id can be specified as an argument to enable double click protection.
-    If this procedure succeeds, returns the new user_id.  Otherwise, returns 0.
-    
-    @see auth::create_user
-    @see auth::create_local_account
-} {
-    return [auth::create_local_account_helper \
-		$email \
-		$first_names \
-		$last_name \
-		$password \
-		$password_question \
-		$password_answer \
-		$url \
-		$email_verified_p \
-		$member_state \
-		$user_id \
-		$username \
-		$authority_id \
-		$screen_name]
-}
-
 ad_proc -public person::person_p {
     {-party_id:required}
 } {