--- loncom/interface/lonquickgrades.pm 2009/02/26 16:17:30 1.47 +++ loncom/interface/lonquickgrades.pm 2010/11/27 20:51:26 1.50 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Quick Student Grades Display # -# $Id: lonquickgrades.pm,v 1.47 2009/02/26 16:17:30 schafran Exp $ +# $Id: lonquickgrades.pm,v 1.50 2010/11/27 20:51:26 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,7 +25,6 @@ # # http://www.lon-capa.org/ # -# Created Nov. 14, 2002 by Jeremy Bowers package Apache::lonquickgrades; @@ -65,7 +64,13 @@ sub real_handler { my $showPoints = $env{'course.'.$env{'request.course.id'}.'.grading'} eq 'standard'; my $notshowSPRSlink = - $env{'course.'.$env{'request.course.id'}.'.grading'} eq 'external'; + (($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'external') + || ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'externalnototals')); + my $notshowTotals= + $env{'course.'.$env{'request.course.id'}.'.grading'} eq 'externalnototals'; + my $showCategories= + $env{'course.'.$env{'request.course.id'}.'.grading'} eq 'categories'; + # Create the nav map my $navmap = Apache::lonnavmaps::navmap->new(); @@ -234,7 +239,7 @@ sub real_handler { if ($totalAttempted) { $title .= " / " . &mt("Attempted"); } - $r->print("