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.16 -r1.17
--- openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl	21 Sep 2005 01:21:00 -0000	1.16
+++ openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl	21 Sep 2005 02:51:10 -0000	1.17
@@ -98,10 +98,13 @@
                 {user_id:text(hidden)}
                 {community_id:text(hidden)}
                 {type:text(hidden)}
+		{subject:text {html {size 60}}}
                 {reason:text(textarea),optional {label "[_ dotlrn-ecommerce.Reason]"} {html {rows 10 cols 60}}}
             } \
             -on_request {
-		set reason [lindex [lindex [callback dotlrn::default_member_email -community_id $community_id -to_user $user_id -type "prereq approval"] 0] 2]
+		set reason_email [lindex [callback dotlrn::default_member_email -community_id $community_id -to_user $user_id -type "prereq approval"] 0]
+		set reason [lindex $reason_email 2]
+		set subject [lindex $reason_email 1]
 		array set vars [lindex [callback dotlrn::member_email_var_list -community_id $community_id -to_user $user_id -type $type] 0]
 	    set email_vars [lang::message::get_embedded_vars $reason]
 	    foreach var [concat $email_vars] {