--- loncom/html/adm/helper/course.initialization.helper 2007/09/05 00:59:51 1.19 +++ loncom/html/adm/helper/course.initialization.helper 2009/02/12 21:15:53 1.23 @@ -57,9 +57,9 @@ - + - The "Course Description" is the name of the course that will be + The "Course Title" is the name of the course that will be seen by the students. You may now modify the description and hit "Next ->" to continue.
@@ -197,7 +197,7 @@ who will receive the feedback, such as a different instructor or a TA. Please enter their LON-CAPA address below, in the form user:domain, where "user" and "domain" - are both the LON-CAPA username and LON-CAPA domain, not an email + are both the LON-CAPA username and LON-CAPA domain, not an e-mail address.

return &mt('

Your current LON-CAPA domain is "[_1]".

',"$helper->{DATA}->{DOM}"); @@ -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($udom)) { - $disallowed{'domain'} .= $item.','; - } - } else { - $disallowed{'format'} .= $item.','; - } - } elsif ($item !~/^($match_uname)\:($match_dom)$/) { - $disallowed{'format'} .= $item.','; - } else { - if (!grep(/^\Q$cldom\E$/,@alldoms)) { - $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;