|
version 1.1394, 2018/12/08 15:17:25
|
version 1.1395, 2018/12/08 17:38:47
|
|
Line 1741 sub trusted_domains {
|
Line 1741 sub trusted_domains {
|
| if (&domain($calldom) eq '') { |
if (&domain($calldom) eq '') { |
| return ($trusted,$untrusted); |
return ($trusted,$untrusted); |
| } |
} |
| unless ($cmdtype =~ /^(content|shared|enroll|coaurem|domroles|catalog|reqcrs|msg)$/) { |
unless ($cmdtype =~ /^(content|shared|enroll|coaurem|othcoau|domroles|catalog|reqcrs|msg)$/) { |
| return ($trusted,$untrusted); |
return ($trusted,$untrusted); |
| } |
} |
| my $callprimary = &domain($calldom,'primary'); |
my $callprimary = &domain($calldom,'primary'); |
|
Line 1763 sub trusted_domains {
|
Line 1763 sub trusted_domains {
|
| map { $possexc{$_} = 1; } @{$trustconfig->{$cmdtype}->{'exc'}}; |
map { $possexc{$_} = 1; } @{$trustconfig->{$cmdtype}->{'exc'}}; |
| } |
} |
| if (ref($trustconfig->{$cmdtype}->{'inc'}) eq 'ARRAY') { |
if (ref($trustconfig->{$cmdtype}->{'inc'}) eq 'ARRAY') { |
| |
$possinc{$intcalldom} = 1; |
| map { $possinc{$_} = 1; } @{$trustconfig->{$cmdtype}->{'inc'}}; |
map { $possinc{$_} = 1; } @{$trustconfig->{$cmdtype}->{'inc'}}; |
| } |
} |
| } |
} |
|
Line 1797 sub trusted_domains {
|
Line 1798 sub trusted_domains {
|
| } |
} |
| foreach my $exc (@allexc) { |
foreach my $exc (@allexc) { |
| if (ref($doms_by_intdom{$exc}) eq 'ARRAY') { |
if (ref($doms_by_intdom{$exc}) eq 'ARRAY') { |
| $untrusted = $doms_by_intdom{$exc}; |
push(@{$untrusted},@{$doms_by_intdom{$exc}}); |
| } |
} |
| } |
} |
| foreach my $inc (@allinc) { |
foreach my $inc (@allinc) { |
| if (ref($doms_by_intdom{$inc}) eq 'ARRAY') { |
if (ref($doms_by_intdom{$inc}) eq 'ARRAY') { |
| $trusted = $doms_by_intdom{$inc}; |
push(@{$trusted},@{$doms_by_intdom{$inc}}); |
| } |
} |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl