[WWcvs] webwork-modperl: Added links to problems to the stats page.

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
Added links to problems to the stats page.

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

Revision Data
-------------
Index: Stats.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/Stats.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -Llib/WeBWorK/ContentGenerator/Instructor/Stats.pm -Llib/WeBWorK/ContentGenerator/Instructor/Stats.pm -u -r1.49 -r1.50
--- lib/WeBWorK/ContentGenerator/Instructor/Stats.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/Stats.pm
@@ -431,12 +431,15 @@
 	my %index_percentiles = determine_percentiles(\@brackets1, @index_list);
     my %score_percentiles = determine_percentiles(\@brackets1, @score_list);
     my %attempts_percentiles_for_problem = ();
+    my %problemPage                      = (); # link to the problem page
     foreach my $probID (@problemIDs) {
     	$attempts_percentiles_for_problem{$probID} =   {
     		determine_percentiles([@brackets2], @{$attempts_list_for_problem{$probID}})
-    	};    
+    	}; 
+    	$problemPage{$probID} = $urlpath->newFromModule("WeBWorK::ContentGenerator::Problem",
+			courseID => $courseName, setID => $setName, problemID => $probID);
     }
-    
+ 
 #####################################################################################
 # Table showing the percentage of students with correct answers for each problems
 #####################################################################################
@@ -446,7 +449,9 @@
 	   CGI::p('The percentage of active students with correct answers for each problem'),
 		CGI::start_table({-border=>1}),
 		CGI::Tr(CGI::td(
-			['Problem #', @problemIDs]
+			['Problem #', 
+			   map {CGI::a({ href=>$self->systemLink($problemPage{$_}) },$_)} @problemIDs
+			]
 		)),
 		CGI::Tr(CGI::td(
 			[ '% correct',map {($number_of_students_attempting_problem{$_})
@@ -519,11 +524,9 @@
 
 
 	foreach my $probID (@problemIDs) {
-	    my $problemPage = $urlpath->newFromModule("WeBWorK::ContentGenerator::Problem",
-			courseID => $courseName, setID => $setName, problemID => $probID);
 		print	CGI::Tr(
 					CGI::td( [
-						CGI::a({href=>$self->systemLink($problemPage)},"Prob $probID"),
+						CGI::a({ href=>$self->systemLink($problemPage{$probID}) },"Prob $probID"),
 						( prevent_repeats reverse map { sprintf("%0.0f",$attempts_percentiles_for_problem{$probID}->{$_})   } @brackets2),
 
 						]