[system] / trunk / webwork / system / courseScripts / PG.pl Repository:
ViewVC logotype

Diff of /trunk/webwork/system/courseScripts/PG.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 28 Revision 29
136 136
137 die "The environment variable envir has not been defined" unless defined(%main::envir); 137 die "The environment variable envir has not been defined" unless defined(%main::envir);
138 }; 138 };
139 foreach my $var ( eval q{keys %main::envir} ) { 139 foreach my $var ( eval q{keys %main::envir} ) {
140 eval("\$main::$var =\$main::envir{'$var'}"); 140 eval("\$main::$var =\$main::envir{'$var'}");
141 warn "Problem defining \$main::$var while inititializing the PG problem: $@" if $@; 141 warn "Problem defining ", q{\$main::$var}, " while inititializing the PG problem: $@" if $@;
142 } 142 }
143 eval q{ 143 eval q{
144 @main::submittedAnswers = @{$main::refSubmittedAnswers} if defined($main::refSubmittedAnswers); 144 @main::submittedAnswers = @{$main::refSubmittedAnswers} if defined($main::refSubmittedAnswers);
145 $main::PG_original_problemSeed = $main::problemSeed; 145 $main::PG_original_problemSeed = $main::problemSeed;
146 $main::PG_random_generator = new PGrandom($main::problemSeed) || die "Can't create random number generator."; 146 $main::PG_random_generator = new PGrandom($main::problemSeed) || die "Can't create random number generator.";

Legend:
Removed from v.28  
changed lines
  Added in v.29

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9