Index: openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl 3 Mar 2009 21:35:54 -0000 1.12 +++ openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl 3 Mar 2009 21:55:57 -0000 1.13 @@ -181,7 +181,7 @@ ad_proc -public application_group::package_id_from_group_id { -group_id:required } { - return [db_string get {}] + return [db_string -cache_key application_group_pid_from_gid_${group_id} get {}] } ad_proc -public application_group::new { @@ -252,6 +252,8 @@ db_exec_plsql delete {} + db_flush -cache_key_pattern application_group_* + } ad_proc -public application_group::closest_ancestor_application_group_site_node {