Diff for /loncom/html/adm/helper/course.initialization.helper between versions 1.18 and 1.20

version 1.18, 2007/09/03 20:23:57 version 1.20, 2007/09/05 12:46:21
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($cldom)) {
                           $disallowed{'domain'} .= $item.',';                            $disallowed{'domain'} .= $item.',';
                       }                        }
                   } else {                    } else {
Line 266 Line 265
               } elsif ($item !~/^($match_uname)\:($match_dom)$/) {                } elsif ($item !~/^($match_uname)\:($match_dom)$/) {
                   $disallowed{'format'} .= $item.',';                    $disallowed{'format'} .= $item.',';
               } else {                } else {
                   if (!grep(/^\Q$cldom\E$/,@alldoms)) {                    if (!&Apache::lonnet::domain($cldom)) {
                       $disallowed{'domain'} .= $item.',';                         $disallowed{'domain'} .= $item.','; 
                   } elsif (&Apache::lonnet::homeserver($clname,$cldom) eq 'no_host') {                    } elsif (&Apache::lonnet::homeserver($clname,$cldom) eq 'no_host') {
                       $disallowed{'newuser'} .= $item.',';                        $disallowed{'newuser'} .= $item.',';

Removed from v.1.18  
changed lines
  Added in v.1.20


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>