[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--