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 -r1.86.2.4 -r1.86.2.5 --- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl 23 Feb 2021 13:08:02 -0000 1.86.2.4 +++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl 24 Apr 2022 11:24:37 -0000 1.86.2.5 @@ -210,9 +210,11 @@ } { Get the portal_id for a particular user } { - ::dotlrn::dotlrn_user_cache eval -partition_key $user_id \ + ::acs::try_cache ::dotlrn::dotlrn_user_cache eval -partition_key $user_id \ $user_id-portal_id { - dotlrn::get_portal_id_not_cached -user_id $user_id + db_string select_user_portal_id { + select portal_id from dotlrn_users where user_id = :user_id + } -default "" } }