Allow hiding the the structure of a MultiAnswer answer during

preview by setting boolean scaffold_past_open in the rh_ans
hash of all answers in sections which were past the last open
one.

macros/core/scaffold.pl

@@ -463,6 +463,10 @@ sub section_answers {
 			if $answers{$name} && (($answers{$name}{type} || "") eq "essay" || $answers{$name}{"scaffold_force"});
 		$evaluator->{rh_ans}{ans_message} = "";
 		delete $evaluator->{rh_ans}{error_message};
+		# In sections which are not yet open, make that known to answer
+		# evaluators. For MultiAnswer using a single result, this allows
+		# hiding the structure of the answer during a preview.
+		$PG_ANSWERS_HASH->{$name}{ans_eval}{rh_ans}{scaffold_past_open} = 1 if ($section_no > $prior_last_open);
 	}
 
 	my $myLastSet;    # we save the name of the last answer field whose score was set

macros/parsers/parserMultiAnswer.pl

@@ -292,6 +292,10 @@ sub single_check {
 	$ans->{_filter_name} = "MultiAnswer Single Check";
 	my $inputs = $main::inputs_ref;
 	$self->{ans}[0] = $self->{cmp}[0]->evaluate($ans->{student_ans});
+	# Allow hiding the the structure of the answer for an
+	# answer in an unopened part of a scaffold problem.
+	my $hide_preview = 0;
+	$hide_preview = 1 if ($ans->{scaffold_past_open});
 	foreach my $i (1 .. $self->length - 1) {
 		$self->{ans}[$i] = $self->{cmp}[$i]->evaluate($inputs->{ $self->ANS_NAME($i) });
 	}
@@ -328,13 +332,15 @@ sub single_check {
 			. '</TABLE>';
 	}
 	if ($nonblank) {
-		$ans->{preview_latex_string} =
-			(
-				defined($self->{tex_format})
-				? sprintf($self->{tex_format}, @latex)
-				: join($self->{tex_separator}, @latex));
-		$ans->{preview_text_string} =
-			(defined($self->{format}) ? sprintf($self->{format}, @text) : join($self->{separator}, @text));
+		unless ($hide_preview) {
+			$ans->{preview_latex_string} =
+				(
+					defined($self->{tex_format})
+					? sprintf($self->{tex_format}, @latex)
+					: join($self->{tex_separator}, @latex));
+			$ans->{preview_text_string} =
+				(defined($self->{format}) ? sprintf($self->{format}, @text) : join($self->{separator}, @text));
+		}
 		$ans->{student_ans} =
 			(defined($self->{format}) ? sprintf($self->{format}, @student) : join($self->{separator}, @student));
 	}