[WWcvs] pg: Create an anonymous unique identifier for questionnaires in WW 2 by

[Arnie P. v. a. <we...@ma...>]

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