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 -r1.8 -r1.9 --- openacs-4/packages/dotlrn-ecommerce/www/application-reject.tcl 11 Aug 2005 01:25:03 -0000 1.8 +++ openacs-4/packages/dotlrn-ecommerce/www/application-reject.tcl 22 Aug 2005 17:41:44 -0000 1.9 @@ -21,6 +21,14 @@ set actor_id [ad_conn user_id] +set section_id [db_string section { + select section_id + from dotlrn_ecommerce_section + where community_id = :community_id +}] + +dotlrn_ecommerce::section::flush_cache $section_id + if { !$send_email_p || $user_id == $actor_id } { dotlrn_community::membership_reject -community_id $community_id -user_id $user_id ad_returnredirect $return_url