[LON-CAPA-cvs] cvs: loncom /interface selfenroll.pm

[raeburn]

raeburn		Wed Jul  9 20:19:57 2008 EDT

  Modified files:              
    /loncom/interface	selfenroll.pm 
  Log:
  - Include cm (cumulative) in roles permitted to receive updated privs when a user self-enrolls.
  
  
Index: loncom/interface/selfenroll.pm
diff -u loncom/interface/selfenroll.pm:1.7 loncom/interface/selfenroll.pm:1.8
--- loncom/interface/selfenroll.pm:1.7	Mon Jul  7 21:55:52 2008
+++ loncom/interface/selfenroll.pm	Wed Jul  9 20:19:56 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Allow users to self-enroll in a course
 #
-# $Id: selfenroll.pm,v 1.7 2008/07/08 01:55:52 raeburn Exp $
+# $Id: selfenroll.pm,v 1.8 2008/07/10 00:19:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -339,7 +339,7 @@
                                                 $area);
             &Apache::lonnet::set_userprivs(\%userroles,\%newrole,%newgroups);
             $userroles{'user.role.'.$spec} = $selfenroll_access_start.'.'.$selfenroll_access_end;
-            &Apache::lonnet::appenv(\%userroles,[$role]);
+            &Apache::lonnet::appenv(\%userroles,[$role,'cm']);
             if ($selfenroll_access_end && $selfenroll_access_end <= $now) {
                 $r->print(&mt('The end date for access to this course for users who self-enroll has passed.').'<br />'.&mt('Consequently, although a new role was created for you in the course, it is an inactive role which does not provide access to the course.'));
             } else {