[system] / trunk / pg / lib / Value / AnswerChecker.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Value/AnswerChecker.pm

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

Revision 3867 Revision 3868
1334 } 1334 }
1335 if ($cmp->{rh_ans}{upToConstant}) { 1335 if ($cmp->{rh_ans}{upToConstant}) {
1336 my $current = Parser::Context->current(); 1336 my $current = Parser::Context->current();
1337 my $context = $self->{context} = $self->{context}->copy; 1337 my $context = $self->{context} = $self->{context}->copy;
1338 Parser::Context->current(undef,$context); 1338 Parser::Context->current(undef,$context);
1339 $context->{_variables}->{pattern} = $context->{_variables}->{namePattern} =
1340 'C0|' . $context->{_variables}->{pattern};
1341 $context->update; $context->variables->add('C0' => 'Parameter'); 1339 $context->variables->add('C0' => 'Parameter');
1342 my $f = Value::Formula->new('C0')+$self; 1340 my $f = Value::Formula->new('C0')+$self;
1343 for ('limits','test_points','test_values','num_points','granularity','resolution', 1341 for ('limits','test_points','test_values','num_points','granularity','resolution',
1344 'checkUndefinedPoints','max_undefined') 1342 'checkUndefinedPoints','max_undefined')
1345 {$f->{$_} = $self->{$_} if defined($self->{$_})} 1343 {$f->{$_} = $self->{$_} if defined($self->{$_})}
1346 $cmp->ans_hash(correct_value => $f); 1344 $cmp->ans_hash(correct_value => $f);

Legend:
Removed from v.3867  
changed lines
  Added in v.3868

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9