--- loncom/lonnet/perl/lonnet.pm 2018/09/21 03:58:53 1.1172.2.100 +++ loncom/lonnet/perl/lonnet.pm 2018/09/22 03:11:40 1.1172.2.101 @@ -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 @@ sub ssi { $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');