--- loncom/lonnet/perl/lonnet.pm 2018/09/20 14:17:11 1.1384 +++ 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.1384 2018/09/20 14:17:11 raeburn Exp $ +# $Id: lonnet.pm,v 1.1385 2018/09/21 03:38:44 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3197,8 +3197,17 @@ sub ssi { $request->header(Cookie => $ENV{'HTTP_COOKIE'}); my $lonhost = $perlvar{'lonHostID'}; + 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, - '','','',1); + '','','',$islocal); if (wantarray) { return ($response->content, $response);