[WWcvs] pg: Detect preview mode correctly for either WW1 or WW2.

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

Log Message:
-----------
Detect preview mode correctly for either WW1 or WW2.

Modified Files:
--------------
    pg/lib/Value:
        AnswerChecker.pm

Revision Data
-------------
Index: AnswerChecker.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/AnswerChecker.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -Llib/Value/AnswerChecker.pm -Llib/Value/AnswerChecker.pm -u -r1.53 -r1.54
--- lib/Value/AnswerChecker.pm
+++ lib/Value/AnswerChecker.pm
@@ -65,7 +65,8 @@
     ($ans->{requireParenMatch}? (): ignoreEndpointTypes => 1),  # for Intervals
     $self->cmp_contextFlags($ans),   # any additional ones from the object itself
   );
-  $ans->{isPreview} = $self->getPG('$inputs_ref->{previewAnswers}');
+  my $inputs = $self->getPG('$inputs_ref',{action=>""});
+  $ans->{isPreview} = $inputs->{previewAnswers} || ($inputs->{action} =~ m/^Preview/);
   $ans->{cmp_class} = $self->cmp_class($ans) unless $ans->{cmp_class};
   $ans->{error_message} = $ans->{ans_message} = ''; # clear any old messages
   $ans->{preview_latex_string} = $ans->{preview_text_string} = '';