--- loncom/interface/courseprefs.pm	2025/03/15 01:24:03	1.49.2.28.2.22
+++ loncom/interface/courseprefs.pm	2025/05/13 07:19:19	1.49.2.28.2.23
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set configuration settings for a course
 #
-# $Id: courseprefs.pm,v 1.49.2.28.2.22 2025/03/15 01:24:03 raeburn Exp $
+# $Id: courseprefs.pm,v 1.49.2.28.2.23 2025/05/13 07:19:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1890,8 +1890,8 @@ sub get_credentials {
                         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');
                         }
                     }
                 }