Menu
▾
▴
[WWcvs] webwork2: Stats: update to correctly read data for gateway assignments.
|
From: Gavin L. v. a. <we...@ma...> - 2008-06-23 20:18:34
|
Log Message:
-----------
Stats: update to correctly read data for gateway assignments.
Modified Files:
--------------
webwork2/lib/WeBWorK/ContentGenerator/Instructor:
Stats.pm
Revision Data
-------------
Index: Stats.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Instructor/Stats.pm,v
retrieving revision 1.68
retrieving revision 1.69
diff -Llib/WeBWorK/ContentGenerator/Instructor/Stats.pm -Llib/WeBWorK/ContentGenerator/Instructor/Stats.pm -u -r1.68 -r1.69
--- lib/WeBWorK/ContentGenerator/Instructor/Stats.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/Stats.pm
@@ -335,8 +335,19 @@
debug("Begin obtaining problem records for user $student set $setName");
# DBFIXME use an iterator
- my @problemRecords = sort {$a->problem_id <=> $b->problem_id } $db->getAllUserProblems( $student, $setName );
+ my @problemRecords;
+ if ( $setRecord->assignment_type =~ /gateway/ ) {
+ my @setVersions = $db->listSetVersions($student, $setName);
+ foreach my $ver ( @setVersions ) {
+ push( @problemRecords,
+ $db->getAllProblemVersions($student,
+ $setName, $ver) );
+ }
+ } else {
+ @problemRecords = sort {$a->problem_id <=> $b->problem_id } $db->getAllUserProblems( $student, $setName );
+ }
debug("End obtaining problem records for user $student set $setName");
+
my $num_of_problems = @problemRecords;
$max_num_problems = ($max_num_problems>= $num_of_problems) ? $max_num_problems : $num_of_problems;
########################################
|
