Index: openacs-4/www/site-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/www/site-master.tcl,v diff -u -r1.16 -r1.16.2.1 --- openacs-4/www/site-master.tcl 16 Feb 2004 14:47:41 -0000 1.16 +++ openacs-4/www/site-master.tcl 26 Apr 2004 14:23:10 -0000 1.16.2.1 @@ -92,7 +92,7 @@ } # Curriculum bar -set curriculum_bar_p [llength [site_node::get_children -all -filters { package_key "curriculum" } -node_id $subsite_node_id]] +set curriculum_bar_p [util_memoize [list llength [site_node::get_children -all -filters { package_key "curriculum" } -node_id $subsite_node_id]]] # Who's Online