--- 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 => '',