version 1.290, 2005/11/15 15:52:51
|
version 1.291, 2005/11/15 16:04:14
|
Line 3128 sub get_course_users {
|
Line 3128 sub get_course_users {
|
my $now = time; |
my $now = time; |
foreach my $student (keys(%{$classlist})) { |
foreach my $student (keys(%{$classlist})) { |
my $match = 0; |
my $match = 0; |
if (ref($sections) eq 'ARRAY') && (@{$sections} > 0) { |
if ((ref($sections) eq 'ARRAY') && (@{$sections} > 0)) { |
unless(grep(/^\Q$$classlist{$student}[$idx{section}]\E$/, |
unless(grep(/^\Q$$classlist{$student}[$idx{section}]\E$/, |
@{$sections})) { |
@{$sections})) { |
next; |
next; |
Line 3207 sub get_user_info {
|
Line 3207 sub get_user_info {
|
my ($udom,$uname,$idx,$userdata) = @_; |
my ($udom,$uname,$idx,$userdata) = @_; |
$$userdata{$uname.':'.$udom}[$$idx{fullname}] = |
$$userdata{$uname.':'.$udom}[$$idx{fullname}] = |
&plainname($uname,$udom,'lastname'); |
&plainname($uname,$udom,'lastname'); |
$$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname |
$$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname; |
$$userdata{$uname.':'.$udom}[$$idx{uname}] = $udom |
$$userdata{$uname.':'.$udom}[$$idx{uname}] = $udom; |
return; |
return; |
} |
} |
|
|