--- loncom/enrollment/Autoenroll.pl 2005/04/12 00:20:01 1.14 +++ loncom/enrollment/Autoenroll.pl 2005/11/15 20:53:50 1.16 @@ -1,7 +1,7 @@ #!/usr/bin/perl # #Automated Enrollment script -# $Id: Autoenroll.pl,v 1.14 2005/04/12 00:20:01 raeburn Exp $ +# $Id: Autoenroll.pl,v 1.16 2005/11/15 20:53:50 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,6 +25,9 @@ # # http://www.lon-capa.org/ # +BEGIN { + eval "use Apache2::compat();"; +}; use strict; use lib '/home/httpd/lib/perl'; use localenroll; @@ -105,7 +108,7 @@ } } foreach my $xlist (@crosslistings) { - if ($xlist =~ m/^(\w+):(\w*)$/) { + if ($xlist =~ m/^([^:]+):(\w*)$/) { my $course_id = $1; my $gp = $2; if (!grep/^$course_id$/,@{$affiliates{$crs}}) {