loncom/enrollment/Autoenroll.pl - diff

Return to Autoenroll.pl CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.18, 2006/05/16 21:55:56	version 1.21, 2006/07/08 17:29:15
Line 33	Line 33
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncoursedata;	use Apache::loncoursedata;
use Apache::lonmsg;	use Apache::lonmsg;
	use Apache::longroup;
use HTML::Entities;	use HTML::Entities;

# Determine the library server's domain and hostID	# Determine the library server's domain and hostID
Line 50	Line 51
if (! &localenroll::run($dom)) { next; }	if (! &localenroll::run($dom)) { next; }
$env{'user.domain'} = $dom;	$env{'user.domain'} = $dom;
# Determine the courses	# Determine the courses
my %courses = &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,\@hostids);	my %courses = &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,\@hostids,'Course');
my %affiliates = ();	my %affiliates = ();
my %enrollvar = ();	my %enrollvar = ();
my %reply = ();	my %reply = ();
Line 155	Line 156
foreach my $cc (@to_notify) {	foreach my $cc (@to_notify) {
my ($ccname,$ccdom);	my ($ccname,$ccdom);
if ($cc =~ /:/) {	if ($cc =~ /:/) {
($ccname,$ccdom) = split/:/,$cc;	($ccname,$ccdom) = split(/:/,$cc);
} elsif ($cc =~ /\@/) {	} elsif ($cc =~ /\@/) {
($ccname,$ccdom) = split/\@/,$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);
}	}