--- loncom/interface/lonquickgrades.pm	2018/09/11 02:44:58	1.49.6.4
+++ loncom/interface/lonquickgrades.pm	2020/05/25 16:45:31	1.49.6.5.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.49.6.4 2018/09/11 02:44:58 raeburn Exp $
+# $Id: lonquickgrades.pm,v 1.49.6.5.2.1 2020/05/25 16:45:31 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -65,7 +65,7 @@ sub real_handler {
 
     unless (&Apache::lonnet::allowed('mgr')) {
         # Check for critical messages and redirect if present.
-        my ($redirect,$url) = &Apache::loncommon::critical_redirect(300);
+        my ($redirect,$url) = &Apache::loncommon::critical_redirect(300,'grades');
         if ($redirect) {
             &Apache::loncommon::content_type($r,'text/html');
             $r->header_out(Location => $url);
@@ -93,7 +93,7 @@ sub real_handler {
                            &mt('Your course session is being updated because of recent changes by course personnel.').
                            ' '.&mt('Please be patient.').'<br /></div>'.
                            '<div style="padding:0;clear:both;margin:0;border:0"></div>';
-            %prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,undef,$preamble);
+            my %prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,undef,$preamble);
             &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Updating course'));
             $r->rflush();
             my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
@@ -288,7 +288,7 @@ ENDCLOSE
     $r->print(&Apache::loncommon::start_data_table()
              .&Apache::loncommon::start_data_table_header_row()
              .'<th>'.&mt('Folder').'</th>');
-    $title = &mt($showPoints ? "Points Scored" : "Done");
+    my $title = &mt($showPoints ? "Points Scored" : "Done");
     if ($totalAttempted) {
 	$title .= " / " . &mt("Attempted");
     }