version 1.33, 2011/12/21 21:25:51
|
version 1.34, 2012/05/03 11:21:33
|
Line 138 sub BuildSubmissionTimePage {
|
Line 138 sub BuildSubmissionTimePage {
|
} else { |
} else { |
$r->print('<h1>'.$resource->compTitle.'</h1>'); |
$r->print('<h1>'.$resource->compTitle.'</h1>'); |
$r->print('<h3>'.$resource->src.'</h3>'); |
$r->print('<h3>'.$resource->src.'</h3>'); |
$r->print('<h4>'. |
$r->print('<p>'. |
&Apache::lonstatistics::section_and_enrollment_description(). |
&Apache::lonstatistics::section_and_enrollment_description(). |
'</h4>'); |
'</p>'); |
$r->rflush(); |
$r->rflush(); |
$r->print('<hr />'); |
$r->print('<hr />'); |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
Line 278 sub analyze_times {
|
Line 278 sub analyze_times {
|
# |
# |
# Build the data table |
# Build the data table |
$htmltable = '<p>'. |
$htmltable = '<p>'. |
'<table rules="groups" frame="border" '. |
&Apache::loncommon::start_data_table(). |
'summary="Student submission data">'. |
&Apache::loncommon::start_data_table_header_row(). |
'<thead>'. |
&Apache::loncommon::start_data_table_row(). |
'<tr>'. |
|
'<th valign="bottom">'.&mt('Begin').'</th>'. |
'<th valign="bottom">'.&mt('Begin').'</th>'. |
'<th>'.(' 'x3).'</th>'. |
|
'<th valign="bottom">'.&mt('End').'</th>'. |
'<th valign="bottom">'.&mt('End').'</th>'. |
'<th valign="bottom">'.&mt('Submissions (plotted)').'</th>'. |
'<th valign="bottom">'.&mt('Submissions (plotted)').'</th>'. |
'<th>'.(' 'x3).'</th>'. |
|
'<th valign="bottom">'.&mt('Correct Submissions (not plotted)').'</th>'. |
'<th valign="bottom">'.&mt('Correct Submissions (not plotted)').'</th>'. |
'<th>'.(' 'x3).'</th>'. |
|
'<th valign="bottom">'.&mt('Cumulative Correct of those attempting the problem (not plotted)').'</th>'. |
'<th valign="bottom">'.&mt('Cumulative Correct of those attempting the problem (not plotted)').'</th>'. |
'<th>'.(' 'x3).'</th>'. |
|
'<th valign="bottom">'.&mt('Cumulative Percent Correct of those attempting the problem (not plotted)').'</th>'. |
'<th valign="bottom">'.&mt('Cumulative Percent Correct of those attempting the problem (not plotted)').'</th>'. |
'<th>'.(' 'x3).'</th>'. |
|
'<th valign="bottom">'.&mt('Cumulative Percent Correct of selected students (plotted)').'</th>'. |
'<th valign="bottom">'.&mt('Cumulative Percent Correct of selected students (plotted)').'</th>'. |
'</tr>'. |
&Apache::loncommon::end_data_table_row(). |
'</thead>'. |
&Apache::loncommon::end_data_table_header_row(). |
'<tbody>'; |
'<tbody>'; |
my @CumulativeCorrect=(0); |
my @CumulativeCorrect=(0); |
my @corr_as_percent_of_selected; |
my @corr_as_percent_of_selected; |
Line 308 sub analyze_times {
|
Line 302 sub analyze_times {
|
sprintf('%3.1f',100*$CumulativeCorrect[$i]/scalar(@$students)); |
sprintf('%3.1f',100*$CumulativeCorrect[$i]/scalar(@$students)); |
if ($Ydata[$i] != 0) { |
if ($Ydata[$i] != 0) { |
next if (! defined($BinEnd[$i]) || $BinEnd[$i] == 0); |
next if (! defined($BinEnd[$i]) || $BinEnd[$i] == 0); |
$htmltable .= |
$htmltable .= |
'<tr>'. |
&Apache::loncommon::start_data_table_row(). |
'<td align="right"><span class="LC_nobreak">'. |
'<td align="right"><span class="LC_nobreak">'. |
&Apache::lonlocal::locallocaltime($BinEnd[$i]-$binsize). |
&Apache::lonlocal::locallocaltime($BinEnd[$i]-$binsize). |
'</span></td>'. |
'</span></td>'. |
'<td> </td>'. |
|
'<td align="right"><span class="LC_nobreak">'. |
'<td align="right"><span class="LC_nobreak">'. |
&Apache::lonlocal::locallocaltime($BinEnd[$i]).'</td>'. |
&Apache::lonlocal::locallocaltime($BinEnd[$i]).'</td>'. |
'</span></td>'. |
'</span></td>'. |
'<td align="right">'.$Ydata[$i].(' 'x3).'</td>'. |
'<td align="right">'.$Ydata[$i].(' 'x3).'</td>'. |
'<td> </td>'. |
|
'<td align="right">'.$AnsData[$i].(' 'x3).'</td>'. |
'<td align="right">'.$AnsData[$i].(' 'x3).'</td>'. |
'<td> </td>'. |
|
'<td align="right">'.$CumulativeCorrect[$i].'</td>'. |
'<td align="right">'.$CumulativeCorrect[$i].'</td>'. |
'<td> </td>'. |
|
'<td align="right">'.$corr_as_percent_of_answering[$i].'</td>'. |
'<td align="right">'.$corr_as_percent_of_answering[$i].'</td>'. |
'<td> </td>'. |
|
'<td align="right">'.$corr_as_percent_of_selected[$i].'</td>'. |
'<td align="right">'.$corr_as_percent_of_selected[$i].'</td>'. |
'</tr>'.$/; |
&Apache::loncommon::end_data_table_row().$/; |
} |
} |
} |
} |
$htmltable .= '</tbody></table></p>'; |
$htmltable .= '</tbody>'.&Apache::loncommon::end_data_table().'</p>'; |
# |
# |
# Build the plot |
# Build the plot |
my $title = '';#'Number of Submissions and Number Correct'; |
my $title = '';#'Number of Submissions and Number Correct'; |