Index: openacs-4/packages/dotlrn-ecommerce/www/application-reject.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/application-reject.tcl,v
diff -u -N -r1.18 -r1.19
--- openacs-4/packages/dotlrn-ecommerce/www/application-reject.tcl	23 Sep 2005 18:02:52 -0000	1.18
+++ openacs-4/packages/dotlrn-ecommerce/www/application-reject.tcl	1 Oct 2005 21:45:08 -0000	1.19
@@ -20,9 +20,8 @@
 } -errors {
 }
 
-if { [exists_and_equal submit2 "Reject Only"] } {
-    ad_returnredirect [export_vars -base application-reject { community_id user_id type return_url {send_email_p 0} }]
-    ad_script_abort
+if { [exists_and_equal submit2 "[_ dotlrn-ecommerce.Reject_Only]"] } {
+    set send_email_p 0
 }
 
 set actor_id [ad_conn user_id]
@@ -91,7 +90,7 @@
 	    set email_type "application reject"
         }
     }
-    set context [list [list applications "Pending applications"] $title]
+    set context [list [list applications "[_ dotlrn-ecommerce.Pending_applications]"] $title]
     ad_form \
         -name email_form \
         -form {
@@ -107,8 +106,8 @@
 	    -extend \
 	    -name email_form \
 	    -form {
-		{submit1:text(submit) {label "Reject and Send Email"}}
-		{submit2:text(submit) {label "Reject Only"}}
+		{submit1:text(submit) {label "[_ dotlrn-ecommerce.lt_Reject_and_Send_Email]"}}
+		{submit2:text(submit) {label "[_ dotlrn-ecommerce.Reject_Only]"}}
 	    }
     }
 
@@ -118,7 +117,7 @@
 	-form {
         } \
         -on_request {
-	    set reason_email [lindex [callback dotlrn::default_member_email -community_id $community_id -to_user $user_id -type "prereq reject"] 0]
+	    set reason_email [lindex [callback dotlrn::default_member_email -community_id $community_id -to_user $user_id -type $email_type] 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]
@@ -163,6 +162,4 @@
             ad_returnredirect $return_url
 	    ad_script_abort
         }
-}
-
-
+}
\ No newline at end of file