[LON-CAPA-cvs] cvs: loncom /interface lonquickgrades.pm /interface/statistics lonstudentassessment.pm

[www]

www		Sat Dec  4 14:41:14 2010 EDT

  Modified files:              
    /loncom/interface	lonquickgrades.pm 
    /loncom/interface/statistics	lonstudentassessment.pm 
  Log:
  Add chart to grading
  
  
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.57 loncom/interface/lonquickgrades.pm:1.58
--- loncom/interface/lonquickgrades.pm:1.57	Fri Dec  3 22:23:21 2010
+++ loncom/interface/lonquickgrades.pm	Sat Dec  4 14:41:09 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.57 2010/12/03 22:23:21 www Exp $
+# $Id: lonquickgrades.pm,v 1.58 2010/12/04 14:41:09 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -139,6 +139,11 @@
        $r->print("\n".'<li'.($mode eq 'spreadsheet'?' class="active"':'').'><a href="/adm/'.($allowed_to_view?'classcalc':'studentcalc').'"><b>'.
                                                                  &mt('Spreadsheet (Detailed)').'</b></a></li>');
     }
+    if ($allowed_to_view) {
+       $r->print("\n".'<li'.($mode eq 'chart'?' class="active"':'').'><a href="/adm/statistics?reportSelected=student_assessment"><b>'.
+                                                                 &mt('Assessment Overview Chart').'</b></a></li>');
+
+    }
     $r->print("\n".'</ul>'."\n");
     $r->print('<div class="LC_Box" style="clear:both;margin:0;"><div id="maincoursedoc" style="margin:0 0;padding:0 0;"><div class="LC_ContentBox" id="mainCourseDocuments" style="display: block;">');
 }
Index: loncom/interface/statistics/lonstudentassessment.pm
diff -u loncom/interface/statistics/lonstudentassessment.pm:1.162 loncom/interface/statistics/lonstudentassessment.pm:1.163
--- loncom/interface/statistics/lonstudentassessment.pm:1.162	Wed Jun  9 14:55:27 2010
+++ loncom/interface/statistics/lonstudentassessment.pm	Sat Dec  4 14:41:13 2010
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.162 2010/06/09 14:55:27 bisitz Exp $
+# $Id: lonstudentassessment.pm,v 1.163 2010/12/04 14:41:13 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -51,6 +51,7 @@
 
 use strict;
 use Apache::lonstatistics();
+use Apache::lonquickgrades();
 use Apache::lonhtmlcommon();
 use Apache::loncommon();
 use Apache::loncoursedata;
@@ -166,6 +167,9 @@
         &Apache::lonstatistics::DisplayClasslist($r);
         return;
     }
+    $r->print(&Apache::lonhtmlcommon::breadcrumbs('Chart','Chart_Description:Chart_Sections:Chart_Student_Data:Chart_Enrollment_Status:Chart_Sequences:Chart_Output_Formats:Chart_Output_Data'));
+    &Apache::lonquickgrades::startGradeScreen($r,'chart');
+
     #
     # Print out the HTML headers for the interface
     #    This also parses the output mode selector
@@ -230,6 +234,7 @@
         $output_student->($r,$student);
     }
     # Call the "finish" routine selected above
+    &Apache::lonquickgrades::endGradeScreen($r);
     $finish->($r);
     #
     return;
@@ -318,8 +323,6 @@
 #######################################################
 sub CreateInterface {
     my $Str = '';
-    $Str .= &Apache::lonhtmlcommon::breadcrumbs('Chart','Chart_Description:Chart_Sections:Chart_Student_Data:Chart_Enrollment_Status:Chart_Sequences:Chart_Output_Formats:Chart_Output_Data');
-#    $Str .= &CreateLegend();
     $Str .= '<table cellspacing="5">'."\n";
     $Str .= '<tr>';
     $Str .= '<td align="center"><b>'.&mt('Sections').'</b>'.