[LON-CAPA-cvs] cvs: loncom /enrollment Autoenroll.pl

[albertel]

albertel		Wed May 17 10:48:49 2006 EDT

  Modified files:              
    /loncom/enrollment	Autoenroll.pl 
  Log:
  - style police
  
  
Index: loncom/enrollment/Autoenroll.pl
diff -u loncom/enrollment/Autoenroll.pl:1.18 loncom/enrollment/Autoenroll.pl:1.19
--- loncom/enrollment/Autoenroll.pl:1.18	Tue May 16 17:55:56 2006
+++ loncom/enrollment/Autoenroll.pl	Wed May 17 10:48:49 2006
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 #Automated Enrollment script
-# $Id: Autoenroll.pl,v 1.18 2006/05/16 21:55:56 raeburn Exp $
+# $Id: Autoenroll.pl,v 1.19 2006/05/17 14:48:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -155,9 +155,9 @@
                                     foreach my $cc (@to_notify) {
                                         my ($ccname,$ccdom);
                                         if ($cc =~ /:/) {
-                                            ($ccname,$ccdom) = split/:/,$cc;
+                                            ($ccname,$ccdom) = split(/:/,$cc);
                                         } elsif ($cc =~ /\@/) {
-                                            ($ccname,$ccdom) = split/\@/,$cc;
+                                            ($ccname,$ccdom) = split(/\@/,$cc);
                                         }
                                         my $status =  &Apache::lonmsg::user_normal_msg($ccname,$ccdom,$subject,$message);
                                     }