--- loncom/interface/statistics/loncorrectproblemplot.pm 2004/03/08 18:42:58 1.10 +++ loncom/interface/statistics/loncorrectproblemplot.pm 2004/06/04 21:42:18 1.11 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncorrectproblemplot.pm,v 1.10 2004/03/08 18:42:58 matthew Exp $ +# $Id: loncorrectproblemplot.pm,v 1.11 2004/06/04 21:42:18 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -39,10 +39,6 @@ use Apache::lonlocal; my @SubmitButtons = ( { name => 'CreatePlot', text => 'Create Plot' }, - { name => 'ClearCache', - text => 'Clear Caches' }, - { name => 'updatecaches', - text => 'Update Student Data' }, ); ######################################################### @@ -81,23 +77,16 @@ sub BuildCorrectProblemsPage { ''); } # - &Apache::loncoursedata::clear_internal_caches(); - if (exists($ENV{'form.ClearCache'}) || - 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(''); - } else { - $r->print(''); - } + my @CacheButtonHTML = + &Apache::lonstathelpers::manage_caches($r,'Statistics','stats_status'); foreach my $button (@SubmitButtons) { $r->print('{'text'}).'" />'); $r->print(' 'x5); } + foreach my $html (@CacheButtonHTML) { + $r->print($html.(' 'x5)); + } $r->rflush(); # # Determine which problem symbs we are to sum over @@ -135,6 +124,8 @@ sub BuildCorrectProblemsPage { $Apache::lonstatistics::enrollment_status,undef, $starttime,$endtime); $r->print(&AnalyzeScoreData($score_data,$title,$total_parts)); + } else { + $r->print('
Range | Count |
---|
Range | Count |
---|
".&Apache::loncommon::DrawBarGraph($title.' N = '.$sum,
'Num Correct Problems (max:'.$total_parts.')',
'Number of students',
$max,
@@ -201,6 +193,7 @@ sub AnalyzeScoreData {
\@Xdata,
\@Ydata).
"\n
\n".$Str;
+ $Str .= '
'; + # $Str .= '
'.&mt('Sections').' | '; @@ -289,8 +284,7 @@ sub CreateInterface { $Str .= ''. &Apache::lonstathelpers::limit_by_time_form().' | '; $Str .= '
'."\n"; $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); $Str .= ' | '; @@ -311,9 +305,14 @@ sub CreateInterface { $only_seq_with_assessments); $Str .= ''; # - ## $Str .= '