Log Message:
-----------
Improved layout and labeling of error messages.
Modified Files:
--------------
pg/macros:
parserMultiPart.pl
Revision Data
-------------
Index: parserMultiPart.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/parserMultiPart.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -Lmacros/parserMultiPart.pl -Lmacros/parserMultiPart.pl -u -r1.2 -r1.3
--- macros/parserMultiPart.pl
+++ macros/parserMultiPart.pl
@@ -218,11 +218,19 @@
push(@text,check_string($result->{preview_text_string},'__'));
push(@student,check_string($result->{student_ans},'__'));
if ($result->{ans_message}) {
- push(@errors,"Answer $i: ".$result->{ans_message});
+ push(@errors,'<TR VALIGN="TOP"><TD STYLE="text-align:right; border:0px" NOWRAP>' .
+ "<I>In answer $i</I>: </TD>".
+ '<TD STYLE="text-align:left; border:0px">'.$result->{ans_message}.'</TD></TR>');
} else {$score += $result->{score}}
}
$ans->score($score/$self->length);
- $ans->{ans_message} = $ans->{error_message} = join("<BR>",@errors);
+ $ans->{ans_message} = $ans->{error_message} = "";
+ if (scalar(@errors)) {
+ $ans->{ans_message} = $ans->{error_message} =
+ '<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="ArrayLayout">' .
+ join('<TR><TD HEIGHT="4"></TD></TR>',@errors).
+ '</TABLE>';
+ }
if ($nonblank) {
$ans->{preview_latex_string} = '{'.join('}'.$self->{tex_separator}.'{',@latex).'}';
$ans->{preview_text_string} = join($self->{separator},@text);
|
