version 1.10, 2001/03/24 17:05:26
|
version 1.12, 2001/04/12 19:43:49
|
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,3/24 Gerd Kortemeyer |
# 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17,3/24,04/12 Gerd Kortemeyer |
# |
# |
package Apache::loncreateuser; |
package Apache::loncreateuser; |
|
|
Line 254 ENDNUSER
|
Line 254 ENDNUSER
|
</tr> |
</tr> |
ENDDROW |
ENDDROW |
} |
} |
} ('dc','cc','li','dg','au'); |
} ('dc','li','dg','au'); |
} sort keys %incdomains; |
} sort keys %incdomains; |
$r->print('</table>'); |
$r->print('</table>'); |
# |
# |
Line 265 ENDDROW
|
Line 265 ENDDROW
|
'<th>Group/Section</th><th>Start</th><th>End</th></tr>'); |
'<th>Group/Section</th><th>Start</th><th>End</th></tr>'); |
map { |
map { |
my $thiscourse=$_; |
my $thiscourse=$_; |
|
$thiscourse=~s/\_/\//g; |
my %coursedata=&Apache::lonnet::coursedescription($thiscourse); |
my %coursedata=&Apache::lonnet::coursedescription($thiscourse); |
my $area=$coursedata{'description'}; |
my $area=$coursedata{'description'}; |
my $bgcol=$thiscourse; |
my $bgcol=$thiscourse; |
Line 289 ENDDROW
|
Line 290 ENDDROW
|
ENDROW |
ENDROW |
|
|
} |
} |
} ('st','ta','ep','ad','in'); |
} ('st','ta','ep','ad','in','cc'); |
} sort keys %inccourses; |
} sort keys %inccourses; |
$r->print('</table>'); |
$r->print('</table>'); |
$r->print('<input type=submit value="Modify User">'); |
$r->print('<input type=submit value="Modify User">'); |
Line 346 ENDTHREEHEAD
|
Line 347 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 378 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:'. |