version 1.10, 2004/03/08 18:42:58
|
version 1.11, 2004/06/04 21:42:18
|
Line 39 use Apache::lonlocal;
|
Line 39 use Apache::lonlocal;
|
my @SubmitButtons = ( |
my @SubmitButtons = ( |
{ name => 'CreatePlot', |
{ name => 'CreatePlot', |
text => 'Create Plot' }, |
text => 'Create Plot' }, |
{ name => 'ClearCache', |
|
text => 'Clear Caches' }, |
|
{ name => 'updatecaches', |
|
text => 'Update Student Data' }, |
|
); |
); |
|
|
######################################################### |
######################################################### |
Line 81 sub BuildCorrectProblemsPage {
|
Line 77 sub BuildCorrectProblemsPage {
|
'</h2>'); |
'</h2>'); |
} |
} |
# |
# |
&Apache::loncoursedata::clear_internal_caches(); |
my @CacheButtonHTML = |
if (exists($ENV{'form.ClearCache'}) || |
&Apache::lonstathelpers::manage_caches($r,'Statistics','stats_status'); |
exists($ENV{'form.updatecaches'}) || |
|
(exists($ENV{'form.firstanalysis'}) && |
|
$ENV{'form.firstanalysis'} ne 'no')) { |
|
&Apache::lonstatistics::Gather_Full_Student_Data($r); |
|
} |
|
if (! exists($ENV{'form.firstanalysis'})) { |
|
$r->print('<input type="hidden" name="firstanalysis" value="yes" />'); |
|
} else { |
|
$r->print('<input type="hidden" name="firstanalysis" value="no" />'); |
|
} |
|
foreach my $button (@SubmitButtons) { |
foreach my $button (@SubmitButtons) { |
$r->print('<input type="submit" name="'.$button->{'name'}.'" '. |
$r->print('<input type="submit" name="'.$button->{'name'}.'" '. |
'value="'.&mt($button->{'text'}).'" />'); |
'value="'.&mt($button->{'text'}).'" />'); |
$r->print(' 'x5); |
$r->print(' 'x5); |
} |
} |
|
foreach my $html (@CacheButtonHTML) { |
|
$r->print($html.(' 'x5)); |
|
} |
$r->rflush(); |
$r->rflush(); |
# |
# |
# Determine which problem symbs we are to sum over |
# Determine which problem symbs we are to sum over |
Line 135 sub BuildCorrectProblemsPage {
|
Line 124 sub BuildCorrectProblemsPage {
|
$Apache::lonstatistics::enrollment_status,undef, |
$Apache::lonstatistics::enrollment_status,undef, |
$starttime,$endtime); |
$starttime,$endtime); |
$r->print(&AnalyzeScoreData($score_data,$title,$total_parts)); |
$r->print(&AnalyzeScoreData($score_data,$title,$total_parts)); |
|
} else { |
|
$r->print('<h3>'.&mt('Make a sequence selection from the "Sequences and Folders" menu and hit "Create Plot" to begin').'</h3>'); |
} |
} |
return; |
return; |
} |
} |
Line 177 sub AnalyzeScoreData {
|
Line 168 sub AnalyzeScoreData {
|
# Get the data into the bins (destroying $score_data in the process) |
# Get the data into the bins (destroying $score_data in the process) |
my @Bins = &bin_data($score_data,$binsize,$lowest,$highest); |
my @Bins = &bin_data($score_data,$binsize,$lowest,$highest); |
my @Xdata; my @Ydata; my $max; |
my @Xdata; my @Ydata; my $max; |
my $Str = '<table border="1">'."\n".'<tr><th>Range</th><th>Count</th></tr>'."\n"; |
my $Str = |
|
'<table border="1">'."\n".'<tr><th>Range</th><th>Count</th></tr>'."\n"; |
my $sum = 0; |
my $sum = 0; |
while (my $bin = shift(@Bins)) { |
while (my $bin = shift(@Bins)) { |
push (@Xdata,$bin->{'start'}); |
push (@Xdata,$bin->{'start'}); |
Line 193 sub AnalyzeScoreData {
|
Line 185 sub AnalyzeScoreData {
|
$max = 5*(int($max/5)+1); |
$max = 5*(int($max/5)+1); |
$Str .= "</table><br />\n"; |
$Str .= "</table><br />\n"; |
$title = &HTML::Entities::decode($title); |
$title = &HTML::Entities::decode($title); |
$Str = "<br />\n".&Apache::loncommon::DrawBarGraph($title.' N = '.$sum, |
$Str = "\n<p>".&Apache::loncommon::DrawBarGraph($title.' N = '.$sum, |
'Num Correct Problems (max:'.$total_parts.')', |
'Num Correct Problems (max:'.$total_parts.')', |
'Number of students', |
'Number of students', |
$max, |
$max, |
Line 201 sub AnalyzeScoreData {
|
Line 193 sub AnalyzeScoreData {
|
\@Xdata, |
\@Xdata, |
\@Ydata). |
\@Ydata). |
"\n<br />\n".$Str; |
"\n<br />\n".$Str; |
|
$Str .= '</p>'."\n"; |
return $Str; |
return $Str; |
} |
} |
|
|
Line 281 sub CreateInterface {
|
Line 274 sub CreateInterface {
|
my $Str; |
my $Str; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs |
$Str .= &Apache::lonhtmlcommon::breadcrumbs |
(undef,'Correct Problems Plot'); |
(undef,'Correct Problems Plot'); |
|
$Str .= '<p>'; |
|
# |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
Line 289 sub CreateInterface {
|
Line 284 sub CreateInterface {
|
$Str .= '<td rowspan="2">'. |
$Str .= '<td rowspan="2">'. |
&Apache::lonstathelpers::limit_by_time_form().'</td>'; |
&Apache::lonstathelpers::limit_by_time_form().'</td>'; |
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |
## |
# |
## |
|
$Str .= '<tr><td align="center">'."\n"; |
$Str .= '<tr><td align="center">'."\n"; |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
$Str .= '</td>'; |
$Str .= '</td>'; |
Line 311 sub CreateInterface {
|
Line 305 sub CreateInterface {
|
$only_seq_with_assessments); |
$only_seq_with_assessments); |
$Str .= '</td>'; |
$Str .= '</td>'; |
# |
# |
## |
|
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '</table>'."\n"; |
|
# |
|
$Str .= '<nobr>'.&mt('Status: [_1]', |
|
'<input type="text" '. |
|
'name="stats_status" size="60" value="" />'). |
|
'</nobr>'.'</p>'; |
|
## |
return $Str; |
return $Str; |
} |
} |
|
|