version 1.24, 2005/04/19 13:59:35
|
version 1.36, 2012/12/17 02:20:13
|
Line 31 use strict;
|
Line 31 use strict;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
|
use Apache::lonquickgrades(); |
use Apache::loncoursedata(); |
use Apache::loncoursedata(); |
use Apache::lonstatistics; |
use Apache::lonstatistics; |
use Apache::lonstathelpers; |
use Apache::lonstathelpers; |
Line 66 sub BuildSubmissionTimePage {
|
Line 67 sub BuildSubmissionTimePage {
|
# |
# |
&Apache::lonstatistics::PrepareClasslist(); |
&Apache::lonstatistics::PrepareClasslist(); |
# |
# |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Submission Time Plots')); |
|
&Apache::lonquickgrades::startGradeScreen($r,'statistics'); |
$r->print(&CreateInterface()); |
$r->print(&CreateInterface()); |
# |
# |
my @Students = @Apache::lonstatistics::Students; |
my @Students = @Apache::lonstatistics::Students; |
# |
# |
if (@Students < 1) { |
if (@Students < 1) { |
$r->print('<h2>There are no students in the sections selected</h2>'); |
$r->print('<div class="LC_warning">' |
|
.&mt('There are no students in the sections selected.') |
|
.'</div>' |
|
); |
} |
} |
# |
# |
my @CacheButtonHTML = |
my @CacheButtonHTML = |
Line 81 sub BuildSubmissionTimePage {
|
Line 87 sub BuildSubmissionTimePage {
|
if (! exists($env{'form.problemchoice'}) || |
if (! exists($env{'form.problemchoice'}) || |
exists($env{'form.SelectAnother'})) { |
exists($env{'form.SelectAnother'})) { |
my $submit_button = '<input type="submit" name="" value="'. |
my $submit_button = '<input type="submit" name="" value="'. |
&mt('Graph Problem Submission Times').'" />'; |
# &mt('Graph Problem Submission Times').'" />'; |
|
&mt('Generate Graph').'" />'; |
$r->print($submit_button.' 'x5); |
$r->print($submit_button.' 'x5); |
$r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>'); |
$r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>'); |
$r->print(&Apache::lonstathelpers::problem_selector('.', |
$r->print(&Apache::lonstathelpers::problem_selector('.', |
Line 124 sub BuildSubmissionTimePage {
|
Line 131 sub BuildSubmissionTimePage {
|
# |
# |
my $resource = $current_problem->{'resource'}; |
my $resource = $current_problem->{'resource'}; |
if (! defined($resource)) { |
if (! defined($resource)) { |
$r->print('resource is undefined'); |
$r->print('<div class="LC_warning">' |
|
.&mt('Resource is undefined.') |
|
.'</div>' |
|
); |
} 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(&Apache::lonstathelpers::render_resource($resource)); |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
$r->print('<br />'); |
$r->print('<br />'); |
$r->rflush(); |
$r->rflush(); |
$r->print(&analyze_times($r,$resource->symb,\@Students, |
if (@Students) { |
$current_problem->{'part'})); |
$r->print(&analyze_times($r,$resource->symb,\@Students, |
|
$current_problem->{'part'})); |
|
} |
} |
} |
$r->print('<hr />'); |
$r->print('<hr />'); |
} |
} |
Line 174 sub analyze_times {
|
Line 186 sub analyze_times {
|
# Get the data |
# Get the data |
my $SubData = &Apache::loncoursedata::get_response_time_data |
my $SubData = &Apache::loncoursedata::get_response_time_data |
([&Apache::lonstatistics::get_selected_sections()], |
([&Apache::lonstatistics::get_selected_sections()], |
|
[&Apache::lonstatistics::get_selected_groups()], |
$Apache::lonstatistics::enrollment_status, |
$Apache::lonstatistics::enrollment_status, |
$symb,$part); |
$symb,$part); |
if (! defined($SubData) || ! ref($SubData)) { |
if (! defined($SubData) || ! ref($SubData)) { |
$html.= '<h2>There is no submission data for this problem at all</h2>'; |
$html.= '<div class="LC_warning">' |
|
.&mt('There is no submission data for this problem at all.') |
|
.'</div>'; |
return $html; |
return $html; |
} |
} |
my $NumSub = scalar(@{$SubData}); |
my $NumSub = scalar(@{$SubData}); |
if (! @{$SubData}) { |
if (! @{$SubData}) { |
$html.= '<h2>There is no submission data for this problem</h2>'; |
$html.= '<div class="LC_warning">' |
|
.&mt('There is no submission data for this problem.') |
|
.'</div>'; |
return $html; |
return $html; |
} |
} |
# Process the data |
# Process the data |
Line 259 sub analyze_times {
|
Line 276 sub analyze_times {
|
} |
} |
# |
# |
# Build the data table |
# Build the data table |
$htmltable = '<p>'. |
$htmltable = '<br><h3>'.&mt('Student submission data').'</h3><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 290 sub analyze_times {
|
Line 301 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"><nobr>'. |
'<td align="right"><span class="LC_nobreak">'. |
&Apache::lonlocal::locallocaltime($BinEnd[$i]-$binsize). |
&Apache::lonlocal::locallocaltime($BinEnd[$i]-$binsize). |
'</nobr></td>'. |
'</span></td>'. |
'<td> </td>'. |
'<td align="right"><span class="LC_nobreak">'. |
'<td align="right"><nobr>'. |
|
&Apache::lonlocal::locallocaltime($BinEnd[$i]).'</td>'. |
&Apache::lonlocal::locallocaltime($BinEnd[$i]).'</td>'. |
'</nobr></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'; |
Line 395 sub CreateInterface {
|
Line 401 sub CreateInterface {
|
## |
## |
## Build the menu |
## Build the menu |
my $Str = ''; |
my $Str = ''; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Submission Time Plots'); |
|
$Str .= '<p>'; |
$Str .= '<p>'; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= &Apache::loncommon::start_data_table(); |
$Str .= '<tr>'; |
$Str .= &Apache::loncommon::start_data_table_header_row(); |
$Str .= '<th align="center">'.&mt('Sections').'</th>'; |
$Str .= '<th>'.&mt('Sections').'</th>'; |
$Str .= '<th align="center">'.&mt('Enrollment Status').'</th>'; |
$Str .= '<th>'.&mt('Groups').'</th>'; |
$Str .= '</tr>'."\n"; |
$Str .= '<th>'.&mt('Access Status').'</th>'; |
|
$Str .= &Apache::loncommon::end_data_table_header_row(); |
## |
## |
## |
## |
$Str .= '<tr><td align="center">'."\n"; |
$Str .= &Apache::loncommon::start_data_table_row(); |
|
$Str .= '<td align="center">'."\n"; |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',4); |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',4); |
$Str .= '</td>'; |
$Str .= '</td>'; |
# |
# |
|
$Str .= '<td align="center">'."\n"; |
|
$Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',4); |
|
$Str .= '</td>'; |
|
# |
$Str .= '<td align="center">'; |
$Str .= '<td align="center">'; |
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,4); |
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,4); |
$Str .= '</td>'; |
$Str .= '</td>'; |
# |
# |
$Str .= '</tr>'."\n"; |
$Str .= &Apache::loncommon::end_data_table_row(); |
$Str .= '</table>'."\n"; |
$Str .= &Apache::loncommon::end_data_table(); |
# |
# |
$Str .= '<nobr>'.&mt('Status: [_1]', |
$Str .= '</p>'; |
'<input type="text" '. |
|
'name="stats_status" size="60" value="" />'). |
|
'</nobr>'.'</p>'; |
|
## |
## |
return $Str; |
return $Str; |
} |
} |