--- loncom/interface/statistics/lonsubmissiontimeanalysis.pm 2008/10/30 17:45:25 1.30 +++ loncom/interface/statistics/lonsubmissiontimeanalysis.pm 2011/01/17 00:19:41 1.32 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonsubmissiontimeanalysis.pm,v 1.30 2008/10/30 17:45:25 bisitz Exp $ +# $Id: lonsubmissiontimeanalysis.pm,v 1.32 2011/01/17 00:19:41 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -31,6 +31,7 @@ use strict; use Apache::lonnet; use Apache::loncommon(); use Apache::lonhtmlcommon(); +use Apache::lonquickgrades(); use Apache::loncoursedata(); use Apache::lonstatistics; use Apache::lonstathelpers; @@ -66,6 +67,8 @@ sub BuildSubmissionTimePage { # &Apache::lonstatistics::PrepareClasslist(); # + $r->print(&Apache::lonhtmlcommon::breadcrumbs('Submission Time Plots')); + &Apache::lonquickgrades::startGradeScreen($r,'statistics'); $r->print(&CreateInterface()); # my @Students = @Apache::lonstatistics::Students; @@ -307,13 +310,13 @@ sub analyze_times { next if (! defined($BinEnd[$i]) || $BinEnd[$i] == 0); $htmltable .= ''. - ''. + ''. &Apache::lonlocal::locallocaltime($BinEnd[$i]-$binsize). - ''. + ''. ' '. - ''. + ''. &Apache::lonlocal::locallocaltime($BinEnd[$i]).''. - ''. + ''. ''.$Ydata[$i].(' 'x3).''. ' '. ''.$AnsData[$i].(' 'x3).''. @@ -410,7 +413,6 @@ sub CreateInterface { ## ## Build the menu my $Str = ''; - $Str .= &Apache::lonhtmlcommon::breadcrumbs('Submission Time Plots'); $Str .= '

'; $Str .= &Apache::loncommon::start_data_table(); $Str .= &Apache::loncommon::start_data_table_header_row();