loncom/enrollment/Enrollment.pm - diff

Return to Enrollment.pm CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.17, 2004/08/23 17:07:27	version 1.18, 2004/09/13 16:36:34
Line 51 sub update_LC {	Line 51 sub update_LC {
my @localstudents = ();	my @localstudents = ();
my @futurestudents = ();	my @futurestudents = ();
my @activestudents = ();	my @activestudents = ();
	my @excludedstudents = ();
my $currlist;	my $currlist;
foreach my $uname (keys %{$roster} ) {	foreach my $uname (keys %{$roster} ) {
if ($uname =~ m/^(.+):$dom$/) {	if ($uname =~ m/^(.+):$dom$/) {
Line 62 sub update_LC {	Line 63 sub update_LC {
push @futurestudents, $1;	push @futurestudents, $1;
@{$$currlist{$1}} = @{$$roster{$uname}};	@{$$currlist{$1}} = @{$$roster{$uname}};
push @localstudents, $1;	push @localstudents, $1;
	} elsif ($$roster{$uname}[$lockedtype] == 1) {
	push @excludedstudents, $1;
}	}
}	}
}	}
Line 124 sub update_LC {	Line 127 sub update_LC {
# Check for multiple sections for a single student	# Check for multiple sections for a single student
my @okusers = ();	my @okusers = ();
foreach my $uname (@reg_students) {	foreach my $uname (@reg_students) {
if (@{$allenrolled{$uname}} > 1) {	if (grep/^$uname$/,@excludedstudents) {
	$$logmsg .= "No re-enrollment for $uname - user was previously manually unenrolled and locked.".$linefeed;
	} elsif (@{$allenrolled{$uname}} > 1) {
my @sections = ();	my @sections = ();
my $saved;	my $saved;
for (my $i=0; $i<@{$allenrolled{$uname}}; $i++) {	for (my $i=0; $i<@{$allenrolled{$uname}}; $i++) {