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.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 }