--- loncom/interface/lonquickgrades.pm 2011/06/25 20:12:56 1.102 +++ loncom/interface/lonquickgrades.pm 2014/05/20 20:32:16 1.104 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Quick Student Grades Display # -# $Id: lonquickgrades.pm,v 1.102 2011/06/25 20:12:56 www Exp $ +# $Id: lonquickgrades.pm,v 1.104 2014/05/20 20:32:16 musolffc Exp $ # # Copyright Michigan State University Board of Trustees # @@ -29,7 +29,7 @@ package Apache::lonquickgrades; use strict; -use Apache::Constants qw(:common :http); +use Apache::Constants qw(:common :http REDIRECT); use POSIX; use Apache::loncommon; use Apache::lonlocal; @@ -62,6 +62,14 @@ sub handler { sub real_handler { my $r = shift; + # Check for critical messages and redirect if present. + my ($redirect,$url) = &Apache::loncommon::critical_redirect(300); + if ($redirect) { + &Apache::loncommon::content_type($r,'text/html'); + $r->header_out(Location => $url); + return REDIRECT; + } + &Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING}); # Handle header-only request @@ -261,7 +269,7 @@ sub startGradeScreen { if ($env{'form.symb'}) { $r->print("\n".'    '. + '&command=gradingmenu">    '. &mt('Problem Grading').'    '); }