Log Message:
-----------
The sorting order in scoring files is now never random. It is by last name,
then first name, and then by user_id and is case insensitive. Before it
was by last name only and case sensitive.
Arnie
Modified Files:
--------------
webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor:
Scoring.pm
Revision Data
-------------
Index: Scoring.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/Scoring.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -Llib/WeBWorK/ContentGenerator/Instructor/Scoring.pm -Llib/WeBWorK/ContentGenerator/Instructor/Scoring.pm -u -r1.40 -r1.41
--- lib/WeBWorK/ContentGenerator/Instructor/Scoring.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/Scoring.pm
@@ -64,7 +64,13 @@
next unless $User;
$Users{$User->user_id} = $User;
}
- my @sortedUserIDs = sort { $Users{$a}->last_name cmp $Users{$b}->last_name }
+ my @sortedUserIDs = sort {
+ lc($Users{$a}->last_name) cmp lc($Users{$b}->last_name)
+ ||
+ lc($Users{$a}->first_name) cmp lc($Users{$b}->first_name)
+ ||
+ lc($Users{$a}->user_id) cmp lc($Users{$b}->user_id)
+ }
keys %Users;
#my @userInfo = (\%Users, \@sortedUserIDs);
$WeBWorK::timer->continue("done pre-fetching users") if defined($WeBWorK::timer);
|
