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 -r1.69 -r1.70 --- openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl 5 Feb 2006 01:49:21 -0000 1.69 +++ openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl 24 Feb 2006 03:49:27 -0000 1.70 @@ -13,6 +13,9 @@ { orderby course_name } { groupby course_name } {show_hidden "f"} + + {active_calendar_id 0} + {all_sessions_p 0} } set memoize_max_age [parameter::get -parameter CatalogMemoizeAge -default 10800] @@ -588,7 +591,11 @@ # Build sessions set calendar_id [dotlrn_calendar::get_group_calendar_id -community_id $community_id] lappend calendar_id_list $calendar_id - set sessions [util_memoize [list dotlrn_ecommerce::section::sessions $calendar_id] $memoize_max_age] + if { $all_sessions_p && $calendar_id == $active_calendar_id } { + set sessions [dotlrn_ecommerce::section::sessions $calendar_id] + } else { + set sessions [util_memoize [list dotlrn_ecommerce::section::sessions $calendar_id] $memoize_max_age] + } set instructors [util_memoize [list dotlrn_ecommerce::section::instructors $community_id $__instructors] $memoize_max_age]