loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.9, 2001/03/19 19:54:37	version 1.10, 2001/03/24 17:05:26
Line 16	Line 16
#	#
# 2/14 Gerd Kortemeyer)	# 2/14 Gerd Kortemeyer)
#	#
# 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17 Gerd Kortemeyer	# 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17,3/24 Gerd Kortemeyer
#	#
package Apache::loncreateuser;	package Apache::loncreateuser;

Line 365 ENDTHREEHEAD	Line 365 ENDTHREEHEAD
$r->print('Assigning: '.$3.' in '.$url.': '.	$r->print('Assigning: '.$3.' in '.$url.': '.
&Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'},	&Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'},
$url,$3,$end,$start).'<br>');	$url,$3,$end,$start).'<br>');
	if ($3 eq 'st') {
	my $cid=$url;
	$cid=~s/^\///;
	$cid=~s/\//\_/g;
	$r->print('Add to classlist: '.
	&Apache::lonnet::critical('put:'.$ENV{'course.'.$cid.'.domain'}.':'.
	$ENV{'course.'.$cid.'.num'}.':classlist:'.
	&Apache::lonnet::escape($ENV{'form.cuname'}.':'.
	$ENV{'form.cdomain'}).'='.
	&Apache::lonnet::escape($end.':'.$start),
	$ENV{'course.'.$cid.'.home'}).'<br>');
	}
} elsif (($_=~/^form\.act\_([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) {	} elsif (($_=~/^form\.act\_([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) {
my $url='/'.$1.'/';	my $url='/'.$1.'/';
my $start=$now;	my $start=$now;