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.11 -r1.12
--- openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl	1 Sep 2005 21:43:57 -0000	1.11
+++ openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl	3 Sep 2005 08:19:30 -0000	1.12
@@ -45,7 +45,7 @@
     where community_id = :community_id
 }]
 
-dotlrn_ecommerce::section::flush_cache $section_id
+dotlrn_ecommerce::section::flush_cache -user_id $user_id $section_id
 
 if { $user_id == $actor_id } {
 
@@ -81,7 +81,8 @@
 	}	
     } on_error {
     }
-
+    
+    dotlrn_ecommerce::section::flush_cache -user_id $user_id $section_id
     ad_returnredirect $return_url
 } else {
     if { $type == "prereq" } {
@@ -139,6 +140,7 @@
 
             } \
             -after_submit {
+		dotlrn_ecommerce::section::flush_cache -user_id $user_id $section_id
                 ad_returnredirect $return_url
             }
 
@@ -186,6 +188,7 @@
 	    set override_email ""
 	}
 	dotlrn_community::send_member_email -community_id $community_id -to_user $user_id -type $email_type -override_email $override_email
+	dotlrn_ecommerce::section::flush_cache -user_id $user_id $section_id
 	ad_returnredirect $return_url
     }
 }
\ No newline at end of file