| … | |
… | |
| 885 | my $rh_ans_evaluation_result; |
885 | my $rh_ans_evaluation_result; |
| 886 | if (ref($rf_fun) eq 'CODE' ) { |
886 | if (ref($rf_fun) eq 'CODE' ) { |
| 887 | $rh_ans_evaluation_result = $self->{safe} ->reval( '&{ $rf_fun }($temp_ans)' ) ; |
887 | $rh_ans_evaluation_result = $self->{safe} ->reval( '&{ $rf_fun }($temp_ans)' ) ; |
| 888 | warn "Error in PGtranslator.pm::process_answers: Answer $ans_name:<BR>\n $@\n" if $@; |
888 | warn "Error in PGtranslator.pm::process_answers: Answer $ans_name:<BR>\n $@\n" if $@; |
| 889 | } elsif (ref($rf_fun) eq 'AnswerEvaluator') { |
889 | } elsif (ref($rf_fun) eq 'AnswerEvaluator') { |
| 890 | $rh_ans_evaluation_result = $self->{safe} ->reval('$rf_fun->evaluate($temp_ans)'); |
890 | $rh_ans_evaluation_result = $self->{safe} ->reval('$rf_fun->evaluate($temp_ans, ans_label => \''.$ans_name.'\')'); |
| 891 | warn "Error in PGtranslator.pm::process_answers: Answer $ans_name:<BR>\n $@\n" if $@; |
891 | warn "Error in PGtranslator.pm::process_answers: Answer $ans_name:<BR>\n $@\n" if $@; |
| 892 | warn "Evaluation error: Answer $ans_name:<BR>\n", |
892 | warn "Evaluation error: Answer $ans_name:<BR>\n", |
| 893 | $rh_ans_evaluation_result->error_flag(), " :: ", |
893 | $rh_ans_evaluation_result->error_flag(), " :: ", |
| 894 | $rh_ans_evaluation_result->error_message(),"<BR>\n" |
894 | $rh_ans_evaluation_result->error_message(),"<BR>\n" |
| 895 | if defined($rh_ans_evaluation_result) |
895 | if defined($rh_ans_evaluation_result) |