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'; |
} |
} |