[LON-CAPA-cvs] cvs: loncom /interface lonquickgrades.pm lonstatistics.pm /interface/statistics loncorrectproblemplot.pm lonproblemanalysis.pm lonproblemstatistics.pm lonstudentsubmissions.pm lonsubmissiontimeanalysis.pm lonsurveyreports.pm
www
www@source.lon-capa.org
Mon, 17 Jan 2011 00:19:42 -0000
This is a MIME encoded message
--www1295223582
Content-Type: text/plain
www Mon Jan 17 00:19:42 2011 EDT
Modified files:
/loncom/interface lonquickgrades.pm lonstatistics.pm
/loncom/interface/statistics loncorrectproblemplot.pm
lonproblemanalysis.pm
lonproblemstatistics.pm
lonstudentsubmissions.pm
lonsubmissiontimeanalysis.pm
lonsurveyreports.pm
Log:
Add statistics and reports under "grading"
--www1295223582
Content-Type: text/plain
Content-Disposition: attachment; filename="www-20110117001942.txt"
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.62 loncom/interface/lonquickgrades.pm:1.63
--- loncom/interface/lonquickgrades.pm:1.62 Mon Jan 10 00:06:28 2011
+++ loncom/interface/lonquickgrades.pm Mon Jan 17 00:19:38 2011
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Quick Student Grades Display
#
-# $Id: lonquickgrades.pm,v 1.62 2011/01/10 00:06:28 www Exp $
+# $Id: lonquickgrades.pm,v 1.63 2011/01/17 00:19:38 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -141,6 +141,9 @@
&mt('Spreadsheet (Detailed)').'</b></a></li>');
}
if ($allowed_to_view) {
+ $r->print("\n".'<li'.($mode eq 'statistics'?' class="active"':'').'><a href="/adm/statistics"><b>'.
+ &mt('Statistics and Reports').'</b></a></li>');
+
$r->print("\n".'<li'.($mode eq 'chart'?' class="active"':'').'><a href="/adm/statistics?reportSelected=student_assessment"><b>'.
&mt('Assessment Overview Chart').'</b></a></li>');
Index: loncom/interface/lonstatistics.pm
diff -u loncom/interface/lonstatistics.pm:1.153 loncom/interface/lonstatistics.pm:1.154
--- loncom/interface/lonstatistics.pm:1.153 Wed Aug 4 01:56:02 2010
+++ loncom/interface/lonstatistics.pm Mon Jan 17 00:19:38 2011
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonstatistics.pm,v 1.153 2010/08/04 01:56:02 raeburn Exp $
+# $Id: lonstatistics.pm,v 1.154 2011/01/17 00:19:38 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -64,6 +64,7 @@
use Apache::lonstudentsubmissions();
use Apache::lonsurveyreports();
use Apache::longradinganalysis();
+use Apache::lonquickgrades();
use LONCAPA;
#
@@ -838,8 +839,9 @@
bug=>'Statistics and Charts'});
if (! exists($env{'form.reportSelected'}) ||
$env{'form.reportSelected'} eq '') {
- $r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page').
- &CreateMainMenu());
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page'));
+ &Apache::lonquickgrades::startGradeScreen($r,'statistics');
+ $r->print(&CreateMainMenu());
} else {
#
if (! &Apache::lonmysql::verify_sql_connection()) {
@@ -926,6 +928,7 @@
#
$r->print("</form>\n");
}
+ &Apache::lonquickgrades::endGradeScreen($r);
$r->print(&Apache::loncommon::end_page());
$r->rflush();
#
Index: loncom/interface/statistics/loncorrectproblemplot.pm
diff -u loncom/interface/statistics/loncorrectproblemplot.pm:1.24 loncom/interface/statistics/loncorrectproblemplot.pm:1.25
--- loncom/interface/statistics/loncorrectproblemplot.pm:1.24 Thu Oct 30 17:45:25 2008
+++ loncom/interface/statistics/loncorrectproblemplot.pm Mon Jan 17 00:19:41 2011
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: loncorrectproblemplot.pm,v 1.24 2008/10/30 17:45:25 bisitz Exp $
+# $Id: loncorrectproblemplot.pm,v 1.25 2011/01/17 00:19:41 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -31,6 +31,7 @@
use Apache::lonnet;
use Apache::loncommon();
use Apache::lonhtmlcommon();
+use Apache::lonquickgrades();
use Apache::loncoursedata();
use Apache::lonstatistics;
use Apache::lonstathelpers;
@@ -67,6 +68,9 @@
\%Saveable_Parameters);
#
&Apache::lonstatistics::PrepareClasslist();
+
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs('Correct Problems Plot'));
+ &Apache::lonquickgrades::startGradeScreen($r,'statistics');
#
$r->print(&CreateInterface());
#
@@ -290,7 +294,6 @@
##
## Environment variable initialization
my $Str;
- $Str .= &Apache::lonhtmlcommon::breadcrumbs('Correct Problems Plot');
$Str .= '<p>';
#
$Str .= &Apache::loncommon::start_data_table();
Index: loncom/interface/statistics/lonproblemanalysis.pm
diff -u loncom/interface/statistics/lonproblemanalysis.pm:1.139 loncom/interface/statistics/lonproblemanalysis.pm:1.140
--- loncom/interface/statistics/lonproblemanalysis.pm:1.139 Thu Jun 10 16:14:39 2010
+++ loncom/interface/statistics/lonproblemanalysis.pm Mon Jan 17 00:19:41 2011
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonproblemanalysis.pm,v 1.139 2010/06/10 16:14:39 bisitz Exp $
+# $Id: lonproblemanalysis.pm,v 1.140 2011/01/17 00:19:41 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -31,6 +31,7 @@
use Apache::loncommon();
use Apache::lonhtmlcommon();
use Apache::loncoursedata();
+use Apache::lonquickgrades();
use Apache::lonstatistics;
use Apache::lonlocal;
use Apache::lonstathelpers();
@@ -73,6 +74,9 @@
#
&Apache::lonstatistics::PrepareClasslist();
#
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs('Detailed Problem Analysis'));
+ &Apache::lonquickgrades::startGradeScreen($r,'statistics');
+
$r->print(&CreateInterface());
#
my @Students = @Apache::lonstatistics::Students;
@@ -1875,7 +1879,6 @@
##
## Build the menu
my $Str = '';
- $Str .= &Apache::lonhtmlcommon::breadcrumbs('Detailed Problem Analysis');
$Str .= '<p>';
$Str .= &Apache::loncommon::start_data_table();
$Str .= &Apache::loncommon::start_data_table_header_row();
Index: loncom/interface/statistics/lonproblemstatistics.pm
diff -u loncom/interface/statistics/lonproblemstatistics.pm:1.118 loncom/interface/statistics/lonproblemstatistics.pm:1.119
--- loncom/interface/statistics/lonproblemstatistics.pm:1.118 Sun Feb 28 23:58:54 2010
+++ loncom/interface/statistics/lonproblemstatistics.pm Mon Jan 17 00:19:41 2011
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonproblemstatistics.pm,v 1.118 2010/02/28 23:58:54 raeburn Exp $
+# $Id: lonproblemstatistics.pm,v 1.119 2011/01/17 00:19:41 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -52,6 +52,7 @@
use strict;
use Apache::lonnet;
use Apache::loncommon();
+use Apache::lonquickgrades();
use Apache::lonhtmlcommon;
use Apache::loncoursedata;
use Apache::lonstatistics;
@@ -610,8 +611,6 @@
&parse_field_selection();
#
my $Str = '';
- $Str .= &Apache::lonhtmlcommon::breadcrumbs('Overall Problem Statistics',
- 'Statistics_Overall_Key');
$Str .= '<p>';
$Str .= &Apache::loncommon::start_data_table();
$Str .= &Apache::loncommon::start_data_table_header_row();
@@ -704,6 +703,10 @@
undef(%SeqStat);
#
# Finally let the user know we are here
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs('Overall Problem Statistics',
+ 'Statistics_Overall_Key'));
+ &Apache::lonquickgrades::startGradeScreen($r,'statistics');
+
my $interface = &CreateInterface($r);
$r->print($interface);
$r->print('<input type="hidden" name="sortby" value="'.$env{'form.sortby'}.
Index: loncom/interface/statistics/lonstudentsubmissions.pm
diff -u loncom/interface/statistics/lonstudentsubmissions.pm:1.61 loncom/interface/statistics/lonstudentsubmissions.pm:1.62
--- loncom/interface/statistics/lonstudentsubmissions.pm:1.61 Tue Aug 24 14:05:19 2010
+++ loncom/interface/statistics/lonstudentsubmissions.pm Mon Jan 17 00:19:41 2011
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonstudentsubmissions.pm,v 1.61 2010/08/24 14:05:19 raeburn Exp $
+# $Id: lonstudentsubmissions.pm,v 1.62 2011/01/17 00:19:41 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -30,6 +30,7 @@
use Apache::lonnet;
use Apache::loncommon();
use Apache::lonhtmlcommon();
+use Apache::lonquickgrades();
use Apache::loncoursedata();
use Apache::lonstatistics;
use Apache::lonlocal;
@@ -61,6 +62,8 @@
#
&Apache::lonstatistics::PrepareClasslist();
#
+ $r->print( &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports'));
+ &Apache::lonquickgrades::startGradeScreen($r,'statistics');
$r->print(&CreateInterface());
#
my @Students = @Apache::lonstatistics::Students;
@@ -1283,7 +1286,6 @@
##
## Environment variable initialization
my $Str = '';
- $Str .= &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports');
$Str .= '<br />';
$Str .= &Apache::loncommon::start_data_table();
$Str .= &Apache::loncommon::start_data_table_header_row();
Index: loncom/interface/statistics/lonsubmissiontimeanalysis.pm
diff -u loncom/interface/statistics/lonsubmissiontimeanalysis.pm:1.31 loncom/interface/statistics/lonsubmissiontimeanalysis.pm:1.32
--- loncom/interface/statistics/lonsubmissiontimeanalysis.pm:1.31 Thu Dec 11 14:55:27 2008
+++ loncom/interface/statistics/lonsubmissiontimeanalysis.pm Mon Jan 17 00:19:41 2011
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonsubmissiontimeanalysis.pm,v 1.31 2008/12/11 14:55:27 bisitz Exp $
+# $Id: lonsubmissiontimeanalysis.pm,v 1.32 2011/01/17 00:19:41 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -31,6 +31,7 @@
use Apache::lonnet;
use Apache::loncommon();
use Apache::lonhtmlcommon();
+use Apache::lonquickgrades();
use Apache::loncoursedata();
use Apache::lonstatistics;
use Apache::lonstathelpers;
@@ -66,6 +67,8 @@
#
&Apache::lonstatistics::PrepareClasslist();
#
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs('Submission Time Plots'));
+ &Apache::lonquickgrades::startGradeScreen($r,'statistics');
$r->print(&CreateInterface());
#
my @Students = @Apache::lonstatistics::Students;
@@ -410,7 +413,6 @@
##
## Build the menu
my $Str = '';
- $Str .= &Apache::lonhtmlcommon::breadcrumbs('Submission Time Plots');
$Str .= '<p>';
$Str .= &Apache::loncommon::start_data_table();
$Str .= &Apache::loncommon::start_data_table_header_row();
Index: loncom/interface/statistics/lonsurveyreports.pm
diff -u loncom/interface/statistics/lonsurveyreports.pm:1.24 loncom/interface/statistics/lonsurveyreports.pm:1.25
--- loncom/interface/statistics/lonsurveyreports.pm:1.24 Sun Feb 28 23:58:55 2010
+++ loncom/interface/statistics/lonsurveyreports.pm Mon Jan 17 00:19:41 2011
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonsurveyreports.pm,v 1.24 2010/02/28 23:58:55 raeburn Exp $
+# $Id: lonsurveyreports.pm,v 1.25 2011/01/17 00:19:41 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -30,6 +30,7 @@
use Apache::lonnet;
use Apache::loncommon();
use Apache::lonhtmlcommon();
+use Apache::lonquickgrades();
use Apache::loncoursedata();
use Apache::lonstatistics;
use Apache::lonlocal;
@@ -67,6 +68,9 @@
\%Saveable_Parameters);
#
&Apache::lonstatistics::PrepareClasslist();
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports'));
+ &Apache::lonquickgrades::startGradeScreen($r,'statistics');
+
#
$r->print(&CreateInterface());
#
@@ -626,7 +630,6 @@
$output_selector.= '>'.$output_format->{'text'}.'</option>'.$/;
}
$output_selector .= '</select>'.$/;
- $Str .= &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports');
$Str .= '<p>';
$Str .= &Apache::loncommon::start_data_table();
$Str .= &Apache::loncommon::start_data_table_header_row();
--www1295223582--