Index: openacs-4/packages/dotlrn/www/admin/users-bulk-approve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-bulk-approve.tcl,v
diff -u -N -r1.6.2.2 -r1.6.2.3
--- openacs-4/packages/dotlrn/www/admin/users-bulk-approve.tcl	12 Sep 2015 16:47:24 -0000	1.6.2.2
+++ openacs-4/packages/dotlrn/www/admin/users-bulk-approve.tcl	12 Sep 2016 11:16:15 -0000	1.6.2.3
@@ -59,7 +59,7 @@
     set i 0
     foreach user_id $pending_users {
 	incr i
-	set email [cc_email_from_party $user_id]
+	set email [party::email -party_id $user_id]
 	ns_write "$i, $email : ..."
 
 	# approve user in dotlrn