Index: openacs-4/packages/dotlrn-ecommerce/www/admin/email-test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/email-test.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-ecommerce/www/admin/email-test.tcl	19 Dec 2005 02:37:10 -0000	1.1
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/email-test.tcl	20 Dec 2005 15:40:51 -0000	1.2
@@ -8,6 +8,8 @@
     return_url
 }
 acs_user::get -user_id [ad_conn user_id] -array user
+
 set email_data [dotlrn_community::send_member_email -community_id $community_id -type $type -to_user $user(user_id)]
 
-ad_returnredirect -message "Test email send to $user(email)" $return_url
\ No newline at end of file
+set page_title "[_ dotlrn-ecommerce.Test_email_sent]"
+set context [list $page_title]