Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v diff -u -r1.114.2.8 -r1.114.2.9 --- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 3 Jul 2020 07:53:44 -0000 1.114.2.8 +++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 1 Sep 2020 17:09:32 -0000 1.114.2.9 @@ -1767,7 +1767,7 @@ # admin rights on the magic object 'security_context_root')? # return [db_string admins_left_p { - select exists (select 1 + select case when exists (select 1 from acs_permissions p, party_approved_member_map m, acs_magic_objects amo, @@ -1778,7 +1778,8 @@ and u.user_id = m.member_id and u.member_state = 'approved' and u.authority_id <> :authority_id - and acs_permission.permission_p(amo.object_id, u.user_id, 'admin')) from dual + and acs_permission.permission_p(amo.object_id, u.user_id, 'admin')) then 1 else 0 end + from dual }] }