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.5 -r1.5.2.1
--- openacs-4/packages/dotlrn/www/admin/users-bulk-approve.tcl 1 Nov 2013 21:08:34 -0000 1.5
+++ openacs-4/packages/dotlrn/www/admin/users-bulk-approve.tcl 9 Sep 2014 20:29:26 -0000 1.5.2.1
@@ -43,9 +43,12 @@
} -on_submit {
- ReturnHeaders
- ns_write "[ad_header "[_ dotlrn.Bulk_Approving]"]"
+ 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]
+
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]."
set email_from [parameter::get -package_id [ad_acs_kernel_id] -parameter SystemOwner]
@@ -90,7 +93,7 @@
}
} -after_submit {
- ns_write "
Return[ad_footer]"
+ ns_write "
Return"
ad_script_abort
}