[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /lonnet/perl lonnet.pm

[raeburn]

raeburn		Sat Sep 22 03:11:41 2018 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - For 2.11
    Backport 1.1385 (part) 
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1172.2.100 loncom/lonnet/perl/lonnet.pm:1.1172.2.101
--- loncom/lonnet/perl/lonnet.pm:1.1172.2.100	Fri Sep 21 03:58:53 2018
+++ loncom/lonnet/perl/lonnet.pm	Sat Sep 22 03:11:40 2018
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.100 2018/09/21 03:58:53 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.101 2018/09/22 03:11:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2858,7 +2858,12 @@
 
     $request->header(Cookie => $ENV{'HTTP_COOKIE'});
 
-    if ($islocal) {
+    if (($env{'request.course.id'}) &&
+        ($form{'grade_courseid'} eq $env{'request.course.id'}) &&
+        ($form{'grade_username'} ne '') && ($form{'grade_domain'} ne '') &&
+        ($form{'grade_symb'} ne '') &&
+        (&Apache::lonnet::allowed('mgr',$env{'request.course.id'}.
+                                 ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {
         if (LWP::UserAgent->VERSION >= 5.834) {
             my $ua=new LWP::UserAgent;
             $ua->local_address('127.0.0.1');