From: Mike G. v. a. <we...@ma...> - 2010-05-27 04:17:22
|
Log Message: ----------- corrected typos. Modified Files: -------------- pg/macros: PG.pl Revision Data ------------- Index: PG.pl =================================================================== RCS file: /webwork/cvs/system/pg/macros/PG.pl,v retrieving revision 1.46 retrieving revision 1.47 diff -Lmacros/PG.pl -Lmacros/PG.pl -u -r1.46 -r1.47 --- macros/PG.pl +++ macros/PG.pl @@ -105,11 +105,11 @@ #prepend labels with the quiz and section prefixes. while (@in ) { my $label = shift @in; - $label = join("", $self->{QUIZ_PREFIX}, $self->{SECTION_PREFIX}, $label); + $label = join("", $PG->{QUIZ_PREFIX}, $PG->{SECTION_PREFIX}, $label); $ans_eval = shift @in; push @out, $label, $ans_eval; } - pus$PG->LABELED_ANS(@out); # returns pointer to the labeled answer group + $PG->LABELED_ANS(@out); # returns pointer to the labeled answer group } sub NAMED_ANS { |