--- loncom/lonnet/perl/lonnet.pm 2018/08/18 22:07:59 1.1383 +++ loncom/lonnet/perl/lonnet.pm 2018/09/21 03:38:44 1.1385 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1383 2018/08/18 22:07:59 raeburn Exp $ +# $Id: lonnet.pm,v 1.1385 2018/09/21 03:38:44 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3197,7 +3197,17 @@ sub ssi { $request->header(Cookie => $ENV{'HTTP_COOKIE'}); my $lonhost = $perlvar{'lonHostID'}; - my $response= &LONCAPA::LWPReq::makerequest($lonhost,$request,'',\%perlvar); + my $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'}:'')))) { + $islocal = 1; + } + my $response= &LONCAPA::LWPReq::makerequest($lonhost,$request,'',\%perlvar, + '','','',$islocal); if (wantarray) { return ($response->content, $response);