--- loncom/interface/domainprefs.pm 2025/03/15 01:07:42 1.447.2.6 +++ loncom/interface/domainprefs.pm 2025/05/13 07:22:47 1.447.2.7 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.447.2.6 2025/03/15 01:07:42 raeburn Exp $ +# $Id: domainprefs.pm,v 1.447.2.7 2025/05/13 07:22:47 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -16510,8 +16510,8 @@ sub get_priv_creds { my $privkey = $privhash{'key'}; $privnum = $privhash{'version'}; if (($privnum) && ($privkey ne '')) { - $cipher = Crypt::CBC->new({'key' => $privkey, - 'cipher' => 'DES'}); + $cipher = Crypt::CBC->new(-pass => $privkey, + -cipher => 'Crypt::DES'); } } }