[WWcvs] webwork2: Change "Reduced Scoring" to "Reduced Credit" and adjust message depending on whether it is before or after the due

[Arnie P. v. a. <we...@ma...>]

Log Message:
-----------
Change "Reduced Scoring" to "Reduced Credit" and adjust message depending
on whether it is before or after the due date

Modified Files:
--------------
    webwork2/lib/WeBWorK/ContentGenerator:
        ProblemSet.pm

Revision Data
-------------
Index: ProblemSet.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/ProblemSet.pm,v
retrieving revision 1.94
retrieving revision 1.95
diff -Llib/WeBWorK/ContentGenerator/ProblemSet.pm -Llib/WeBWorK/ContentGenerator/ProblemSet.pm -u -r1.94 -r1.95
--- lib/WeBWorK/ContentGenerator/ProblemSet.pm
+++ lib/WeBWorK/ContentGenerator/ProblemSet.pm
@@ -325,9 +325,15 @@
 		my $reducedScoringValue = $ce->{pg}->{ansEvalDefaults}->{reducedScoringValue};
 		my $reducedScoringPerCent = int(100*$reducedScoringValue+.5);
 		my $beginReducedScoringPeriod =  $self->formatDateTime($set->due_date() - $reducedScoringPeriodSec);
-		print CGI::div({class=>"ResultsAlert"},"This assignment has a Reduced Scoring Period that begins
- $beginReducedScoringPeriod and ends on the due date, $dueDate.  During this period all additional
- work done counts $reducedScoringPerCent\% of the original.");
+		if (time < $set->due_date()) {
+			print CGI::div({class=>"ResultsAlert"},"This assignment has a Reduced Credit Period that begins
+			$beginReducedScoringPeriod and ends on the due date, $dueDate.  During this period all additional
+			work done counts $reducedScoringPerCent\% of the original.");
+		} else {
+			print CGI::div({class=>"ResultsAlert"},"This assignment had a Reduced Credit Period that began
+			$beginReducedScoringPeriod and ended on the due date, $dueDate.  During that period all additional
+			work done counted $reducedScoringPerCent\% of the original.");
+		}
 	}
 	
 	# DBFIXME use iterator