|
version 1.18, 2007/09/03 20:23:57
|
version 1.19, 2007/09/05 00:59:51
|
|
Line 251
|
Line 251
|
| } else { |
} else { |
| $cloners[0] = $val; |
$cloners[0] = $val; |
| } |
} |
| my @alldoms = &Apache::lonnet::all_domains(); |
|
| foreach my $item (@cloners) { |
foreach my $item (@cloners) { |
| if ($item ne '*') { |
if ($item ne '*') { |
| my ($clname,$cldom) = split(/:/,$item); |
my ($clname,$cldom) = split(/:/,$item); |
| if ($clname eq '*') { |
if ($clname eq '*') { |
| if ($cldom =~ /^$match_dom$/) { |
if ($cldom =~ /^$match_dom$/) { |
| if (!grep(/^\Q$cldom\E$/,@alldoms)) { |
if (!&Apache::lonnet::domain($udom)) { |
| $disallowed{'domain'} .= $item.','; |
$disallowed{'domain'} .= $item.','; |
| } |
} |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to course.initialization.helper CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / html / adm / helper