Index: openacs-4/packages/dotlrn-admin/www/admin/archived-communities.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/archived-communities.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn-admin/www/admin/archived-communities.tcl	8 Aug 2006 21:26:31 -0000	1.2
+++ openacs-4/packages/dotlrn-admin/www/admin/archived-communities.tcl	7 Apr 2018 11:00:26 -0000	1.3
@@ -32,7 +32,7 @@
 set context_bar [list $title]
 
 db_multirow -extend { unarchive_url } archived_comms select_archived_comms {} {
-    set description [ad_quotehtml $description]
+    set description [ns_quotehtml $description]
     set unarchive_url "unarchive?community_id=$community_id"
 }
 
Index: openacs-4/packages/dotlrn-admin/www/admin/class.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/class.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn-admin/www/admin/class.tcl	8 Aug 2006 21:26:31 -0000	1.2
+++ openacs-4/packages/dotlrn-admin/www/admin/class.tcl	7 Apr 2018 11:00:26 -0000	1.3
@@ -37,7 +37,7 @@
     ad_script_abort
 }
 
-set description [ad_quotehtml $description]
+set description [ns_quotehtml $description]
 
 set terms [db_list_of_lists select_terms_for_select_widget {}]
 set terms [linsert $terms 0 {All -1}]
Index: openacs-4/packages/dotlrn-admin/www/admin/club.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/club.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn-admin/www/admin/club.tcl	8 Aug 2006 21:26:31 -0000	1.2
+++ openacs-4/packages/dotlrn-admin/www/admin/club.tcl	7 Apr 2018 11:00:26 -0000	1.3
@@ -34,7 +34,7 @@
 
 db_1row select_club {}
 
-set description [ad_quotehtml $description]
+set description [ns_quotehtml $description]
 
 set context_bar [list [list clubs [parameter::get -package_id [dotlrn::get_package_id] -localize -parameter clubs_pretty_plural]] $pretty_name]
 
Index: openacs-4/packages/dotlrn-admin/www/admin/clubs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/clubs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn-admin/www/admin/clubs.tcl	8 Aug 2006 21:26:31 -0000	1.2
+++ openacs-4/packages/dotlrn-admin/www/admin/clubs.tcl	7 Apr 2018 11:00:26 -0000	1.3
@@ -33,7 +33,7 @@
 set context_bar [list $title]
 
 db_multirow clubs select_clubs {} {
-    set description [ad_quotehtml $description]
+    set description [ns_quotehtml $description]
 }
 
 # Some of the en_US messages in the adp use these variables
Index: openacs-4/packages/dotlrn-admin/www/admin/department.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/department.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/dotlrn-admin/www/admin/department.tcl	28 Jun 2015 12:09:34 -0000	1.3
+++ openacs-4/packages/dotlrn-admin/www/admin/department.tcl	7 Apr 2018 11:00:26 -0000	1.4
@@ -41,7 +41,7 @@
     ad_script_abort
 }
 
-set description [ad_quotehtml $description]
+set description [ns_quotehtml $description]
 
 set context_bar [list [list departments [parameter::get -package_id [dotlrn::get_package_id] -localize -parameter departments_pretty_plural]] $pretty_name]
 set referer "[ns_conn url]?[ns_conn query]"
Index: openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.tcl	27 Mar 2018 14:22:30 -0000	1.3
+++ openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.tcl	7 Apr 2018 11:00:26 -0000	1.4
@@ -79,7 +79,7 @@
 
         # Now notify the users that they've been added to the community.
 
-        set sender_email [cc_email_from_party [ad_conn user_id]]
+        set sender_email [party::email -party_id [ad_conn user_id]]
         foreach {community} $communities {
             if { $community_id == [lindex $community 1] } {
                 set community_name [lindex $community 0]
Index: openacs-4/packages/dotlrn-admin/www/admin/users-bulk-upload-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-bulk-upload-2.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/dotlrn-admin/www/admin/users-bulk-upload-2.tcl	28 Jun 2015 12:09:34 -0000	1.4
+++ openacs-4/packages/dotlrn-admin/www/admin/users-bulk-upload-2.tcl	7 Apr 2018 11:00:26 -0000	1.5
@@ -57,7 +57,7 @@
         set password [ad_generate_random_string]
 
         # Check if this user already exists
-        set user_id [cc_lookup_email_user $row(email)]
+        set user_id [party::get_by_email -email $row(email)]
         if {$user_id ne ""} {
             doc_body_append [_ dotlrn.user_email_already_exists [list user_email $row(email)]]
             lappend list_of_user_ids $user_id
Index: openacs-4/packages/lars-blogger/www/blog.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog.tcl,v
diff -u -N -r1.29 -r1.30
--- openacs-4/packages/lars-blogger/www/blog.tcl	28 Jun 2015 12:46:36 -0000	1.29
+++ openacs-4/packages/lars-blogger/www/blog.tcl	7 Apr 2018 11:02:27 -0000	1.30
@@ -56,7 +56,7 @@
     set screen_name ""
     set blog_user_id {}
 } else {
-    set blog_user_id [cc_screen_name_user $screen_name]
+    set blog_user_id [acs_user::get_user_id_by_screen_name -screen_name  $screen_name]
 }
 
 if { ![info exists max_num_entries] || $max_num_entries eq "" } {
Index: openacs-4/packages/news-aggregator-portlet/www/news-aggregator-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator-portlet/www/news-aggregator-portlet.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/news-aggregator-portlet/www/news-aggregator-portlet.tcl	26 Feb 2007 19:51:10 -0000	1.4
+++ openacs-4/packages/news-aggregator-portlet/www/news-aggregator-portlet.tcl	7 Apr 2018 11:04:55 -0000	1.5
@@ -8,7 +8,7 @@
 }
 
 set user_id [ad_conn user_id]
-set write_p [ad_permission_p $user_id write]
+set write_p [permission::permission_p -object_id $user_id -privilege write]
 
 array set config $cf	
 set shaded_p 0