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.24 -r1.114.2.25 --- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 9 Apr 2021 17:17:52 -0000 1.114.2.24 +++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 1 Nov 2021 10:41:22 -0000 1.114.2.25 @@ -1831,27 +1831,11 @@ -authority_id $authority_id \ -impl_id $impl_id] - # See http://openacs.org/bugtracker/openacs/bug?format=table&f%5fstate=8&bug%5fnumber=2200 - # Basically, we want upgrades to work, so we have to check for - # version number -jfr - - set authentication_version [util_memoize [list apm_highest_version_name acs-authentication]] - set old_version_p [util_memoize [list apm_version_names_compare 5.1.3 $authentication_version]] - - if {[string is true $old_version_p]} { - return [acs_sc::invoke \ - -error \ - -impl_id $impl_id \ - -operation Authenticate \ - -call_args [list $username $password $parameters]] - - } else { - return [acs_sc::invoke \ - -error \ - -impl_id $impl_id \ - -operation Authenticate \ - -call_args [list $username $password $parameters $authority_id]] - } + return [acs_sc::invoke \ + -error \ + -impl_id $impl_id \ + -operation Authenticate \ + -call_args [list $username $password $parameters $authority_id]] } # ad_proc -deprecated auth::authentication::Authenticate args {