Index: openacs-4/packages/dotlrn-ecommerce/tcl/course-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/course-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn-ecommerce/tcl/course-procs.tcl	1 Aug 2005 00:06:58 -0000	1.7
+++ openacs-4/packages/dotlrn-ecommerce/tcl/course-procs.tcl	4 Aug 2005 18:49:36 -0000	1.8
@@ -78,6 +78,7 @@
 } {
     return [list "on join" "awaiting payment" "on approval"]
 }
+
 ad_proc -private dotlrn_ecommerce::email_type_message_key {
     -type
     -key
@@ -90,16 +91,20 @@
     if {[string equal "subject" $key]} {
         return [string map \
                 [list \
+                     "awaiting payment" dotlrn-ecommerce.Application_submitted \
+                     "on approval" dotlrn-ecommerce.Application_approved \
                      submit_app dotlrn-ecommerce.Application_submitted \
                      approve_app dotlrn-ecommerce.Application_approved \
-                     "on join" "some stuff"] \
+                     "on join" dotlrn-ecommerce.Welcome_to_section] \
                    $type]
     } elseif {[string equal "body" $key]} {
         return [string map \
                 [list \
+                     "awaiting payment" dotlrn-ecommerce.lt_Your_application_has_been_submitted \
+                     "on approval" dotlrn-ecommerce.lt_Your_application_to_j \
                      submit_app dotlrn-ecommerce.lt_Your_application_has_been_submitted \
                      approve_app dotlrn-ecommerce.lt_Your_application_to_j \
-                     "on join" "some stuff"] \
+                     "on join" dotlrn-ecommerce.lt_Welcome_to_section_1] \
                    $type]
     } else {
         error "Key must be 'subject' or 'body'"