--- loncom/interface/statistics/lonstudentsubmissions.pm 2004/10/08 16:40:54 1.25 +++ loncom/interface/statistics/lonstudentsubmissions.pm 2004/11/08 15:14:52 1.26 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstudentsubmissions.pm,v 1.25 2004/10/08 16:40:54 matthew Exp $ +# $Id: lonstudentsubmissions.pm,v 1.26 2004/11/08 15:14:52 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -383,7 +383,7 @@ sub html_essay_results { # my $correct = ''; if ($ENV{'form.correctans'} eq 'true') { - $correct = &Apache::lonstathelpers::analyze_problem_as_student + $correct = &Apache::lonstathelpers::get_student_answer ($prob,$student->{'username'},$student->{'domain'}, $partid,$respid); $correct = &html_format_sub($correct,'essay'); @@ -427,7 +427,7 @@ sub html_results { $submission = &html_format_sub($submission,$resptype); my $correct = ''; if ($ENV{'form.correctans'} eq 'true') { - $correct = &Apache::lonstathelpers::analyze_problem_as_student + $correct = &Apache::lonstathelpers::get_student_answer ($prob,$student->{'username'},$student->{'domain'}, $partid,$respid); $correct = &html_format_sub($correct,$resptype); @@ -683,7 +683,7 @@ sub write_excel_row { $submission = &excel_format_response($submission,$resptype); $worksheet->write($row,$col++,$submission); if ($ENV{'form.correctans'} eq 'true') { - my $correct = &Apache::lonstathelpers::analyze_problem_as_student + my $correct = &Apache::lonstathelpers::get_student_answer ($prob,$student->{'username'},$student->{'domain'}, $partid,$respid); $correct =&excel_format_response($correct,$resptype); @@ -885,7 +885,7 @@ sub compile_response_data { my @rowdata; push(@rowdata,$response->[&Apache::loncoursedata::RDs_submission()]); if ($ENV{'form.correctans'} eq 'true') { - my $correct = &Apache::lonstathelpers::analyze_problem_as_student + my $correct = &Apache::lonstathelpers::get_student_answer ($prob,$student->{'username'},$student->{'domain'}, $partid,$respid); push(@rowdata,$correct);