Log Message:
-----------
Add underscores to the anonymous unique identifier for
questionnaires in WW 2 by using
${setNumber}_${courseName}_$psvnNumber
Modified Files:
--------------
pg/macros:
PGanswermacros.pl
Revision Data
-------------
Index: PGanswermacros.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/PGanswermacros.pl,v
retrieving revision 1.47
retrieving revision 1.48
diff -Lmacros/PGanswermacros.pl -Lmacros/PGanswermacros.pl -u -r1.47 -r1.48
--- macros/PGanswermacros.pl
+++ macros/PGanswermacros.pl
@@ -3149,7 +3149,7 @@
my $ans_eval = sub {
my $text = shift;
$text = '' unless defined($text);
- my $new_text = "\n$setNumber$courseName$psvnNumber-Problem-$probNum-Question-$num:\n $text "; # modify entered text
+ my $new_text = "\n${setNumber}_${courseName}_$psvnNumber-Problem-$probNum-Question-$num:\n $text "; # modify entered text
my $out = &$ans_eval_template($new_text); # standard evaluator
#warn "$QUESTIONNAIRE_ANSWERS";
$out->{student_ans} = escapeHTML($text); # restore original entered text
|
