Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v diff -u -N -r1.86.2.2 -r1.86.2.3 --- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl 22 Feb 2021 15:35:15 -0000 1.86.2.2 +++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl 22 Feb 2021 15:35:36 -0000 1.86.2.3 @@ -181,11 +181,11 @@ } { Return the user default theme } { - + ::dotlrn::dotlrn_user_cache eval -partition_key $user_id \ $user_id-theme_id { dotlrn::get_user_theme_not_cached $user_id - } + } } ad_proc -private get_user_theme_not_cached { @@ -213,7 +213,7 @@ ::dotlrn::dotlrn_user_cache eval -partition_key $user_id \ $user_id-portal_id { dotlrn::get_portal_id_not_cached -user_id $user_id - } + } } ad_proc -public get_portal_id_not_cached { @@ -426,7 +426,7 @@ set new_theme_id [db_string select_portal_theme {}] db_dml update_portal_theme {} db_dml update_user_site_template {} - + ::dotlrn::dotlrn_user_cache flush -partition_key $user_id $user_id-site_template_id } @@ -463,7 +463,7 @@ ::dotlrn::dotlrn_user_cache eval -partition_key $user_id \ $user_id-site_template_id { dotlrn::get_site_template_id_not_cached -user_id $user_id - } + } } ad_proc -private get_site_template_id_not_cached { @@ -500,7 +500,7 @@ } { ::dotlrn::dotlrn_cache eval master_from_site_template_id-${site_template_id} { dotlrn::get_master_from_site_template_id_not_cached -site_template_id $site_template_id - } + } } ad_proc -private get_master_from_site_template_id_not_cached { @@ -529,7 +529,7 @@ set new_theme_id [db_string select_portal_theme {}] db_dml update_portal_themes {update } - + foreach user_id [db_list affected_users {}] { ::dotlrn::dotlrn_user_cache flush -partition_key $user_id $user_id-site_template_id }