version 1.34, 2007/05/11 01:48:23
|
version 1.36, 2007/08/03 22:02:01
|
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,$called_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 512 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,$called_context); |
unless ($outcome =~ /^Error:/) { |
unless ($outcome =~ /^Error:/) { |
$outcome = 'ok'; |
$outcome = 'ok'; |
} |
} |
Line 531 sub create_newuser {
|
Line 532 sub create_newuser {
|
unless ($context eq 'createowner' || $context eq 'createcourse') { |
unless ($context eq 'createowner' || $context eq 'createcourse') { |
$$enrollcount ++; |
$$enrollcount ++; |
} |
} |
if ($context eq 'automated') { |
if ($called_context eq 'automated') { |
$$logmsg .= &mt('New [_1] user [_2] added successfully.',$udom,$uname); |
$$logmsg .= &mt('New [_1] user [_2] added successfully.',$udom,$uname); |
} |
} |
unless ($emailenc eq '' || $context eq 'createowner' || $context eq 'createcourse') { |
unless ($emailenc eq '' || $context eq 'createowner' || $context eq 'createcourse') { |
Line 563 sub create_newuser {
|
Line 564 sub create_newuser {
|
} |
} |
&Apache::lonmsg::sendemail($emailaddr,$subject,$body); |
&Apache::lonmsg::sendemail($emailaddr,$subject,$body); |
} |
} |
if ($context eq 'automated') { |
if ($called_context eq 'automated') { |
$$logmsg .= &mt(' Initial password - sent to ').$emailaddr.$linefeed; |
$$logmsg .= &mt(' Initial password - sent to ').$emailaddr.$linefeed; |
} |
} |
} else { |
} else { |
if ($context eq 'automated') { |
if ($called_context eq 'automated') { |
$$logmsg .= $linefeed; |
$$logmsg .= $linefeed; |
} |
} |
} |
} |