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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/email-test.tcl	19 Dec 2005 02:37:10 -0000	1.1
@@ -0,0 +1,13 @@
+ad_page_contract {
+
+    Send a test email
+
+} {
+    community_id
+    type
+    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