Log Message:
-----------
Fixed some indenting.
Modified Files:
--------------
webwork-modperl/lib/WeBWorK/ContentGenerator:
ProblemSets.pm
Revision Data
-------------
Index: ProblemSets.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/ProblemSets.pm,v
retrieving revision 1.61
retrieving revision 1.62
diff -Llib/WeBWorK/ContentGenerator/ProblemSets.pm -Llib/WeBWorK/ContentGenerator/ProblemSets.pm -u -r1.61 -r1.62
--- lib/WeBWorK/ContentGenerator/ProblemSets.pm
+++ lib/WeBWorK/ContentGenerator/ProblemSets.pm
@@ -370,36 +370,36 @@
} else {
my ( $startTime, $score );
- if ( defined( $set->assignment_type() ) &&
+ if ( defined( $set->assignment_type() ) &&
$set->assignment_type() =~ /gateway/ &&
$set->set_id() =~ /,v\d+$/ ) {
- $startTime = localtime( $set->version_creation_time() );
+ $startTime = localtime( $set->version_creation_time() );
- # find score
- my @problemRecords = $db->getAllUserProblems( $set->user_id(),
+ # find score
+ my @problemRecords = $db->getAllUserProblems( $set->user_id(),
$set->set_id() );
- my $possible = 0;
- $score = 0;
- foreach my $pRec ( @problemRecords ) {
- if ( defined( $pRec ) && $score ne 'undef' ) {
- $score += $pRec->status() || 0;
- } else {
- $score = 'undef';
- }
- $possible++;
+ my $possible = 0;
+ $score = 0;
+ foreach my $pRec ( @problemRecords ) {
+ if ( defined( $pRec ) && $score ne 'undef' ) {
+ $score += $pRec->status() || 0;
+ } else {
+ $score = 'undef';
+ }
+ $possible++;
+ }
+ $score = "$score/$possible";
+ } else {
+ $startTime = ' ';
+ $score = $startTime;
}
- $score = "$score/$possible";
- } else {
- $startTime = ' ';
- $score = $startTime;
- }
- return CGI::Tr(CGI::td([
- $control,
- $interactive,
- $score,
- $startTime,
- $status,
- ]));
+ return CGI::Tr(CGI::td([
+ $control,
+ $interactive,
+ $score,
+ $startTime,
+ $status,
+ ]));
}
}
|
