[LON-CAPA-cvs] cvs: loncom /homework grades.pm /interface lonquickgrades.pm

[www]

www		Sat Dec  4 15:02:32 2010 EDT

  Modified files:              
    /loncom/homework	grades.pm 
    /loncom/interface	lonquickgrades.pm 
  Log:
  Grading tab
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.638 loncom/homework/grades.pm:1.639
--- loncom/homework/grades.pm:1.638	Fri Oct 22 15:29:57 2010
+++ loncom/homework/grades.pm	Sat Dec  4 15:02:26 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.638 2010/10/22 15:29:57 www Exp $
+# $Id: grades.pm,v 1.639 2010/12/04 15:02:26 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -44,6 +44,7 @@
 use Apache::lonlocal;
 use Apache::lonenc;
 use Apache::lonstathelpers;
+use Apache::lonquickgrades;
 use String::Similarity;
 use LONCAPA;
 
@@ -9140,7 +9141,7 @@
     unshift(@$crumbs,{href=>&href_symb_cmd($symb,'gradingmenu'),text=>"Grading"});
     $r->print(&Apache::loncommon::start_page('Grading',undef,
                                           {'bread_crumbs' => $crumbs}));
-    $r->print('<h3>'.$$crumbs[-1]{'text'}.'</h3>');
+    &Apache::lonquickgrades::startGradeScreen($r,'grading');
     unless ($nodisplayflag) {
        $r->print(&Apache::lonhtmlcommon::resource_info_box($symb,$onlyfolderflag));
     }
@@ -9333,6 +9334,7 @@
     if ($ssi_error) {
 	&ssi_print_error($request);
     }
+    &Apache::lonquickgrades::endGradeScreen($request);
     $request->print(&Apache::loncommon::end_page());
     &reset_caches();
     return '';
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.58 loncom/interface/lonquickgrades.pm:1.59
--- loncom/interface/lonquickgrades.pm:1.58	Sat Dec  4 14:41:09 2010
+++ loncom/interface/lonquickgrades.pm	Sat Dec  4 15:02:31 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.58 2010/12/04 14:41:09 www Exp $
+# $Id: lonquickgrades.pm,v 1.59 2010/12/04 15:02:31 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -144,6 +144,10 @@
                                                                  &mt('Assessment Overview Chart').'</b></a></li>');
 
     }
+    if ($allowed_to_edit) {
+       $r->print("\n".'<li'.($mode eq 'grading'?' class="active"':'').'><a href="/adm/grades"><b>&nbsp;&nbsp;&nbsp;&nbsp;'.
+                                                                 &mt('Problem Grading').'&nbsp;&nbsp;&nbsp;&nbsp;</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;">');
 }