loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.1522, 2023/12/28 18:14:09
+version 1.1523, 2024/02/24 23:41:44
  Line 2975  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') {