loncom/interface/lonselstudent.pm - diff

Return to lonselstudent.pm CVS log

Up to [LON-CAPA] / loncom / interface

-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 {
      #  Enumerate the 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: