[system] / trunk / pg / lib / Parser / Legacy / PGanswermacros.pl Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Parser/Legacy/PGanswermacros.pl

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

Revision 3535 Revision 3536
1037 } 1037 }
1038 1038
1039 my $correctAnswer = $num_params{correctAnswer}; 1039 my $correctAnswer = $num_params{correctAnswer};
1040 my $mode = $num_params{mode}; 1040 my $mode = $num_params{mode};
1041 my %options = (debug => $num_params{debug}); 1041 my %options = (debug => $num_params{debug});
1042
1043 #
1044 # Hack to fix up exponential notation in correct answer
1045 # (e.g., perl will pass .0000001 as 1e-07).
1046 #
1047 $correctAnswer = Value::Real->new($correctAnswer)->string
1048 if $correctAnswer =~ m/e/ && Value::isNumber($correctAnswer);
1042 1049
1043 # 1050 #
1044 # Get an apppropriate context based on the mode 1051 # Get an apppropriate context based on the mode
1045 # 1052 #
1046 my $context; 1053 my $context;

Legend:
Removed from v.3535  
changed lines
  Added in v.3536

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9