[LON-CAPA-cvs] cvs: loncom(version_2_12_X) /interface domainprefs.pm

[raeburn]

raeburn		Tue May 13 07:22:48 2025 EDT

  Modified files:              (Branch: version_2_12_X)
    /loncom/interface	domainprefs.pm 
  Log:
  - For 2.12
    Backport 1.452
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.447.2.6 loncom/interface/domainprefs.pm:1.447.2.7
--- loncom/interface/domainprefs.pm:1.447.2.6	Sat Mar 15 01:07:42 2025
+++ loncom/interface/domainprefs.pm	Tue May 13 07:22:47 2025
@@ -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 @@
             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');
             }
         }
     }