--- loncom/interface/lonquickgrades.pm	2021/03/04 14:02:14	1.49.6.6.2.2
+++ loncom/interface/lonquickgrades.pm	2021/12/14 02:44:05	1.49.6.8
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.49.6.6.2.2 2021/03/04 14:02:14 raeburn Exp $
+# $Id: lonquickgrades.pm,v 1.49.6.8 2021/12/14 02:44:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -67,8 +67,9 @@ sub real_handler {
     if ($env{'request.course.id'}) {
         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+        my $clientip = &Apache::lonnet::get_requestor_ip($r);
         my ($blocked,$blocktext) =
-            &Apache::loncommon::blocking_status('grades',$cnum,$cdom);
+            &Apache::loncommon::blocking_status('grades',$clientip,$cnum,$cdom);
         if ($blocked) {
             my $checkrole = "cm./$cdom/$cnum";
             if ($env{'request.course.sec'} ne '') {
@@ -84,7 +85,7 @@ sub real_handler {
 
     unless ($cangrade) {
         # Check for critical messages and redirect if present.
-        my ($redirect,$url) = &Apache::loncommon::critical_redirect(300,'grades');
+        my ($redirect,$url) = &Apache::loncommon::critical_redirect(300);
         if ($redirect) {
             &Apache::loncommon::content_type($r,'text/html');
             $r->header_out(Location => $url);