[WWcvs] webwork-modperl: On web page, display a pretty sort_mthod_name.

[<we...@ma...>]

Log Message:
-----------
On web page, display a pretty sort_mthod_name. E.g. remove underscores.

Arnie

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor:
        StudentProgress.pm

Revision Data
-------------
Index: StudentProgress.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/StudentProgress.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -Llib/WeBWorK/ContentGenerator/Instructor/StudentProgress.pm -Llib/WeBWorK/ContentGenerator/Instructor/StudentProgress.pm -u -r1.12 -r1.13
--- lib/WeBWorK/ContentGenerator/Instructor/StudentProgress.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/StudentProgress.pm
@@ -298,7 +298,16 @@
 		}
 
 	};
-
+	my %display_sort_method_name = (
+		last_name => 'last name',
+		first_name => 'first name',
+		email_address => 'email address',
+		score => 'score',
+		index => 'success indicator',
+		section => 'section',
+		recitation => 'recitation',
+		user_id => 'login name',
+	);				
 ###############################################################
 #  Print tables
 ###############################################################
@@ -511,7 +520,7 @@
 		Click heading to sort table. ",
 		CGI::br(),
 		CGI::br(),
-		defined($sort_method_name) ?" Entries are sorted by $sort_method_name":"",
+		defined($sort_method_name) ?" Entries are sorted by $display_sort_method_name{$sort_method_name}.":"",
 		CGI::start_table({-border=>5,style=>'font-size:smaller'}),
 		CGI::Tr(CGI::td(  {-align=>'left'},
 			['Name'.CGI::br().CGI::a({"href"=>$self->systemLink($setStatsPage,params=>{sort=>'first_name' })},'First').