version 1.20, 2007/09/05 12:46:21
|
version 1.21, 2007/10/29 19:26:48
|
Line 252
|
Line 252
|
$cloners[0] = $val; |
$cloners[0] = $val; |
} |
} |
foreach my $item (@cloners) { |
foreach my $item (@cloners) { |
if ($item ne '*') { |
next if ($item =~ /^\s*$/); |
my ($clname,$cldom) = split(/:/,$item); |
next if ($item eq '*'); |
if ($clname eq '*') { |
|
if ($cldom =~ /^$match_dom$/) { |
my ($clname,$cldom) = split(/:/,$item); |
if (!&Apache::lonnet::domain($cldom)) { |
if ($clname eq '*') { |
$disallowed{'domain'} .= $item.','; |
if ($cldom =~ /^$match_dom$/) { |
} |
if (!&Apache::lonnet::domain($cldom)) { |
} else { |
$disallowed{'domain'} .= $item.','; |
$disallowed{'format'} .= $item.','; |
} |
} |
} else { |
} elsif ($item !~/^($match_uname)\:($match_dom)$/) { |
$disallowed{'format'} .= $item.','; |
$disallowed{'format'} .= $item.','; |
} |
} else { |
} elsif ($item !~/^($match_uname)\:($match_dom)$/) { |
if (!&Apache::lonnet::domain($cldom)) { |
$disallowed{'format'} .= $item.','; |
$disallowed{'domain'} .= $item.','; |
} else { |
} elsif (&Apache::lonnet::homeserver($clname,$cldom) eq 'no_host') { |
if (!&Apache::lonnet::domain($cldom)) { |
$disallowed{'newuser'} .= $item.','; |
$disallowed{'domain'} .= $item.','; |
} |
} elsif (&Apache::lonnet::homeserver($clname,$cldom) eq 'no_host') { |
} |
$disallowed{'newuser'} .= $item.','; |
} |
} |
|
} |
} |
} |
foreach my $key (keys(%disallowed)) { |
foreach my $key (keys(%disallowed)) { |
$disallowed{$key} =~ s/,$//; |
$disallowed{$key} =~ s/,$//; |
Line 290
|
Line 291
|
$output .= '<li>LON-CAPA user(s) do(es) not exist: '. |
$output .= '<li>LON-CAPA user(s) do(es) not exist: '. |
'<b>'.$disallowed{'newuser'}.'</b></li>'; |
'<b>'.$disallowed{'newuser'}.'</b></li>'; |
} |
} |
$output .= '.</ul>'; |
$output .= '</ul>'; |
} |
} |
return $output; |
return $output; |
</validator> |
</validator> |