[WWcvs] webwork-modperl: Changed the permission setting for whether or not

[jj v. a. <we...@ma...>]

Log Message:
-----------
Changed the permission setting for whether or not hardcopy can show correct answers before the answer date.  The old value was really for the "Show Past Answers" button, not for being able to see correct answers early.

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

Revision Data
-------------
Index: Hardcopy.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Hardcopy.pm,v
retrieving revision 1.73
retrieving revision 1.74
diff -Llib/WeBWorK/ContentGenerator/Hardcopy.pm -Llib/WeBWorK/ContentGenerator/Hardcopy.pm -u -r1.73 -r1.74
--- lib/WeBWorK/ContentGenerator/Hardcopy.pm
+++ lib/WeBWorK/ContentGenerator/Hardcopy.pm
@@ -790,7 +790,7 @@
 	my $showCorrectAnswers  = $r->param("showCorrectAnswers") || 0;
 	my $showHints           = $r->param("showHints")          || 0;
 	my $showSolutions       = $r->param("showSolutions")      || 0;
-	unless ($authz->hasPermissions($userID, "view_answers") or time > $MergedSet->answer_date) {
+	unless ($authz->hasPermissions($userID, "show_correct_answers_before_answer_date") or time > $MergedSet->answer_date) {
 		$showCorrectAnswers = 0;
 		$showSolutions      = 0;
 	}