Return to Autoenroll.pl CVS log | Up to [LON-CAPA] / loncom / enrollment |
version 1.14, 2005/04/12 00:20:01 | version 1.15, 2005/11/07 15:43:22 |
---|---|
Line 105 | Line 105 |
} | } |
} | } |
foreach my $xlist (@crosslistings) { | foreach my $xlist (@crosslistings) { |
if ($xlist =~ m/^(\w+):(\w*)$/) { | if ($xlist =~ m/^([^:]+):(\w*)$/) { |
my $course_id = $1; | my $course_id = $1; |
my $gp = $2; | my $gp = $2; |
if (!grep/^$course_id$/,@{$affiliates{$crs}}) { | if (!grep/^$course_id$/,@{$affiliates{$crs}}) { |