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