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++) { |