Index: openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl,v diff -u -N -r1.16 -r1.17 --- openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl 25 Jul 2005 18:17:26 -0000 1.16 +++ openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl 26 Jul 2005 23:11:22 -0000 1.17 @@ -136,6 +136,7 @@ } ad_proc -public dotlrn_ecommerce::section::flush_cache { + -user_id section_id } { Flush cached procs @@ -177,9 +178,9 @@ util_memoize_flush [list dotlrn_ecommerce::section::member_price $section_id] util_memoize_flush [list dotlrn_ecommerce::section::application_assessment $section_id] - set user_id [ad_conn user_id] - if { $user_id } { + if { [exists_and_not_null user_id] } { util_memoize_flush [list dotlrn_ecommerce::section::member_state $user_id $community_id] + util_memoize_flush [list dotlrn_ecommerce::section::waiting_list_number $user_id $community_id] } } Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl 21 Jul 2005 22:12:11 -0000 1.6 +++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl 26 Jul 2005 23:11:22 -0000 1.7 @@ -93,7 +93,7 @@ where community_id = :community_id } -dotlrn_ecommerce::section::flush_cache $section_id +dotlrn_ecommerce::section::flush_cache -user_id $participant_id $section_id set assessment_id [dotlrn_ecommerce::section::application_assessment $section_id] if { ! [empty_string_p $assessment_id] && $assessment_id != -1 } {