loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.1172.2.146.2.16, 2023/10/06 02:48:36
+version 1.1172.2.146.2.17, 2024/02/25 05:55:09
  Line 2696  sub get_domain_defaults {
                  $domdefaults{'ltiprivhosts'} = $domconfig{'ltisec'}{'private'}{'keys'};
              }
          }
+         if (ref($domconfig{'ltisec'}{'suggested'}) eq 'HASH') {
+             my %suggestions = %{$domconfig{'ltisec'}{'suggested'}};
+             foreach my $item (keys(%{$domconfig{'ltisec'}{'suggested'}})) {
+                 unless (ref($domconfig{'ltisec'}{'suggested'}{$item}) eq 'HASH') {
+                     delete($suggestions{$item});
+                 }
+             }
+             if (keys(%suggestions)) {
+                 $domdefaults{'linkprotsuggested'} = \%suggestions;
+             }
+         }
      }
      if (ref($domconfig{'toolsec'}) eq 'HASH') {
          if (ref($domconfig{'toolsec'}{'encrypt'}) eq 'HASH') {