Index: openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl 23 Jul 2005 15:07:45 -0000 1.7 +++ openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl 1 Aug 2005 00:06:58 -0000 1.8 @@ -163,14 +163,23 @@ set actor_email [cc_email_from_party $actor_id] set community_name [dotlrn_community::get_community_name $community_id] -if {![dotlrn_community::send_member_email -community_id $community_id -to_user $user_id -type "on approval"]} { +# could be from waiting list +if {$new_member_state eq "waitinglist approved"} { + # site wide template acs_mail_lite::send \ - -to_addr $applicant_email \ - -from_addr $actor_email \ - -subject [subst "[_ dotlrn-ecommerce.Application_approved]"] \ - -body [subst "[_ dotlrn-ecommerce.lt_Your_application_to_j]"] + -to_addr $applicant_email \ + -from_addr $actor_email \ + -subject [subst "[_ dotlrn-ecommerce.lt_A_space_has_opened_up]"] \ + -body [subst "[_ dotlrn-ecommerce.lt_A_space_has_opened_up_1]"] +} else { + if {![dotlrn_community::send_member_email -community_id $community_id -to_user $user_id -type "on approval"]} { + acs_mail_lite::send \ + -to_addr $applicant_email \ + -from_addr $actor_email \ + -subject [subst "[_ dotlrn-ecommerce.Application_approved]"] \ + -body [subst "[_ dotlrn-ecommerce.lt_Your_application_to_j]"] + } } - ad_returnredirect $return_url } } \ No newline at end of file