--- loncom/interface/statistics/lonsurveyreports.pm 2011/01/17 00:19:41 1.25 +++ loncom/interface/statistics/lonsurveyreports.pm 2011/12/21 21:25:51 1.26 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonsurveyreports.pm,v 1.25 2011/01/17 00:19:41 www Exp $ +# $Id: lonsurveyreports.pm,v 1.26 2011/12/21 21:25:51 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -234,10 +234,7 @@ sub SurveyProblemSelector { sub compile_student_answers { my ($r,$problem,$ProblemData,$Students) = @_; my $resource = $problem->{'resource'}; - my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin - ($r,'Processing Student Submissions', - 'Processing Student Submissions', - scalar(@$Students),'inline',undef,'Statistics','stats_status'); + my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@$Students)); foreach my $student (@$Students) { foreach my $partid (@{$resource->parts}) { my @response_ids = $resource->responseIds($partid); @@ -279,8 +276,7 @@ sub compile_student_answers { } } } - &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, - 'last student'); + &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student'); } &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); return; @@ -671,11 +667,6 @@ sub CreateInterface { $Str .= &Apache::loncommon::end_data_table_row(); $Str .= &Apache::loncommon::end_data_table(); # - $Str .= '

' - .&mt('Status: [_1]', - '') - .'

'; $Str .= '

'; ## return $Str;