version 1.17, 2006/04/08 07:12:16
|
version 1.18, 2006/05/16 21:55:56
|
Line 153
|
Line 153
|
$to_notify[0] = $enrollvar{$crs}{notifylist}; |
$to_notify[0] = $enrollvar{$crs}{notifylist}; |
} |
} |
foreach my $cc (@to_notify) { |
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); |
my $status = &Apache::lonmsg::user_normal_msg($ccname,$ccdom,$subject,$message); |
} |
} |
if ( ($enrollvar{$crs}{notifylist} eq '') && ($newusermsg ne '') ) { |
if ( ($enrollvar{$crs}{notifylist} eq '') && ($newusermsg ne '') ) { |