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 -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] } }