version 1.4, 2006/05/17 15:04:42
|
version 1.5, 2006/05/17 15:20:56
|
Line 71 sub get_people_in_class {
|
Line 71 sub get_people_in_class {
|
# Enumerate the course_personnel. |
# Enumerate the course_personnel. |
# |
# |
my @course_personnel; |
my @course_personnel; |
for (sort(keys(%coursepersonnel))) { |
for my $role (sort(keys(%coursepersonnel))) { |
for my $role (split(/,/, $coursepersonnel{$_})) { |
# extract the names so we can sort them |
# extract the names so we can sort them |
my @people; |
my @people; |
for my $person (split(/,/, $coursepersonnel{$role})) { |
|
my ($uname,$domain) = split(/:/, $person); |
for (split(/,/, $role)) { |
push(@people, [&Apache::loncommon::plainname($uname,$domain), |
push(@people, [split(/:/, $role)]); |
$uname,$domain]); |
} |
} |
|
@people = sort { $a->[0] cmp $b->[0] } (@people); |
@people = sort { $a->[0] cmp $b->[0] } (@people); |
|
|
|
for my $person (@people) { |
for my $person (@people) { |
push(@course_personnel, [join(':', @$person), $person->[0], '', $_]); |
push(@course_personnel, [join(':', $person->[1],$person->[2]), |
} |
$person->[0], '', '', $role]); |
} |
} |
} |
} |
# Students must be split into the three categories: |
# Students must be split into the three categories: |