loncom/enrollment/Enrollment.pm - diff

Return to Enrollment.pm CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.34, 2007/05/11 01:48:23	version 1.35, 2007/07/02 03:37:19
Line 454 sub update_LC {	Line 454 sub update_LC {
}	}

sub create_newuser {	sub create_newuser {
my ($args,$logmsg,$newusermsg,$enrollcount,$addresult,$longroles,$courseinfo) = @_;	my ($args,$logmsg,$newusermsg,$enrollcount,$addresult,$longroles,$courseinfo,$context) = @_;
my $auth = $args->{'auth'};	my $auth = $args->{'auth'};
my $authparam = $args->{'authparam'};	my $authparam = $args->{'authparam'};
my $emailenc = $args->{'emailenc'};	my $emailenc = $args->{'emailenc'};
Line 511 sub create_newuser {	Line 511 sub create_newuser {
if ($context eq 'createowner' \|\| $context eq 'createcourse') {	if ($context eq 'createowner' \|\| $context eq 'createcourse') {
my $result = &Apache::lonnet::modifyuser($udom,$uname,$pid,$auth,$authparam,$first,$middle,$last,$gene,'1',undef,$emailaddr);	my $result = &Apache::lonnet::modifyuser($udom,$uname,$pid,$auth,$authparam,$first,$middle,$last,$gene,'1',undef,$emailaddr);
if ($result eq 'ok' && $context eq 'createcourse') {	if ($result eq 'ok' && $context eq 'createcourse') {
$outcome = &Apache::loncommon::commit_standardrole($udom,$uname,$userurl,$role,$start,$end,$cdom,$crs,$usec);	$outcome = &Apache::loncommon::commit_standardrole($udom,$uname,$userurl,$role,$start,$end,$cdom,$crs,$usec,$context);
unless ($outcome =~ /^Error:/) {	unless ($outcome =~ /^Error:/) {
$outcome = 'ok';	$outcome = 'ok';
}	}