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 -r1.6 -r1.7
--- openacs-4/packages/dotlrn/www/admin/users-bulk-approve.tcl	27 Oct 2014 16:41:17 -0000	1.6
+++ openacs-4/packages/dotlrn/www/admin/users-bulk-approve.tcl	7 Aug 2017 23:48:09 -0000	1.7
@@ -45,9 +45,10 @@
 
     set title [_ dotlrn.Bulk_Approving]
     set context $context_bar
-    set template [parameter::get -package_id [ad_conn subsite_id] -parameter StreamingHead] 
 
-    ad_return_top_of_page [ad_parse_template -params [list context title] $template]
+    ad_return_top_of_page [ad_parse_template \
+                               -params [list context title] \
+                               [template::streaming_template]]
 
     set subject "Your [ad_system_name] membership has been approved"
     set message "Your [ad_system_name] membership has been approved. Please return to [ad_url] to log into [ad_system_name]."
@@ -58,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
@@ -98,3 +99,9 @@
 }
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: