--- loncom/html/adm/helper/course.initialization.helper 2007/09/03 20:23:57 1.18
+++ loncom/html/adm/helper/course.initialization.helper 2009/02/09 13:41:04 1.22
@@ -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.
@@ -251,28 +251,28 @@
} else {
$cloners[0] = $val;
}
- my @alldoms = &Apache::lonnet::all_domains();
foreach my $item (@cloners) {
- if ($item ne '*') {
- my ($clname,$cldom) = split(/:/,$item);
- if ($clname eq '*') {
- if ($cldom =~ /^$match_dom$/) {
- if (!grep(/^\Q$cldom\E$/,@alldoms)) {
- $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/,$//;
@@ -291,7 +291,7 @@
$output .= 'LON-CAPA user(s) do(es) not exist: '.
''.$disallowed{'newuser'}.'';
}
- $output .= '.';
+ $output .= '';
}
return $output;