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; |