Index: openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl,v diff -u -N -r1.30 -r1.31 --- openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl 25 Jul 2005 18:15:55 -0000 1.30 +++ openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl 26 Jul 2005 23:13:12 -0000 1.31 @@ -538,13 +538,13 @@ switch $member_state { "needs approval" { set waiting_p 1 - set waiting_list_number [dotlrn_ecommerce::section::waiting_list_number $user_id $community_id] + set waiting_list_number [util_memoize [list dotlrn_ecommerce::section::waiting_list_number $user_id $community_id]] } "awaiting payment" { set waiting_p 2 } "request approval" { - set pending_p 2 + set pending_p 1 } "waitinglist approved" - "payment received" -