--- loncom/enrollment/Autoenroll.pl	2005/04/12 00:20:01	1.14
+++ loncom/enrollment/Autoenroll.pl	2005/11/07 15:43:22	1.15
@@ -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.15 2005/11/07 15:43:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -105,7 +105,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}}) {