--- loncom/enrollment/Autoenroll.pl	2005/11/15 20:53:50	1.16
+++ loncom/enrollment/Autoenroll.pl	2006/05/17 14:48:49	1.19
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 #Automated Enrollment script
-# $Id: Autoenroll.pl,v 1.16 2005/11/15 20:53:50 albertel Exp $
+# $Id: Autoenroll.pl,v 1.19 2006/05/17 14:48:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -25,9 +25,6 @@
 #
 # http://www.lon-capa.org/
 #
-BEGIN {
-    eval "use Apache2::compat();";
-};
     use strict;
     use lib '/home/httpd/lib/perl';
     use localenroll;
@@ -156,7 +153,12 @@ BEGIN {
                                         $to_notify[0] = $enrollvar{$crs}{notifylist};
                                     }
                                     foreach my $cc (@to_notify) {
-                                        my ($ccname,$ccdom) = split/@/,$cc;
+                                        my ($ccname,$ccdom);
+                                        if ($cc =~ /:/) {
+                                            ($ccname,$ccdom) = split(/:/,$cc);
+                                        } elsif ($cc =~ /\@/) {
+                                            ($ccname,$ccdom) = split(/\@/,$cc);
+                                        }
                                         my $status =  &Apache::lonmsg::user_normal_msg($ccname,$ccdom,$subject,$message);
                                     }
                                     if ( ($enrollvar{$crs}{notifylist} eq '') && ($newusermsg ne '') ) {