--- loncom/enrollment/localenroll.pm	2014/04/16 14:40:11	1.46
+++ loncom/enrollment/localenroll.pm	2014/05/06 20:42:32	1.48
@@ -1,6 +1,6 @@
 # functions to glue school database system into Lon-CAPA for 
 # automated enrollment
-# $Id: localenroll.pm,v 1.46 2014/04/16 14:40:11 raeburn Exp $
+# $Id: localenroll.pm,v 1.48 2014/05/06 20:42:32 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -443,7 +443,7 @@ sub crsreq_checks {
 
 sub crsreq_updates {
     my ($cdom,$cnum,$crstype,$action,$ownername,$ownerdomain,$fullname,$title,
-        $code,$incoming,$outgoing) = @_;
+        $code,$accessstart,$accessend,$incoming,$outgoing) = @_;
     unless (ref($outgoing) eq 'HASH') {
         return 'fail';
     }
@@ -469,6 +469,20 @@ sub crsreq_updates {
                                      mt => '',
                                      args => [],
                                     }];
+        $outgoing->{'createdactions'} = {
+                                            environment => {},
+                                        };
+                                        # environment can contain key=>value for
+                                        # items to set in the course environment.
+                                        # These would be items which are NOT included
+                                        # in the items set via options in the course
+                                        # request form. Currently self-enrollment
+                                        # settings are the only ones allowed, i.e.,
+                                        # internal.selfenroll_types internal.selfenroll_registered
+                                        # internal.selfenroll_section internal.selfenroll_start_access 
+                                        # internal.selfenroll_end_access internal.selfenroll_limit
+                                        # internal.selfenroll_cap internal.selfenroll_approval
+                                        # internal.selfenroll_notifylist
     } elsif ($action eq 'queued') {
         $outgoing->{'queuedmsg'} = [{
                                      mt   => '',