Index: openacs-4/packages/dotlrn-ecommerce/www/applications.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/applications.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/dotlrn-ecommerce/www/applications.tcl 5 Aug 2005 09:22:52 -0000 1.17
+++ openacs-4/packages/dotlrn-ecommerce/www/applications.tcl 7 Aug 2005 13:30:53 -0000 1.18
@@ -50,6 +50,7 @@
-name "applications" \
-multirow "applications" \
-no_data "[_ dotlrn-ecommerce.No_applications]" \
+ -pass_properties { return_url } \
-page_flush_p 1 \
-pass_properties { admin_p return_url _type } \
-elements {
@@ -100,6 +101,12 @@
[_ dotlrn-ecommerce.lt_User_application_appr]
+
+ [_ dotlrn-ecommerce.lt_User_approved_waiting]
+
+
+ [_ dotlrn-ecommerce.lt_User_has_approved_pre]
+
[_ dotlrn-ecommerce.lt_User_has_submitted_an]
@@ -217,8 +224,8 @@
}] {
set list_type [ad_decode $member_state "needs approval" full "request approval" prereq "awaiting payment" payment full]
- set approve_url [export_vars -base application-approve { community_id {user_id $applicant_user_id} {type $list_type} }]
- set reject_url [export_vars -base application-reject { community_id {user_id $applicant_user_id} {type $list_type} }]
+ set approve_url [export_vars -base application-approve { community_id {user_id $applicant_user_id} {type $list_type} return_url }]
+ set reject_url [export_vars -base application-reject { community_id {user_id $applicant_user_id} {type $list_type} return_url }]
if { $member_state == "needs approval" ||
$member_state == "awaiting payment" ||