Log Message:
-----------
Added commment
Modified Files:
--------------
pg/lib:
AnswerHash.pm
Revision Data
-------------
Index: AnswerHash.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/AnswerHash.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -Llib/AnswerHash.pm -Llib/AnswerHash.pm -u -r1.6 -r1.7
--- lib/AnswerHash.pm
+++ lib/AnswerHash.pm
@@ -504,7 +504,7 @@
} elsif (ref($input) eq 'ARRAY' ) { # sometimes the answer may already be decoded into an array.
my @input = @$input;
$self-> {rh_ans} -> {original_student_ans} = " ( " .join(", ",@input) . " ) ";
- $input = \@input;
+ $input = \@input; #make a local copy
$self-> {rh_ans} -> {student_ans} = $input;
} else {
|
