Log Message:
-----------
Create an anonymous unique identifier for
questionnaires in WW 2 by using
$setNumber$courseName$psvnNumber in place of
$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.40
retrieving revision 1.41
diff -Lmacros/PGanswermacros.pl -Lmacros/PGanswermacros.pl -u -r1.40 -r1.41
--- macros/PGanswermacros.pl
+++ macros/PGanswermacros.pl
@@ -3133,10 +3133,13 @@
my $ans_eval_template = store_ans_at(\$QUESTIONNAIRE_ANSWERS);
my $psvnNumber = PG_restricted_eval(q!$main::psvnNumber!);
my $probNum = PG_restricted_eval(q!$main::probNum!);
+ my $courseName = PG_restricted_eval(q!$main::courseName!);
+ my $setNumber = PG_restricted_eval(q!$main::setNumber!);
+
my $ans_eval = sub {
my $text = shift;
$text = '' unless defined($text);
- my $new_text = "\n$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
|
