loncom/enrollment/Autoenroll.pl - diff

Return to Autoenroll.pl CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.14, 2005/04/12 00:20:01	version 1.16, 2005/11/15 20:53:50
Line 25	Line 25
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
	BEGIN {
	eval "use Apache2::compat();";
	};
use strict;	use strict;
use lib '/home/httpd/lib/perl';	use lib '/home/httpd/lib/perl';
use localenroll;	use localenroll;
Line 105	Line 108
}	}
}	}
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}}) {