--- loncom/interface/statistics/lonsubmissiontimeanalysis.pm 2011/01/17 00:19:41 1.32
+++ loncom/interface/statistics/lonsubmissiontimeanalysis.pm 2012/12/17 02:20:13 1.36
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonsubmissiontimeanalysis.pm,v 1.32 2011/01/17 00:19:41 www Exp $
+# $Id: lonsubmissiontimeanalysis.pm,v 1.36 2012/12/17 02:20:13 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -75,8 +75,8 @@ sub BuildSubmissionTimePage {
#
if (@Students < 1) {
$r->print('
'
- .&mt('There are no students in the sections selected.'
- .'
')
+ .&mt('There are no students in the sections selected.')
+ .''
);
}
#
@@ -138,13 +138,12 @@ sub BuildSubmissionTimePage {
} else {
$r->print(''.$resource->compTitle.'
');
$r->print(''.$resource->src.'
');
- $r->print(''.
+ $r->print('
'.
&Apache::lonstatistics::section_and_enrollment_description().
- '');
+ '
');
$r->rflush();
- $r->print('
');
$r->print(&Apache::lonstathelpers::render_resource($resource));
- $r->print('
');
+ $r->print('
');
$r->rflush();
if (@Students) {
$r->print(&analyze_times($r,$resource->symb,\@Students,
@@ -277,25 +276,19 @@ sub analyze_times {
}
#
# Build the data table
- $htmltable = ''.
- '
'.
- ''.
- ''.
+ $htmltable = '
'.&mt('Student submission data').'
'.
+ &Apache::loncommon::start_data_table().
+ &Apache::loncommon::start_data_table_header_row().
+ &Apache::loncommon::start_data_table_row().
'
'.&mt('Begin').' | '.
- ''.(' 'x3).' | '.
''.&mt('End').' | '.
''.&mt('Submissions (plotted)').' | '.
- ''.(' 'x3).' | '.
''.&mt('Correct Submissions (not plotted)').' | '.
- ''.(' 'x3).' | '.
''.&mt('Cumulative Correct of those attempting the problem (not plotted)').' | '.
- ''.(' 'x3).' | '.
''.&mt('Cumulative Percent Correct of those attempting the problem (not plotted)').' | '.
- ''.(' 'x3).' | '.
''.&mt('Cumulative Percent Correct of selected students (plotted)').' | '.
- '
'.
- ''.
+ &Apache::loncommon::end_data_table_row().
+ &Apache::loncommon::end_data_table_header_row().
'';
my @CumulativeCorrect=(0);
my @corr_as_percent_of_selected;
@@ -308,28 +301,23 @@ sub analyze_times {
sprintf('%3.1f',100*$CumulativeCorrect[$i]/scalar(@$students));
if ($Ydata[$i] != 0) {
next if (! defined($BinEnd[$i]) || $BinEnd[$i] == 0);
- $htmltable .=
- ''.
+ $htmltable .=
+ &Apache::loncommon::start_data_table_row().
''.
&Apache::lonlocal::locallocaltime($BinEnd[$i]-$binsize).
' | '.
- ' | '.
''.
&Apache::lonlocal::locallocaltime($BinEnd[$i]).' | '.
''.
''.$Ydata[$i].(' 'x3).' | '.
- ' | '.
''.$AnsData[$i].(' 'x3).' | '.
- ' | '.
''.$CumulativeCorrect[$i].' | '.
- ' | '.
''.$corr_as_percent_of_answering[$i].' | '.
- ' | '.
''.$corr_as_percent_of_selected[$i].' | '.
- '
'.$/;
+ &Apache::loncommon::end_data_table_row().$/;
}
}
- $htmltable .= '
';
+ $htmltable .= ''.&Apache::loncommon::end_data_table().'';
#
# Build the plot
my $title = '';#'Number of Submissions and Number Correct';
@@ -438,11 +426,6 @@ sub CreateInterface {
$Str .= &Apache::loncommon::end_data_table_row();
$Str .= &Apache::loncommon::end_data_table();
#
- $Str .= ''
- .&mt('Status: [_1]',
- '')
- .'
';
$Str .= '';
##
return $Str;