loncom/enrollment/Autoenroll.pl - diff

Return to Autoenroll.pl CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.16, 2005/11/15 20:53:50	version 1.19, 2006/05/17 14:48:49
Line 25	Line 25
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
BEGIN {
eval "use Apache2::compat();";
};
use strict;	use strict;
use lib '/home/httpd/lib/perl';	use lib '/home/httpd/lib/perl';
use localenroll;	use localenroll;
Line 156 BEGIN {	Line 153 BEGIN {
$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 '') ) {