--- loncom/interface/lonstatistics.pm 2003/10/15 18:01:10 1.86
+++ loncom/interface/lonstatistics.pm 2004/01/15 03:18:19 1.93
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonstatistics.pm,v 1.86 2003/10/15 18:01:10 www Exp $
+# $Id: lonstatistics.pm,v 1.93 2004/01/15 03:18:19 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -48,6 +48,7 @@ Main handler for statistics and chart.
use Apache::loncoursedata;
use Apache::lonhtmlcommon;
use Apache::lonproblemanalysis;
+ use Apache::lonsubmissiontimeanalysis;
use Apache::lonproblemstatistics;
use Apache::lonstudentassessment;
use Apache::lonpercentage;
@@ -79,6 +80,7 @@ use Apache::loncommon;
use Apache::loncoursedata;
use Apache::lonhtmlcommon;
use Apache::lonproblemanalysis();
+use Apache::lonsubmissiontimeanalysis();
use Apache::lonproblemstatistics();
use Apache::lonstudentassessment();
use Apache::lonpercentage;
@@ -1048,27 +1050,29 @@ sub CreateMainMenu {
short_description =>
&mt('Detailed statistics and graphs of student performance on problems.'),
},
- { internal_name => 'student_assessment',
- name => &mt('Problem Status Chart'),
+ { internal_name => 'submissiontime_analysis',
+ name => &mt('Submission Time Analysis'),
short_description =>
- &mt('Brief view of each students performance in course.'),
+ &mt('Display and analysis of submission times on assessments.'),
},
+# { internal_name => 'student_assessment',
+# name => &mt('Problem Status Chart'),
+# short_description =>
+# &mt('Brief view of each students performance in course.'),
+# },
# 'percentage' => 'Correct-problems Plot',
# 'activitylog' => 'Activity Log',
);
-
#
# Create the menu
my $Str;
- $Str = "
".&mt('Statistics and Problem Analysis')."
\n";
- $Str .= &mt('Please select a report to generate.');
- $Str .= "\n";
+ $Str .= ''.&mt('Please select a report to generate').'
';
foreach my $reportdata (@reports) {
- $Str .=' - {'internal_name'}.'" >'.
- $reportdata->{'name'}."
\n";
- $Str .= ' - '.$reportdata->{'short_description'}.
- "
\n";
+ $reportdata->{'name'}."\n";
+ $Str .= ' '.(' 'x8).$reportdata->{'short_description'}.
+ "\n";
}
$Str .="
\n";
#
@@ -1101,21 +1105,11 @@ sub handler {
}
}
#
- # Set document type for header only
- if($r->header_only) {
- if ($ENV{'browser.mathml'}) {
- $r->content_type('text/xml');
- } else {
- $r->content_type('text/html');
- }
- &Apache::loncommon::no_cache($r);
- $r->send_http_header;
- return OK;
- }
- #
# Send the header
- $r->content_type('text/html');
+ &Apache::loncommon::no_cache($r);
+ &Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
+ if ($r->header_only) { return OK; }
#
# Extract form elements from query string
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
@@ -1123,7 +1117,9 @@ sub handler {
'SelectedStudent']);
#
# Give the LON-CAPA page header
- $r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts'));
+ $r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts').
+ &Apache::loncommon::help_open_faq(139).
+ &Apache::loncommon::help_open_bug('Statistics and Charts'));
$r->rflush();
#
# Either print out a menu for them or send them to a report
@@ -1154,16 +1150,16 @@ sub handler {
&Apache::loncoursedata::delete_caches($ENV{'requres.course.id'});
}
#
- # Set up the statistics and chart environment
- &PrepareClasslist();
- &PrepareCourseData($r);
- #
# Begin form output
$r->print('