loncom/enrollment/Enrollment.pm - diff

Return to Enrollment.pm CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.23, 2005/04/27 19:11:33	version 1.24, 2005/08/31 06:21:58
Line 459 sub create_newuser {	Line 459 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::loncreateuser::commit_standardrole($userurl,$role,$cdom,$crs,$start,$end);	$outcome = &Apache::loncreateuser::commit_standardrole($udom,$uname,$userurl,$role,$start,$end,$cdom,$crs,$usec);
unless ($outcome =~ /^Error:/) {	unless ($outcome =~ /^Error:/) {
$outcome = 'ok';	$outcome = 'ok';
}	}