loncom/enrollment/Enrollment.pm - diff

Return to Enrollment.pm CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.31, 2006/02/08 23:47:26	version 1.32, 2006/08/11 21:55:15
Line 27 package LONCAPA::Enrollment;	Line 27 package LONCAPA::Enrollment;

use Apache::loncoursedata;	use Apache::loncoursedata;
use Apache::lonnet;	use Apache::lonnet;
	use Apache::loncommon();
use Apache::lonmsg;	use Apache::lonmsg;
use Apache::lonlocal;	use Apache::lonlocal;
use HTML::Entities;	use HTML::Entities;
Line 502 sub create_newuser {	Line 503 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($udom,$uname,$userurl,$role,$start,$end,$cdom,$crs,$usec);	$outcome = &Apache::loncommon::commit_standardrole($udom,$uname,$userurl,$role,$start,$end,$cdom,$crs,$usec);
unless ($outcome =~ /^Error:/) {	unless ($outcome =~ /^Error:/) {
$outcome = 'ok';	$outcome = 'ok';
}	}