![[BACK]](/icons/back.gif){kind=icon}
Return to Autoenroll.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / enrollment|
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}}) { |