version 1.35, 2007/07/02 03:37:19
|
version 1.37, 2007/12/23 02:48:50
|
Line 454 sub update_LC {
|
Line 454 sub update_LC {
|
} |
} |
|
|
sub create_newuser { |
sub create_newuser { |
my ($args,$logmsg,$newusermsg,$enrollcount,$addresult,$longroles,$courseinfo,$context) = @_; |
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,$context); |
$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; |
} |
} |
} |
} |
Line 683 sub execute_add {
|
Line 684 sub execute_add {
|
$changeHash{'permanentemail'} = $emailenc; |
$changeHash{'permanentemail'} = $emailenc; |
my $putresult = &Apache::lonnet::put('environment',\%changeHash,$dom,$uname); |
my $putresult = &Apache::lonnet::put('environment',\%changeHash,$dom,$uname); |
if ($putresult eq 'ok') { |
if ($putresult eq 'ok') { |
$$logmsg .= &mt('User information updated for user: [_1]$uname prior to enrollment.',$uname).$linefeed; |
$$logmsg .= &mt('User information updated for user: [_1] prior to enrollment.',$uname).$linefeed; |
} else { |
} else { |
$$logmsg .= &mt('There was a problem modifying user data for existing user - [_1] -error: [_2], enrollment will still be attempted.',$uname,$putresult).$linefeed; |
$$logmsg .= &mt('There was a problem modifying user data for existing user - [_1] -error: [_2], enrollment will still be attempted.',$uname,$putresult).$linefeed; |
} |
} |