--- loncom/interface/statistics/lonsurveyreports.pm 2011/01/17 00:19:41 1.25 +++ loncom/interface/statistics/lonsurveyreports.pm 2012/05/12 03:59:53 1.26.4.1 @@ -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.4.1 2012/05/12 03:59:53 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -30,7 +30,6 @@ use strict; use Apache::lonnet; use Apache::loncommon(); use Apache::lonhtmlcommon(); -use Apache::lonquickgrades(); use Apache::loncoursedata(); use Apache::lonstatistics; use Apache::lonlocal; @@ -69,7 +68,6 @@ sub BuildSurveyReportsPage { # &Apache::lonstatistics::PrepareClasslist(); $r->print(&Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports')); - &Apache::lonquickgrades::startGradeScreen($r,'statistics'); # $r->print(&CreateInterface()); @@ -234,10 +232,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 +274,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 +665,6 @@ sub CreateInterface { $Str .= &Apache::loncommon::end_data_table_row(); $Str .= &Apache::loncommon::end_data_table(); # - $Str .= '

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

'; $Str .= '

'; ## return $Str;