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

[raeburn]

raeburn		Fri Sep 21 03:38:45 2018 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Slot status ignored when rendering content in grading interface for
      "View of the problem for user" and "Correct answer for user" boxes.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1384 loncom/lonnet/perl/lonnet.pm:1.1385
--- loncom/lonnet/perl/lonnet.pm:1.1384	Thu Sep 20 14:17:11 2018
+++ loncom/lonnet/perl/lonnet.pm	Fri Sep 21 03:38:44 2018
@@ -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 @@
 
     $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);