[BACK]Return to course.initialization.helper CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / html / adm / helper

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

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>
Removed from v.1.20  
changed lines
  Added in v.1.21

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