--- loncom/interface/statistics/lonsubmissiontimeanalysis.pm 2005/03/08 17:39:35 1.20
+++ loncom/interface/statistics/lonsubmissiontimeanalysis.pm 2008/10/30 17:45:25 1.30
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonsubmissiontimeanalysis.pm,v 1.20 2005/03/08 17:39:35 matthew Exp $
+# $Id: lonsubmissiontimeanalysis.pm,v 1.30 2008/10/30 17:45:25 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -28,7 +28,7 @@
package Apache::lonsubmissiontimeanalysis;
use strict;
-use Apache::lonnet();
+use Apache::lonnet;
use Apache::loncommon();
use Apache::lonhtmlcommon();
use Apache::loncoursedata();
@@ -37,7 +37,6 @@ use Apache::lonstathelpers;
use Apache::lonlocal;
use HTML::Entities();
use Time::Local();
-use Spreadsheet::WriteExcel();
my $plotcolors = ['#33ff00',
'#ff33cc', '#990000', '#aaaa66', '#663399', '#ff9933',
@@ -72,20 +71,25 @@ sub BuildSubmissionTimePage {
my @Students = @Apache::lonstatistics::Students;
#
if (@Students < 1) {
- $r->print('
There are no students in the sections selected
');
+ $r->print(''
+ .&mt('There are no students in the sections selected.'
+ .'
')
+ );
}
#
my @CacheButtonHTML =
&Apache::lonstathelpers::manage_caches($r,'Statistics','stats_status');
$r->rflush();
#
- if (! exists($ENV{'form.problemchoice'}) ||
- exists($ENV{'form.SelectAnother'})) {
- $r->print('');
- $r->print(' 'x5);
+ if (! exists($env{'form.problemchoice'}) ||
+ exists($env{'form.SelectAnother'})) {
+ my $submit_button = '';
+ &mt('Generate Graph').'" />';
+ $r->print($submit_button.' 'x5);
$r->print(''.&mt('Please select a problem to analyze').'
');
- $r->print(&Apache::lonstathelpers::problem_selector('.'));
+ $r->print(&Apache::lonstathelpers::problem_selector('.',
+ $submit_button));
} else {
foreach my $button (@SubmitButtons) {
$r->print('print('');
+ $env{'form.problemchoice'}.'" />');
#
$r->print('
');
$r->rflush();
#
my $resource = $current_problem->{'resource'};
if (! defined($resource)) {
- $r->print('resource is undefined');
+ $r->print(''
+ .&mt('Resource is undefined.')
+ .'
'
+ );
} else {
$r->print(''.$resource->compTitle.'
');
$r->print(''.$resource->src.'
');
+ $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();
- $r->print(&analyze_times($r,$resource->symb,\@Students,
- $current_problem->{'part'}));
+ if (@Students) {
+ $r->print(&analyze_times($r,$resource->symb,\@Students,
+ $current_problem->{'part'}));
+ }
}
$r->print('
');
}
@@ -170,16 +183,21 @@ sub analyze_times {
my $html; # holds results of analysis
# Get the data
my $SubData = &Apache::loncoursedata::get_response_time_data
- (\@Apache::lonstatistics::SelectedSections,
+ ([&Apache::lonstatistics::get_selected_sections()],
+ [&Apache::lonstatistics::get_selected_groups()],
$Apache::lonstatistics::enrollment_status,
$symb,$part);
if (! defined($SubData) || ! ref($SubData)) {
- $html.= 'There is no submission data for this problem at all
';
+ $html.= ''
+ .&mt('There is no submission data for this problem at all.')
+ .'
';
return $html;
}
my $NumSub = scalar(@{$SubData});
if (! @{$SubData}) {
- $html.= 'There is no submission data for this problem
';
+ $html.= ''
+ .&mt('There is no submission data for this problem.')
+ .'
';
return $html;
}
# Process the data
@@ -386,36 +404,44 @@ sub Process_Row {
sub CreateInterface {
##
## Environment variable initialization
- if (! exists$ENV{'form.AnalyzeOver'}) {
- $ENV{'form.AnalyzeOver'} = 'Tries';
+ if (! exists$env{'form.AnalyzeOver'}) {
+ $env{'form.AnalyzeOver'} = 'Tries';
}
##
## Build the menu
my $Str = '';
- $Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Submission Time Plots');
+ $Str .= &Apache::lonhtmlcommon::breadcrumbs('Submission Time Plots');
$Str .= '';
- $Str .= '
'."\n";
- $Str .= '';
- $Str .= ''.&mt('Sections').' | ';
- $Str .= ''.&mt('Enrollment Status').' | ';
- $Str .= '
'."\n";
+ $Str .= &Apache::loncommon::start_data_table();
+ $Str .= &Apache::loncommon::start_data_table_header_row();
+ $Str .= ''.&mt('Sections').' | ';
+ $Str .= ''.&mt('Groups').' | ';
+ $Str .= ''.&mt('Access Status').' | ';
+ $Str .= &Apache::loncommon::end_data_table_header_row();
##
##
- $Str .= ''."\n";
+ $Str .= &Apache::loncommon::start_data_table_row();
+ $Str .= ' | '."\n";
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',4);
$Str .= ' | ';
#
+ $Str .= ''."\n";
+ $Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',4);
+ $Str .= ' | ';
+ #
$Str .= '';
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,4);
$Str .= ' | ';
#
- $Str .= '
'."\n";
- $Str .= '
'."\n";
+ $Str .= &Apache::loncommon::end_data_table_row();
+ $Str .= &Apache::loncommon::end_data_table();
#
- $Str .= ''.&mt('Status: [_1]',
- '').
- ''.'';
+ $Str .= ''
+ .&mt('Status: [_1]',
+ '')
+ .'
';
+ $Str .= '';
##
return $Str;
}