[LON-CAPA-cvs] cvs: loncom /enrollment Enrollment.pm

[raeburn]

raeburn		Fri Jun  3 01:22:36 2016 EDT

  Modified files:              
    /loncom/enrollment	Enrollment.pm 
  Log:
  - Bug 5787. Automated enrollment process needs mdg priv.  
  
  
Index: loncom/enrollment/Enrollment.pm
diff -u loncom/enrollment/Enrollment.pm:1.47 loncom/enrollment/Enrollment.pm:1.48
--- loncom/enrollment/Enrollment.pm:1.47	Mon Jun 23 00:56:02 2014
+++ loncom/enrollment/Enrollment.pm	Fri Jun  3 01:22:36 2016
@@ -1,5 +1,5 @@
 # Automated Enrollment manager
-# $Id: Enrollment.pm,v 1.47 2014/06/23 00:56:02 raeburn Exp $
+# $Id: Enrollment.pm,v 1.48 2016/06/03 01:22:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -197,9 +197,11 @@
         }
     }
 
-# Explicitly allow access to creation/modification of students if called as an automated process.
+# Explicitly allow access to creation/modification of students and group membership changes 
+# when called as an automated process.
     if ($context eq 'automated') {
         $env{'allowed.cst'}='F';
+        $env{'allowed.mdg'}='F';
     }
 
 # Compare IDs with existing LON-CAPA enrollment for this class
@@ -446,9 +448,11 @@
         }
     }
 
-# Terminated explictly allowed access to student creation/modification
+# Terminated explictly allowed access to student creation/modification 
+# and group membership changes
     if ($context eq 'automated') {
         delete($env{'allowed.cst'});
+        delete($env{'allowed.mdg'});
     }
     if ($enrollcount > 0) {
         if ($context eq "updatenow") {