loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2001/03/24 17:05:26	version 1.11, 2001/03/24 17:25:54
Line 346 ENDTHREEHEAD	Line 346 ENDTHREEHEAD
$r->print('Revoking '.$2.' in '.$1.': '.	$r->print('Revoking '.$2.' in '.$1.': '.
&Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'},	&Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'},
$1,$2,$now).'<br>');	$1,$2,$now).'<br>');
	if ($2 eq 'st') {
	$1=~/^\/(\w+)\/(\w+)/;
	my $cid=$1.'_'.$2;
	$r->print('Drop from 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($now.':'),
	$ENV{'course.'.$cid.'.home'}).'<br>');
	}
}	}
} keys %ENV;	} keys %ENV;
map {	map {
Line 366 ENDTHREEHEAD	Line 377 ENDTHREEHEAD
&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') {	if ($3 eq 'st') {
my $cid=$url;	$url=~/^\/(\w+)\/(\w+)/;
$cid=~s/^\///;	my $cid=$1.'_'.$2;
$cid=~s/\//\_/g;
$r->print('Add to classlist: '.	$r->print('Add to classlist: '.
&Apache::lonnet::critical('put:'.$ENV{'course.'.$cid.'.domain'}.':'.	&Apache::lonnet::critical('put:'.$ENV{'course.'.$cid.'.domain'}.':'.
$ENV{'course.'.$cid.'.num'}.':classlist:'.	$ENV{'course.'.$cid.'.num'}.':classlist:'.