loncom/enrollment/localenroll.pm - diff

Return to localenroll.pm CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.46, 2014/04/16 14:40:11	version 1.48, 2014/05/06 20:42:32
Line 443 sub crsreq_checks {	Line 443 sub crsreq_checks {

sub crsreq_updates {	sub crsreq_updates {
my ($cdom,$cnum,$crstype,$action,$ownername,$ownerdomain,$fullname,$title,	my ($cdom,$cnum,$crstype,$action,$ownername,$ownerdomain,$fullname,$title,
$code,$incoming,$outgoing) = @_;	$code,$accessstart,$accessend,$incoming,$outgoing) = @_;
unless (ref($outgoing) eq 'HASH') {	unless (ref($outgoing) eq 'HASH') {
return 'fail';	return 'fail';
}	}
Line 469 sub crsreq_updates {	Line 469 sub crsreq_updates {
mt => '',	mt => '',
args => [],	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') {	} elsif ($action eq 'queued') {
$outgoing->{'queuedmsg'} = [{	$outgoing->{'queuedmsg'} = [{
mt => '',	mt => '',