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.1 -r1.2
--- openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl	8 Jul 2005 15:51:44 -0000	1.1
+++ openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl	16 Jul 2005 12:51:06 -0000	1.2
@@ -11,22 +11,49 @@
 } {
     community_id:integer,notnull
     user_id:integer,notnull
+    {type waiting_list}
 } -properties {
 } -validate {
 } -errors {
 }
 
-# Check for security
+### Check for security
+
+if { $type == "waiting_list" } {
+    set new_member_state "waitinglist approved"
+    set old_member_state "needs approval"
+} else {
+    set new_member_state "request approved"
+    set old_member_state "request approval"
+}
+
 db_dml approve_request {
     update membership_rels
-    set member_state = 'request approved'
+    set member_state = :new_member_state
     where rel_id in (select r.rel_id
 		     from acs_rels r,
 		     membership_rels m
 		     where r.rel_id = m.rel_id
 		     and r.object_id_one = :community_id
 		     and r.object_id_two = :user_id
-		     and m.member_state = 'request approval')
+		     and m.member_state = :old_member_state)
 }
 
+# Send email to applicant
+set actor_id [ad_conn user_id]
+
+if { $user_id != $actor_id } {
+    set applicant_email [cc_email_from_party $user_id]
+    set actor_email [cc_email_from_party $actor_id]
+    set community_name [dotlrn_community::get_community_name $community_id]
+
+#    set application_url [ad_url]/[apm_package_url_from_key dotlrn-ecommerce]ecommerce/prerequisite-confirm
+
+    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 applications