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.13 -r1.114.2.14 --- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 22 Feb 2021 14:37:22 -0000 1.114.2.13 +++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 3 Mar 2021 11:25:18 -0000 1.114.2.14 @@ -974,8 +974,12 @@ } } + set local_test_authorities [list \ + [auth::authority::local] \ + [auth::authority::get_id -short_name "acs_testing"]] + # Default a local account username - if { $user_info(authority_id) == [auth::authority::local] + if { $user_info(authority_id) in $local_test_authorities && [auth::UseEmailForLoginP] && $username eq "" } {